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

admin

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


2 E" V3 e4 X+ E: @* f! r" MOption Infer On
Imports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
! p' g; ^1 G  Q4 }6 {4 n' to create a dialog that enables the user to select multiple point locations at once.
) S3 z9 N$ t2 H
$ c. s* U* w. B; |. H0 s% I) ~+ g6 k- PPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm

, `( a3 v7 X6 p; q9 |    ' Declarations of the blocks on the dialog
4 ]! S4 j- d' U" ~
1 S. V5 f2 c0 e0 b7 i    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
    Public Sub New()
* i# ]8 C6 |, S1 I# q( b8 w! c
1 [7 U8 c7 u# @9 B! W8 G9 x* `; [        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
7 z' `2 X8 x% k7 R        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
# g. a4 H" T6 i) l4 c
: i" Z# v9 G/ b5 }# d& E2 B        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
9 G5 Q7 ]/ e) U            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
9 h7 ~& N9 {0 g) E1 z. `        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
- ~( F; X3 v  H- D2 k' \  C        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

0 ]! G+ [, Q5 P6 h2 I" G        ' Add the block to the BlockForm
! Y% A# C& X! X6 @2 z% G4 J/ Y        Me.AddBlocks(ptsBlock)

    End Sub

/ v# F+ o4 v* w9 ^8 n6 z# d    Public Shared Sub Main()
4 I* g3 E" j' A! n) H
        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
6 @# J7 G1 o* z4 d% Q        myForm.Show()
; u: {+ M9 {! E; c9 @3 D* H5 {
    End Sub
; U0 Y7 g9 C. K& V9 ?* t
    Public Overrides Sub OnApply()
/ J2 R/ x$ z) g3 Y, j
8 M! d0 ?/ m+ q0 G, A" }- q7 k        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
8 j7 H, D9 o  k, T6 [            InfoWindow.WriteLine(anObj.Position)
        Next

$ `* w, Y/ ~$ C% j7 T# j    End Sub
4 o% q- l0 X) q0 H: G8 F
    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
0 c6 @% o, ^8 z% t            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
( U1 r) Q2 Q2 E. e            Else
- C+ o5 H0 ], w4 y                InfoWindow.WriteLine("You picked another Location")
$ K1 t/ Y: z, _- n            End If
        End If
( O! c- f3 l0 }
    End Sub

; i8 n9 J9 F$ w: a: U8 S0 ]    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
+ S8 u/ p6 M; w  _6 j6 x* a        Return Snap.UnloadOption.Immediately
    End Function
! N; X  E- \7 q: C  v
6 V, w: P2 K! I% C; vEnd Class
0 e9 q, n7 o& K; m' F