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

admin

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

% R! r3 _& l  O
  M% N6 R% W( F. `$ M: QOption Infer On
0 N* J' x& ^5 u8 ?4 n2 v0 j" dImports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
/ r0 \8 J( ^2 E2 I  i  o" I' to create a dialog that enables the user to select multiple point locations at once.

1 m, b( S* c8 {- P. PPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
7 J5 s7 P" c( J- M( m7 G& S' o
    ' Declarations of the blocks on the dialog

1 `. E% G- J# L7 G4 C    Dim ptsBlock As UI.Block.SelectObject

; F) @1 u9 K( ?5 J4 w3 x2 u    ' Constructor for a dialog object
: H5 T+ c- E# g  ~/ X    Public Sub New()
8 T2 [( |- }' D2 j+ x8 Q
        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
+ I8 j, O6 D* A" x3 K7 v
. \# ]9 l) V: k' t0 ~! S        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
; |$ M) f4 q' |" s) z; e        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

0 S+ y8 A7 J" E2 _  ~        ' Add the block to the BlockForm
# d, L  q6 p' r) Y: ]; S        Me.AddBlocks(ptsBlock)

+ ?5 f4 r7 O0 U% F    End Sub

  J2 c9 S& ?) I7 g2 b( Z6 `9 `* q' C    Public Shared Sub Main()

        ' Create and display a dialog
" k% d3 |5 Q& Y7 r( [) q! W        Dim myForm = New SnapBlockFormApplication2()
! X* A9 h  U. [+ c* F        myForm.Show()
. P" a- T8 v. ~# U7 Y
    End Sub
3 |2 T8 R- g+ K3 R* a- `+ t
' \  f6 [+ v5 v: W  G* a. c    Public Overrides Sub OnApply()
' ^2 }" X  {; w+ m
9 B4 c, h  ]' Z( q  _3 m        InfoWindow.WriteLine("You selected these locations:")
1 V: W+ x- u6 t- T9 ?: {7 ?% O/ W
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
) J" B1 K2 `  V# V            InfoWindow.WriteLine(anObj.Position)
- r  |  w( l/ b( g! x- Y8 e        Next
8 d5 E# T; `: _" N5 e& @* p
2 y  ~0 F4 j; W. Z    End Sub
  S0 `1 V% c9 M
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

( L: S+ Q1 q: r2 l9 D; s        ' This is going to be annoying so don't really do it!
5 k' h. N% y- k2 k# o( p. K$ \) o! D        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
% S  ?& f5 D* h6 T& ~2 N1 B( ?* }            Else
9 E% r7 X4 G/ ^7 s1 L' \) D+ @                InfoWindow.WriteLine("You picked another Location")
            End If
- K8 N& F3 G/ J/ A- m8 Z        End If

    End Sub
) f/ A  R. h5 i: p3 c3 y! j8 w
' Q5 w! b* a0 }$ J    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
. o( ]- o$ G. \# T: U4 k        Return Snap.UnloadOption.Immediately
    End Function

End Class