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

admin

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


Option Infer On
8 r# t0 \/ k  `" ]) x: FImports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
. \7 Q! b# l: ~7 ?  F; J* \# Q9 `( E9 K' to create a dialog that enables the user to select multiple point locations at once.
1 {% S6 t- B- ?# {: T  D6 E0 w7 Q
4 |8 [/ G! J% |( b5 w0 q) \3 C2 bPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
1 c6 B, L/ L  b$ H2 _
/ u) x- B/ L1 o8 L7 B3 }0 w! S    ' Declarations of the blocks on the dialog
/ u0 ^! v" X- L
    Dim ptsBlock As UI.Block.SelectObject
) r* E2 V! |: P2 i) h
/ Z& f8 D' X1 i  l) p    ' Constructor for a dialog object
8 h* k0 q  k% t6 _: s    Public Sub New()

        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
% x# Q3 F8 \4 i        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

        ptsBlock = New UI.Block.SelectObject
, b- O% ~! [/ y- n6 T3 V        ptsBlock.AllowMultiple = True
* G( E, y; m4 B# i3 J        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
9 h- q; _3 E. _$ E9 o: B- q; g        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
4 T( @0 E6 }0 g% ^        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

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

7 {: Z1 a2 [9 N3 V- o; k8 ?) ?    End Sub

7 |5 ]% }" e8 y5 ?; ]8 k1 B" U0 M    Public Shared Sub Main()

        ' Create and display a dialog
+ P  E3 u: Y* t8 O& n- k        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
, ]$ x" K" s3 h3 n
" a7 t  r9 Y+ }7 i# u' q# K    End Sub
- k; B: k& J" W2 S) O$ J0 y. d
    Public Overrides Sub OnApply()
! e  a/ n* T  u/ m2 E' I
# G3 k1 m% [$ p: U" Y        InfoWindow.WriteLine("You selected these locations:")

! v# Y; ]4 \  |4 @        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
1 g# A4 [  N2 q' ^5 H8 Z. R$ t            InfoWindow.WriteLine(anObj.Position)
+ p) r+ c) i6 l6 w7 V5 J, h        Next

    End Sub

! T, R$ K8 {0 y' L  b$ j    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
! n" \! D0 N8 J% r3 B% U# K0 ?
        ' This is going to be annoying so don't really do it!
6 f. x& B$ X3 V  o# M  h% u2 z( V        If changedBlock = ptsBlock Then
# B, W/ q* b4 E# f4 X4 }9 ]1 M            If ptsBlock.SelectedObjects.Length = 1 Then
: A0 M" G: G' q8 h7 X& A                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
* ]0 `1 @3 o, @) `# X9 _
    End Sub

    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
* w5 k' I) C3 W0 V  R' A2 C        Return Snap.UnloadOption.Immediately
* m: m' R/ M; E! d* Q+ t    End Function
, K; H" I! Z/ `2 g/ @4 ]8 U
End Class