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

admin

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


+ L. o" @) v% H8 b* l5 ^Option Infer On
Imports Snap, Snap.Create

; h/ O% ^0 ~# P4 H" T& N5 d' 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.
2 l( D2 g* M: I5 f' `
Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
" p5 A8 A$ C& J& R
" I& \/ Y( G/ g8 |, O    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
" Q1 z/ J0 u" }# _( q. O
( o* G0 @1 ?, v7 T. v1 A    ' Constructor for a dialog object
    Public Sub New()

( a4 H) f8 K9 }5 X        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
& h' t. X9 l, W2 c- Q) Q! M        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
/ M" u/ h1 I9 g: `/ R1 M! C6 \
        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
1 `% n6 {% T7 i# Q& v' B' X& a1 `        ptsBlock.MaskTriples =
7 H' Q6 L, s7 R( s            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
9 W5 h- u. F+ _* o- l) T( x        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
, U8 t1 R( |! d% b. F4 A
        ' Add the block to the BlockForm
+ X; W% y# m( I        Me.AddBlocks(ptsBlock)
3 J9 C; E+ q0 E$ A7 P: p  v
    End Sub
7 k! l4 F, O. @$ {6 }
    Public Shared Sub Main()
1 t& d  l0 s+ U. l5 \
        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

    End Sub
  F/ r/ X; k$ P& ]: u0 W. a( S
& @/ _/ a' h* z    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")
& \( v; o! s' y6 Y
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
, X" h5 p: C  a! f, t        Next
" Y: f8 _. @0 g* e
4 [9 a, v! q( H8 O    End Sub

6 O2 M( q/ c! B: Y* z1 r    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
7 E6 m5 b6 e& n- F  G  m2 u
        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
0 q& K& `" m. d( N( B$ ~; a            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
( S* f) P. C; W, z0 ^            Else
' L# h" V, k3 k$ x0 V                InfoWindow.WriteLine("You picked another Location")
0 y+ I8 z8 L* u; |4 y6 m            End If
        End If

    End Sub

7 P6 o- Z8 t6 F, ^+ O( _    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
/ O6 ^/ a  g1 i! B' {6 _+ s        Return Snap.UnloadOption.Immediately
    End Function
  C1 i  T5 G3 d  d5 a2 H0 y8 }  B
End Class