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

admin

通过对话框选择多个点实例
- l1 b6 ^4 N1 e+ Y3 J3 H% Y0 ?

7 \/ ^& {8 X7 Y4 p! W+ `8 I. b* F5 bOption Infer On
Imports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
' to create a dialog that enables the user to select multiple point locations at once.
" }" L2 x1 H" J) b% [, z: X
8 z% k( y) h' ^5 vPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm

    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
/ f' s& g( u- G2 f* i
    ' Constructor for a dialog object
: k- C; R; U1 N, ^. g    Public Sub New()
8 \; u  m* T, w7 q$ @9 Z
; V# }2 k$ i2 G# b7 c1 N  P6 C        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
# _( K, X( y' t/ Y1 M- c
        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
$ T5 B# i# l" A$ Q/ n            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
3 J# J4 {5 Y8 }        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
9 ?. p/ @! j+ g- i7 y5 T7 I, [        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
, K4 }/ W$ P$ @/ n
5 e$ ~& t. k8 e, Z; u        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)
7 o4 K  |: i6 x. h6 V8 l! m
    End Sub
! r& \+ r7 k8 I$ d+ E: g% A8 T
  j/ q4 H& N3 V2 C+ `    Public Shared Sub Main()

        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

    End Sub

    Public Overrides Sub OnApply()
! @- m; ^7 R1 ~9 F5 T
        InfoWindow.WriteLine("You selected these locations:")
5 s8 A* j( f  ?$ K1 e8 u! ^
, \# B, @: E6 x. B" E8 c6 Y) K        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
% c* o8 i. d# k: ]; w& A; J        Next

5 J* U. }# v1 s, p    End Sub
- p1 P: ^7 n0 C, f
$ ]& S6 s; B9 R7 j% [5 ~" j$ K    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
6 I1 T0 _- g+ ^% r4 r. W
+ b7 z0 C3 w, O$ {  [/ ]9 Y        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
- ]3 h3 E, D& ~9 w- N9 H            If ptsBlock.SelectedObjects.Length = 1 Then
) v$ v% i/ _1 w/ S9 L$ p                InfoWindow.WriteLine("You picked a Location")
            Else
6 H( ^" r6 x8 ?& v0 U                InfoWindow.WriteLine("You picked another Location")
            End If
& o1 u. f7 [5 N$ Q; V1 T) @. D4 D        End If

    End Sub

, T1 R1 X! u  F+ k+ z    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
: R& w: e: M; ^' J. [% c$ G7 e        Return Snap.UnloadOption.Immediately
    End Function

End Class