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

admin

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


/ A* c8 ?5 o. F1 @6 f5 o: k/ I/ |Option Infer On
% T! S) a5 v2 c9 y% f; _; yImports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
1 `4 J3 g) a0 D' E& t8 x' to create a dialog that enables the user to select multiple point locations at once.
7 l4 {/ C4 ]6 O4 o. ]' N
- j% J9 `7 w" M: ^* J. K# XPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
8 G( R9 u6 x$ S1 J* \8 K. P
    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
9 o$ @- o8 I7 Q2 c7 u' d    Public Sub New()
/ I2 C4 O( Y1 Q5 U) h
        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
+ y) ~$ `3 r4 c, A        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
3 C, U; @7 u9 z5 r4 Y/ L
/ i* J( u; a% S% e  b        ptsBlock = New UI.Block.SelectObject
8 B5 \7 Y+ F8 l: i5 ^+ F2 S        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
+ ~: ^  c4 e$ g. l1 _% G* j0 Q        ptsBlock.LabelString = "Select locations"
& e  I$ w, C7 o/ m0 {        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
7 |5 j5 ^% {9 O! N  a4 y: o' i        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub
0 Z" ?: W: [3 y' t5 v8 k
    Public Shared Sub Main()
, v& z* p: C3 a" V% X* H1 J
* j6 Y  O( e/ ?- p3 d$ O        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
, b2 ~& S$ K1 D: Y: w2 |8 f
8 c- h# n: F  ^4 M9 p; o% k; ^    End Sub

    Public Overrides Sub OnApply()

$ i- Q: ]0 Z6 b2 M2 x        InfoWindow.WriteLine("You selected these locations:")
9 q! [7 u% _$ m0 b* G
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
2 P7 `" t7 o  m6 Q6 e            InfoWindow.WriteLine(anObj.Position)
% m( {) [# s9 \$ ]        Next
/ _5 y# A) e5 e+ `4 R
    End Sub
# e( m6 h5 t& V: R3 ?0 g
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
: j5 m+ J; [7 |
3 y% A' S" a3 ], _; W        ' This is going to be annoying so don't really do it!
! \  }! g/ l# J1 T: I        If changedBlock = ptsBlock Then
3 q$ t8 l( c( r2 ~- `            If ptsBlock.SelectedObjects.Length = 1 Then
8 M) W' h' v2 I0 O& h7 q: [                InfoWindow.WriteLine("You picked a Location")
. J. B* r  Q. i  P0 N            Else
5 W$ f3 h; r. U/ ?                InfoWindow.WriteLine("You picked another Location")
            End If
% m3 I; v" v; w1 a7 o% n        End If

. j4 J- x% N, _9 M2 a0 k5 x8 m6 {5 {( w    End Sub
% S; q4 ]/ w% @7 X' [, y
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
" C" M% D/ {. A0 [5 b    End Function

End Class
( N  p3 R7 _. N3 m