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

admin

通过对话框选择多个点实例
  F5 w# H5 X7 u# B: o/ w: G) c% {

) Q  }' e' j& K/ m- POption Infer On
5 N' F8 U. f/ B  ~Imports Snap, Snap.Create
1 A8 I5 j' e, q+ O( ]
1 p8 Q) F/ e- B3 C5 v1 }/ d' This is a very simple example showing you how to use a Snap.UI.BlockForm
* |  a- L4 n# b+ Y, U0 O' to create a dialog that enables the user to select multiple point locations at once.

% `6 Q: G. t' o4 ^5 m( w( ^Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm

6 D: @. ], o" n: I    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
# a. ~: ]3 j0 `7 S
! Q6 L! u* a6 g  ]    ' Constructor for a dialog object
    Public Sub New()
% P; e. \* K) F1 ^. 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
% ]- \% c4 u" G# X+ N8 D' M3 Y
        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
8 t: t) x: T; Q7 M. F% U            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
8 x* O, o4 t! o3 M. v$ h5 j4 G) k8 d) n        ptsBlock.LabelString = "Select locations"
" ?+ q! c& q8 l3 h' {        ptsBlock.PointOverlay = True
! r2 t  B* f6 y" k' j: O        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
# T% u% @8 [2 s% G' [) F6 N        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
/ j1 L& h0 x0 E2 y* p( T/ W0 ~
        ' Add the block to the BlockForm
/ G  ^0 ^5 @" |        Me.AddBlocks(ptsBlock)
7 {* c6 I9 N. k
$ w& q" [6 t  x6 B7 l8 t    End Sub
/ n5 Z8 L( I4 g% ?
2 h* f& Q6 A  `8 P+ e    Public Shared Sub Main()

3 |# @# z- J6 f+ n        ' Create and display a dialog
' x$ t" k9 X; M2 N' w) h        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

$ o/ M' V* Q, T* G& J    End Sub
! h! N1 A, G. b$ c
$ S4 x: @% r3 f3 }" w2 |% S    Public Overrides Sub OnApply()

1 m$ `1 U' F& Z9 c6 |( m        InfoWindow.WriteLine("You selected these locations:")
6 g* O: y! u8 g
1 W) U; f4 g! h5 H0 F0 ?2 t# y! _4 F        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
1 G+ R' f% `. ^4 C; u( @            InfoWindow.WriteLine(anObj.Position)
        Next
; X' T+ H9 N6 w# o
* d. ]: G+ r- f  q5 b8 e    End Sub
# {  f) n$ ]2 K8 |% `/ b, x
; g8 C' V* K+ j    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
  i6 X& e; z- L5 V
        ' This is going to be annoying so don't really do it!
5 {. L/ T8 V$ k% ?" G2 f" E4 x, H        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
: }+ A1 O2 T7 D+ q  m0 u+ A            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
6 K6 v/ W3 r7 L* ?- T  X& D' \        End If

. C& _: a& G# M! @: ?0 w    End Sub

    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
) i5 w; j& f# }0 ~! d& d, w        Return Snap.UnloadOption.Immediately
1 d5 X7 `. f* c$ C3 Y) l    End Function
' T# K6 J; p) X- @! c: ~# V% P
$ p* g+ N# g3 G* t8 a% k! oEnd Class
% b, e6 G8 Q2 s2 G3 j8 f% {" ^