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

admin

通过对话框选择多个点实例
. A/ j0 R7 e: P+ t% `; c. ?

$ z: b- B8 U! {* lOption Infer On
7 \4 c$ D, ]6 h. I6 A8 D7 w$ hImports Snap, Snap.Create
+ E; ^- O% S7 F; M- P
/ A4 e) d- A" E8 e2 Q' This is a very simple example showing you how to use a Snap.UI.BlockForm
% G; a# I# p. U' to create a dialog that enables the user to select multiple point locations at once.
/ f6 N! W9 F" C" u' A
3 |+ K8 ^  x: Z3 IPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
) p# ]+ ^; h* l5 w
$ r; [  g; a% ]! E+ a/ T    ' Declarations of the blocks on the dialog

: H  w0 w1 b( e* A- Q    Dim ptsBlock As UI.Block.SelectObject

- Z3 k- M5 t3 _1 k+ ^5 w7 l% W5 y, F    ' Constructor for a dialog object
9 p1 f' i) e9 o1 u( D# S7 ^    Public Sub New()

: h+ R0 D; w) ~! `. [        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

        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
2 V) @' f( K3 u, b* W, x        ptsBlock.MaskTriples =
% p; n7 J+ k3 \            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
8 A. v4 I& p/ K" Q, B        ptsBlock.LabelString = "Select locations"
  x/ h5 N8 |3 ]        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

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

    End Sub

    Public Shared Sub Main()

+ B+ B, q# i' V9 P2 y2 x        ' Create and display a dialog
( J% a  g" J1 r; y4 A  G" @& Y        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
: V) N. I$ w: S0 o
2 ?0 |, ~' {' L5 S6 J0 `! ]    End Sub
* w' R0 @' y0 \4 J
    Public Overrides Sub OnApply()
. F, K# }2 `2 F7 `2 U
        InfoWindow.WriteLine("You selected these locations:")
9 ~% b; b# @; O  g3 Y/ Z- h' z& e
6 q3 `1 b5 i) a$ o/ p8 z        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
1 F7 ]$ j: X0 ^( ?        Next
% j: A' x2 j' H
    End Sub
' Z: {  h' Q, I9 {9 o
3 h% J' }5 Y) O6 {9 S5 J2 M    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

9 E& o( z' [6 g  r        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
& X+ n1 L- N4 j            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
$ h, ]' F( u( F5 Y- T3 W            Else
$ x- y& ?8 y8 d; J0 |; x5 A                InfoWindow.WriteLine("You picked another Location")
/ o4 \2 G+ |6 u8 c" ]4 _; \* g            End If
        End If
; K$ C) o. j  f& b6 y* |& p5 P" ?! n
    End Sub
9 H! ^$ D/ z+ B3 d" h& b) Z2 u
$ ?; ?( z9 h+ u& K! M  M# j+ ~    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
    End Function

+ h4 x6 g$ Q' l" I+ W4 ?+ \# u: N, KEnd Class
" n; C) R- j  V8 V, h