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

admin

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


6 v5 D- P5 k5 [" v6 @Option Infer On
5 ]" m& ~+ p/ bImports Snap, Snap.Create

, M# Y5 _& p1 z) |' 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.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
* ~" r, r# ]4 D" [0 B: K
    ' Declarations of the blocks on the dialog
) m$ b9 V! J: W$ t
    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
" P& v* x9 D7 I/ C7 l1 y    Public Sub New()

" y1 @; _, n* i3 g+ i        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

        ptsBlock = New UI.Block.SelectObject
9 M& W1 Y4 a9 {, q& _' T" s        ptsBlock.AllowMultiple = True
2 w7 b8 w8 w% ^( V. S        ptsBlock.MaskTriples =
* S6 v/ O3 `* g4 p6 T            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
1 F8 O8 U+ |. m5 `) e        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
# }: v' `$ ]* T% y$ ]1 e$ `& K        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
  L; W) T/ }+ |! Z; b( `5 B5 R$ {0 g
        ' Add the block to the BlockForm
" r9 L2 @& p3 ?. U: y        Me.AddBlocks(ptsBlock)
4 X6 q+ T& h0 v+ ~4 o2 o
    End Sub
5 q( W. }* Q- r" {
    Public Shared Sub Main()

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

* G) t* q6 O: `# B4 K    End Sub

4 ?% [( c4 L# d5 v    Public Overrides Sub OnApply()

( e  b8 f8 P4 p& b% ?+ X! i! R        InfoWindow.WriteLine("You selected these locations:")
$ y& {' Y2 d  P) j! k
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
) |. e. Z+ Y; J8 B  n2 P            InfoWindow.WriteLine(anObj.Position)
        Next
# t, c1 s* c! @& _
    End Sub

0 N3 _1 Y$ g2 s: T( I4 x    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
- y) z9 ]- X3 Y7 A                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
9 O3 F, v9 s6 W; b. |( K& J        End If

# m; ]9 E% R7 V    End Sub

    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
8 |- D) l% z8 X9 x8 z        Return Snap.UnloadOption.Immediately
6 e! m# T! I2 U1 K& ]    End Function

End Class
6 Q3 G+ R, B8 f5 E