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

admin

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


Option Infer On
, z' Q" @: s3 s, p7 O- S/ OImports Snap, Snap.Create

9 g, J; e; g1 m& @' This is a very simple example showing you how to use a Snap.UI.BlockForm
1 ?# \( x1 C) D' M9 T, b! R+ G' to create a dialog that enables the user to select multiple point locations at once.

/ J7 D% ?- n6 i8 f# MPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
& P0 K, B1 [/ C$ L% ]" S( ]
* z3 R* q0 I# m2 F    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
7 R4 z1 k$ j8 Z
. ^3 `- G1 G9 p) W7 c; v0 N; O    ' Constructor for a dialog object
, H2 ]; W4 @5 N0 V7 h6 a9 d    Public Sub New()
8 G# s& M; |: v& O7 o
        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
2 @* i, P7 ]% R1 T! @, T        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

2 }& S$ h" ?, t0 \- \8 ~- ]$ N3 }        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
6 I' V: I) x- S3 f: V9 R        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
1 w3 e" c% t# o6 m/ W: _        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
' r/ D/ }& o9 J) Q+ e        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
) S7 C9 D2 l. b3 ~8 p7 u4 L        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
9 U  ^/ g- s. o1 X7 n: c; {& _- F
$ {% l, A) ?4 Q9 g7 t4 I; S5 d, k        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

9 m* k" q9 X( f& x    End Sub
; {' w+ g3 i3 w
    Public Shared Sub Main()
3 W4 i( D$ Z2 m  t0 r, [7 N5 L
  m: [: O0 R7 U7 c! O: P; U$ ]' _        ' Create and display a dialog
1 Y) D8 E' X8 ~9 j6 u/ f& V$ o        Dim myForm = New SnapBlockFormApplication2()
. a; }: l; b, \2 d6 @( a3 j        myForm.Show()

* j  q# F0 j% R8 x. F, y) Z- N    End Sub

    Public Overrides Sub OnApply()
4 }. `  c8 x5 W" D$ u  W
5 f6 L: @8 V- }# h1 ]( ?5 C        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
7 l: M5 b+ z8 J. p' y0 F' i        Next
: w2 l0 M( Q, o0 Z; Y! t; y
0 H6 j- g5 K$ i0 R    End Sub
: Z1 }6 z3 K5 r9 d: K3 Y
4 H  T+ W& ]! N; j! h% b" U    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

  `; _: D: @2 N6 ?% q        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
% H, _8 o2 U; r; b( G            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
            Else
1 n- C; O/ F' w. D8 ^8 U; L- ^7 U                InfoWindow.WriteLine("You picked another Location")
) Z2 Y4 k* Y. K) F& P  ?) C            End If
        End If
9 u) G1 ^) K9 R9 M( K6 p
$ d; y% y2 }3 ]* K8 |& h. d0 D    End Sub

# ^4 a, O0 ~4 `* I# l$ I9 g) m/ j4 a    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
9 E: e5 s- o$ @8 a# u  a    End Function

% J% @+ U0 [; L& N, f9 f3 W3 `End Class