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

admin

通过对话框选择多个点实例
6 N* U. m2 e' b5 \+ r
# j4 P, o; p' a% V) B
2 x/ d  V5 n, _! j; G# hOption Infer On
Imports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
/ p9 \2 _& A" b- |% g( n' to create a dialog that enables the user to select multiple point locations at once.

- X6 F  @4 |$ B2 K; ^Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm

    ' Declarations of the blocks on the dialog

$ F: s7 G& a8 p& s5 L- n" d! n  V    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
    Public Sub New()
+ }# Q9 b) V, D. D3 k
        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
: W$ S2 s& v0 A5 Z# U8 \0 z        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

        ptsBlock = New UI.Block.SelectObject
" l6 {! L: F) j5 a        ptsBlock.AllowMultiple = True
' b  M1 ?* g4 O        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
8 m( S/ Y0 G) ?' @9 S9 t5 z        ptsBlock.LabelString = "Select locations"
( t& }6 P3 F1 k. Q& \        ptsBlock.PointOverlay = True
  L8 u- [+ `9 Z) R8 L# M& @        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

0 @  z$ Q: @0 B4 i/ e! b        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

$ K5 d) v8 @) F: t1 E; {( [    End Sub
5 M& e$ Z$ k+ c/ R8 t
! E4 b7 _; i$ K* B$ A9 B$ k    Public Shared Sub Main()
- e) ?: m% a7 p/ M8 x$ X- e
% _# f- F% x5 c        ' Create and display a dialog
' M; a' H0 s' N: f5 k/ l& i3 n        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
* z' N9 l3 j$ H, X  U8 P4 f9 p, m8 R
6 j/ ^1 f) w& R, x/ n    End Sub

2 X# T( B& ]- g: {) O8 Q6 Q# W& z    Public Overrides Sub OnApply()

. T& W3 w1 c: u" m+ }        InfoWindow.WriteLine("You selected these locations:")
3 R) S! E( s! N+ z
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
        Next
" ?5 f' p" i. H: `6 A
2 C" L% d: M4 \0 m    End Sub

    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
: F. Y6 \6 [/ P) }+ ^5 o/ T0 E
        ' This is going to be annoying so don't really do it!
2 k# T6 t- N! ^5 Z/ Y! M8 ~        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
, h  |7 j* O8 f5 N! Y                InfoWindow.WriteLine("You picked a Location")
# D6 H7 C2 O& _            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
) }; e& `2 I1 s1 [2 b        End If

    End Sub

    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
) f. b3 b) u$ o8 y2 a' G7 ^        Return Snap.UnloadOption.Immediately
! L- H& F% Z/ R    End Function
' Y2 f9 i9 H# Q" G/ l4 Y
End Class
4 `0 j# }- Y7 H+ U) @