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

admin

通过对话框选择多个点实例
7 \  G* z" f) N* B" u  C
' n6 J0 V5 ?. w& S
Option Infer On
Imports Snap, Snap.Create
2 ?, |5 ]! c* z1 r
! Y- Q; ]! T' [# D$ U' s' This is a very simple example showing you how to use a Snap.UI.BlockForm
8 L2 A, {) M8 r0 V4 Q9 ~' to create a dialog that enables the user to select multiple point locations at once.
4 C- N( t" C) {* ]2 I- b3 ~: A
Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm

7 h' d, `! n* j& p" [5 W$ L$ r    ' Declarations of the blocks on the dialog
! c& T3 W, e, _% f. t" s
! u: z& n9 L# E    Dim ptsBlock As UI.Block.SelectObject

" C2 A; N$ |( ^+ I" S/ @' l    ' Constructor for a dialog object
# w) W3 R/ X  U3 ^( J% a    Public Sub New()
* F; o/ ~  q9 X  f
' V3 L& i- E1 ~9 u# Q6 x        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
* w# E  f# i% j- W7 a" a/ X        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
5 R. j2 n  N; @0 x5 H' e, H
        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
% O4 D' T( y  `/ o2 O! M        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
+ r+ T8 }/ R& R! T: a        ptsBlock.PointOverlay = True
' C$ J: r- O. F0 j        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
% b2 w. ?( z8 _8 g
6 E/ F$ V: E$ S: N        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

, {3 o8 H8 L6 m* L/ p* q    End Sub
4 s7 [% {4 ]! U2 p0 R
    Public Shared Sub Main()

        ' Create and display a dialog
3 S5 Y8 m1 @: y6 r( _) U  `4 z- P        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

    End Sub

    Public Overrides Sub OnApply()
, J7 x9 Z% X* e+ v# F
        InfoWindow.WriteLine("You selected these locations:")
: g! E. {6 s% B# ~: C6 j
  L# B4 u( k" x3 k" W6 l        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
/ x' e6 S( U* e: v4 V5 m        Next
. @1 m$ ~6 X  [3 n: d( u8 G6 @" E
    End Sub
" Y0 h$ C0 o+ d6 q4 Z- B
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

2 N# T- Z$ q$ E        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
: }9 o( F% ?, D/ K8 R            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
# ^! Z9 j! b+ n2 G            Else
                InfoWindow.WriteLine("You picked another Location")
% K2 K2 B0 v; d8 P  i+ F, \            End If
        End If
/ Y# e" C: p% T
$ A6 p8 u, ^1 Q5 o8 I( @# O    End Sub

0 |% d4 A9 v% j! y; S) }    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
8 A% _7 w6 A% r# D( Q( E8 L: O        Return Snap.UnloadOption.Immediately
5 o! m) c4 W- G# D! f3 G    End Function

End Class