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

admin

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


Option Infer On
" l; h3 C; \& o) C$ _Imports Snap, Snap.Create
, i. ~) j( i) ]- v
5 E4 V: _3 {2 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.
8 F8 R9 K) l  x. P' }- T$ D4 f
Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
; B! q* [# x% X/ ^: s
    ' Declarations of the blocks on the dialog
# x* o& R7 v8 E$ F
    Dim ptsBlock As UI.Block.SelectObject
- Q& T. ^# Y& k9 j+ d: y! Y
; k$ s* b* X/ R& k+ j6 @1 f4 B8 H    ' Constructor for a dialog object
    Public Sub New()

        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
  V! D0 e/ L& c+ v
        ptsBlock = New UI.Block.SelectObject
4 \6 D* J* w  Y& \% ?        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
2 u( Y$ I3 f7 {1 I  t5 D            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
# \* v9 v, _, Z) W5 F9 v        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
5 D2 R1 x# W8 I# Y        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
1 z; T/ z! v( V  `2 H- F8 P2 Z        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
7 \! O7 s0 G) E' Z  T  l. z
" J* E' ], B  {+ y7 t, d9 j+ G        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

( r# @2 R3 V) q+ O/ j    End Sub

! G% @! X5 m- m9 \+ I8 d    Public Shared Sub Main()

4 \1 N4 T1 i8 l! T- g        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
+ E, E$ R5 B- I; c2 ]& E! i        myForm.Show()

) `" q3 m  _# @1 a    End Sub

    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")

" a6 K7 r2 b. z( a        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
( H2 l/ z% y! t5 g            InfoWindow.WriteLine(anObj.Position)
) }+ U3 l6 _& ~- F+ T        Next

    End Sub

; H7 I1 m' Q8 h+ N3 \    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

7 L: x- ^: K! p. i8 x* P$ Z6 c3 T        ' This is going to be annoying so don't really do it!
5 ~6 ]5 ?/ a" @. k( ?        If changedBlock = ptsBlock Then
  Q  C! l9 {5 p) i. h            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
* W( O9 X3 T6 x" G7 D6 C. \) X            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
8 a" }% y% O. [: W4 K  R        End If

    End Sub
; ]' T) Q0 \: r
, T$ I& T  F5 h+ K3 C    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
& Z! O) y+ k6 s$ }' d    End Function

* s& g; `* u9 C: l0 ]End Class