通过对话框选择多个点实例

admin

通过对话框选择多个点实例
" p& a5 Z4 `: }: T& g1 p. j1 m) k

Option Infer On
& }( m7 M; k( LImports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
  k! ?$ p8 w' |. d0 h- i! z' to create a dialog that enables the user to select multiple point locations at once.

' }  Y  B! f& yPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
5 g5 |8 G! v7 C8 H# U1 S8 j; Q
    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
% s6 T3 s. T" w5 s
" L' ^* m& p& }# B+ |! D    ' Constructor for a dialog object
    Public Sub New()

- n  |  ?2 K: R: N7 [        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
, I( r# K$ U" ]4 v9 ^' U) B
        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
3 W: j% A' @5 D. Z( \7 q        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

. Z! a+ f0 ]- \- H- s        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub

    Public Shared Sub Main()
  P4 @  @* t5 r! m5 N# T0 I
        ' Create and display a dialog
3 _6 N; W* B* V1 [, |& J        Dim myForm = New SnapBlockFormApplication2()
6 @1 f% n0 y) e( y3 B        myForm.Show()

4 i+ v. T9 e; V    End Sub

    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
" t9 Y# L- {7 M. V8 M3 r# ?9 J        Next
' {& l* D0 p+ t3 Z/ i
    End Sub
7 j0 t9 M2 ~7 Z) F: q# ~
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

* L/ ^3 `0 l; [  @& q: y        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
- p* x1 M+ l8 f9 ~5 X            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
* E  E" y7 q' f+ n            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
* I, k7 X- i3 y, e1 B        End If
( [& j/ \+ n; Y; k: P
# V+ R6 S( Z6 s& k    End Sub
$ d) n0 U9 t9 @; B# k! c
& X8 p- i% `; u! n2 w' f    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
. K3 c) Q& _3 m5 @! f8 R        Return Snap.UnloadOption.Immediately
    End Function
! V) t6 f( h0 Q% x. n. j
End Class