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

admin

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


& N3 {: ]! U3 ~4 n* `Option Infer On
' w  r- B+ s( }  L; JImports Snap, Snap.Create
# r2 Z' i6 b! C/ s. K
' This is a very simple example showing you how to use a Snap.UI.BlockForm
2 M3 }6 m+ h2 M( L! d! u, C' to create a dialog that enables the user to select multiple point locations at once.

: d' G' S2 v( k# _4 c2 U- JPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm

, ^2 q( \& G" p( j6 u) ]4 }    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
    Public Sub New()
- L( k5 r& H% d$ Y& g
        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
  x, @9 N' X; y, q% {( i* U4 w        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
2 j4 j1 d! R: b& w: z: Y  i
( `  k# j- Y6 i: n) W        ptsBlock = New UI.Block.SelectObject
  D8 w' O0 V, s# }8 H        ptsBlock.AllowMultiple = True
* l7 Z: l1 g; v& \: p: Q        ptsBlock.MaskTriples =
3 G0 D# U9 k8 Z2 h8 y5 d            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
/ R' w7 Z$ g$ x        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)
; l4 U1 m# a+ s3 ]
    End Sub

    Public Shared Sub Main()
, X+ i. f9 b$ v$ ~7 w3 K
        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
: G# r: i! h) U3 ?1 Y$ r" x$ d        myForm.Show()

    End Sub

. z- e! Y/ e0 Z    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")
( j! |8 u1 z% G' P0 Y
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
; k* Z9 l- }  V! K# U- N3 \' f2 E' q        Next
/ X/ h* X# h  c, o. O1 _2 U" V, n
    End Sub
8 y6 ^1 l" ?. b# z9 J
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

) C3 q5 P% k. S9 m. P  F. J8 y        ' This is going to be annoying so don't really do it!
1 V4 o; }3 I4 y* g        If changedBlock = ptsBlock Then
+ {; d* f) l  q3 \7 z$ ~( ^# F            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
        End If

    End Sub
* {( g( S# T/ P' J  g$ k8 I- D
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
% @* I8 n2 E5 M% q) g* g/ q8 P0 X. X        Return Snap.UnloadOption.Immediately
    End Function

End Class