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

admin

通过对话框选择多个点实例
7 W( J9 Y+ \& Z, u8 Z! i
- D% r& K2 v# G2 ~
4 O: [+ ~6 m0 ~8 DOption Infer On
1 D4 j3 H; S; }: Z8 g& q1 y4 ~Imports Snap, Snap.Create

+ q, r7 e0 P. N; I( P' This is a very simple example showing you how to use a Snap.UI.BlockForm
1 T! I. k6 _) T: `: k- t  C' to create a dialog that enables the user to select multiple point locations at once.
# u8 o! N4 L3 M9 q6 @& S( f6 Y2 G
Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
4 W; r+ ~/ G- D" f( ~, K
; z, n5 |, a2 n! s5 {    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
8 h8 m( X- R* G' ?9 w6 ]! t0 F
    ' Constructor for a dialog object
    Public Sub New()
5 r; I. C9 D6 J. o) E+ v
        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
: c9 I* T' s7 ]; U; Z. U        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

/ ?. H3 |9 l" }- S7 W        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
# k' F, e, O) z% s5 r6 e            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
$ s& P) I2 Z9 W3 x        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

% g5 G" g) s% D6 ]3 n# H        ' Add the block to the BlockForm
. l2 i+ d0 P" S        Me.AddBlocks(ptsBlock)
( O* d3 W- `0 G% D5 u# e6 I0 A
    End Sub

2 G- K7 x; W. }# o( `    Public Shared Sub Main()

        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
: c2 B3 B% i: J, c        myForm.Show()
4 @0 e$ w- T2 L
2 |8 Y. u/ r& j    End Sub

    Public Overrides Sub OnApply()
/ B) M  @' ?5 B- h1 E/ U1 B1 C
        InfoWindow.WriteLine("You selected these locations:")
9 j& F" e) z' F9 [! m
% A1 U6 X& p- N$ A, x0 G: M        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
3 K! s. Y* U  G0 N# ]        Next
  `" D7 L- t2 Z
    End Sub

( P( N+ X) n8 F    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
% @, A3 Z4 g6 }9 s6 z. {  X
* _4 j) u% W' v        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
: H# b& ^' W- e            If ptsBlock.SelectedObjects.Length = 1 Then
# I" l0 }) Z+ K9 y( e( O                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
$ `# Y$ w' m  `1 s/ `3 N+ }        End If

  j; Q1 n) Y" r! a& d6 i$ E    End Sub
0 Z/ b  O( q% p  t# K# L" U
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
- W1 y$ o$ }3 i2 k- d/ l! b& M1 f    End Function
' j  @" f9 C9 ]
End Class
- y' w/ F# a: }6 S7 u6 p) S/ t