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

admin

通过对话框选择多个点实例
; v: y1 K4 l  f- @( c1 [) I3 ~/ D

3 }6 i) S1 [' _- ZOption Infer On
* U0 y2 ^8 ^+ k/ M/ r. s5 _Imports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
1 H3 C. m8 n1 C$ _7 m5 \' to create a dialog that enables the user to select multiple point locations at once.
" C, w1 G( O4 r) N- Q+ k
- z/ v; t2 v* L8 e  q* K- bPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
! f+ l( S# o1 j% T9 r7 }% @1 t
    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject

+ l7 z8 Y# U4 n6 R- \/ k    ' Constructor for a dialog object
: X( }0 W# y1 X" l, @8 c    Public Sub New()
/ v0 w# [- i3 _
        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
  i7 [0 q+ C. F
        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"
: o# Q5 `5 I( W7 {        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)
; K# E' M  Z: z, e# y) H
    End Sub
& p! K8 `: w- w) S+ E
  f: s' p0 s2 y' d: d# [0 B    Public Shared Sub Main()

+ k" ~* u7 M& Z9 E3 `  T7 ^        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
+ [$ l/ e# ]* N5 v, o, u1 M5 y/ A" g        myForm.Show()
: z2 O" y9 `2 H& D) k" Z
    End Sub
2 b; \# }: ^! ?# X, y
    Public Overrides Sub OnApply()

7 `- n0 X4 m& K0 c2 d' W        InfoWindow.WriteLine("You selected these locations:")
( ?( ^! d5 h' P9 u/ l- U
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
& X4 s1 S2 l* c/ F- k) g5 H        Next
" a! g: c- s2 e
    End Sub

. Q3 ^& `. |9 |- P1 L; K- ]: h    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
% O. G. o2 U) ?
        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
% x2 O0 H' c: F" U' P- {            Else
5 ]  N6 j$ s% q0 ]0 i                InfoWindow.WriteLine("You picked another Location")
8 D6 r% E3 D$ {! Q            End If
        End If

' W* s; M- @% ]7 r% k7 i7 r8 o    End Sub
/ _! g  H) A' B4 \  o
- y! y- v9 H; P9 b2 p    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
& T# f* _6 ]- Z( I( S" ~+ U        Return Snap.UnloadOption.Immediately
    End Function
: C* i' R% X" K) ~7 {/ P
End Class