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

admin

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


& w( R3 N/ v: N+ \1 g4 O& sOption Infer On
8 ?  R( x% ^. s6 M! eImports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
* i2 ?" X4 \0 f- j- H' to create a dialog that enables the user to select multiple point locations at once.

* [+ o; @, }4 [Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
* ?, j) H( B; [1 j- w% h( O
) l" Y: U% `" m3 V) n# H; ?    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
    Public Sub New()

        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
- p. `# N7 f9 r        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

; e& m  T2 G1 _& m! P7 A+ A        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
( D6 H! q$ G4 Y6 n2 B        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
9 i9 c6 y/ N$ [* z' J2 ?4 K        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

        ' Add the block to the BlockForm
: R# d6 T9 L$ v$ z6 O& P9 k        Me.AddBlocks(ptsBlock)

    End Sub

    Public Shared Sub Main()
) }- r; }$ ^+ u6 p' m% q8 E" d
        ' Create and display a dialog
  p) t# Z2 E6 ?$ V        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
. U& h* X  Q* g$ |6 U7 d% @
    End Sub
9 L: S- u; a4 K: O) |% }
, e* r" G- W) q$ l6 _& @    Public Overrides Sub OnApply()
3 i) e8 s: \2 X& B8 T; m
        InfoWindow.WriteLine("You selected these locations:")
8 t% ~# b& q) t4 K3 `" Q2 e+ n3 Z. ^
3 Z1 [* V3 U! z  m$ e6 T        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
        Next

0 y; E" ?: i5 c/ N" K+ z- n7 `    End Sub

. I8 {& j3 t- w7 n  y% f8 N2 i) M    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
+ o" [5 S: f* |1 p$ l
        ' This is going to be annoying so don't really do it!
: O6 s% p1 ^0 V& T( v, w& s$ U# N        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
* o  M, e4 i$ O3 g! _* H8 C        End If
' O- F8 @# E+ s0 X. |7 z9 {0 D3 W
5 u0 I. C. g5 R8 j- U# f    End Sub

    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
0 K( ]4 i" K3 N    End Function

End Class