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

admin

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

6 U& q4 q; K' R! D) T3 O
Option Infer On
Imports Snap, Snap.Create

7 B6 d4 j0 V3 w* f1 t, T' This is a very simple example showing you how to use a Snap.UI.BlockForm
9 T6 P: P4 B6 D" \% n' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm

: l. q1 [4 y7 r# M: c% e! F    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
. J% {% Q4 c. y, ?, n
0 ~% y. N3 I0 P/ \    ' Constructor for a dialog object
    Public Sub New()
+ `, g" D4 Q- v. C  ~
        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

6 z# X2 a6 b/ x5 W8 B& _  X! ^, c( L1 X( y        ptsBlock = New UI.Block.SelectObject
0 b( q, M# \& y. h" n9 _$ T) U; A9 I        ptsBlock.AllowMultiple = True
) F1 R3 q% H' }$ w        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
& _# ^* R  U$ {% G& T' I0 T2 Q        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
3 ?) B: o% ^5 R0 ]) I3 A        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

5 }2 Q5 D3 g/ O% H  \    End Sub
1 p' p+ F0 f) e; F! o, }$ o+ E1 t
# ~; [$ j6 x% @$ j) v! F    Public Shared Sub Main()
- R! y: z+ J+ B6 a7 v+ g
        ' Create and display a dialog
, s) p/ u1 r( M6 Y& p) L        Dim myForm = New SnapBlockFormApplication2()
/ T, q: B0 _2 ~7 u. C        myForm.Show()

$ y; ]1 C% Z6 E5 B    End Sub

. k4 l# s' C+ }( B    Public Overrides Sub OnApply()
9 P1 @, E8 b  T
        InfoWindow.WriteLine("You selected these locations:")
  Z9 D; t$ F5 ~' [* d3 k  e
8 b: Z: e, g/ ?1 k        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
. u3 K8 a  R3 @. i$ x; G            InfoWindow.WriteLine(anObj.Position)
0 ~' i" M% F' H; N. s        Next
0 o7 q8 V" O4 K7 m) O, Q2 \
    End Sub
1 m7 m, G( h% [: q+ p5 h4 N- S
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

4 }% }& N$ |) O0 `+ C( K        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
. c% w9 z: r2 [% m: ]            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
+ e" A) t* C1 G8 B# N9 E            Else
                InfoWindow.WriteLine("You picked another Location")
/ f0 V) P' @9 S2 y: \% i$ @            End If
5 B. j$ c9 C( a7 U        End If
& O1 H1 c" R6 [3 |- T7 J
    End Sub

+ v) z* w3 I& `& `. P( [    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
: I" [4 M1 ]; N5 _/ D6 x    End Function

End Class
3 l/ M% P* P2 P/ M2 |