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

admin

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

: p  S; d' K2 Y, \" I3 ]+ }
0 b4 G! P" v5 YOption Infer On
Imports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
. s$ \/ G% ^0 O2 A" E  I* c1 P4 R' to create a dialog that enables the user to select multiple point locations at once.
6 ?" {( `9 r1 ~, n
Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm

    ' Declarations of the blocks on the dialog
: S/ q. v* o: C* W) ~% [6 p! v2 T
* y  Q. {7 \2 `2 p! L1 j    Dim ptsBlock As UI.Block.SelectObject

1 y& \4 }9 m0 u( q3 _1 B; F# J+ E. u4 p    ' Constructor for a dialog object
    Public Sub New()
4 r2 _0 x* s% b; L6 A
        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

7 y& Z2 g: b7 X3 c8 m9 m) E  R        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
+ {' c; B4 _$ d2 ]: \            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
6 {8 A  O- U5 {& N8 E
: S/ Y# Q/ c+ U" C8 W* j        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)
9 l& }3 Q+ U) z! n3 q
/ ^1 m$ M* A# s3 B' }    End Sub
2 N/ x6 @0 D6 R" k3 p
1 i; e. _  V. ~7 S' X$ A/ ^! u    Public Shared Sub Main()
' t( C- o6 j' M) N( T3 C. b
        ' Create and display a dialog
+ q) D& d- O6 ]& a8 s/ l; `        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

    End Sub
3 d* r7 d5 B0 X% F9 y
( W  {  U+ |) s6 [+ p* Z' B! R; |    Public Overrides Sub OnApply()
( a: C$ A) r( t& c9 C
        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
* F: R0 m8 U) X- K        Next
" ^- A6 {) z* [+ c/ J! A; h1 \
& r$ ?9 W, y4 n* m    End Sub

    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
! U" k# M) E0 z% d0 E( @9 ?; X
        ' This is going to be annoying so don't really do it!
! Y1 {) W0 A& S: x* z/ x( ~        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
0 `2 Y0 a; W) U                InfoWindow.WriteLine("You picked a Location")
; p  E2 E# i" X; j: |            Else
, D1 A6 N5 J7 L% e8 C                InfoWindow.WriteLine("You picked another Location")
            End If
$ I, s# X0 _$ Q& H. `" F        End If

8 r: d; m  a& ?; [5 ^* o    End Sub
" G1 F4 m. R6 M, ?, |
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
0 D% _+ S/ {- ?8 L        Return Snap.UnloadOption.Immediately
6 Z8 x+ c% |  B8 \    End Function

# O% J6 ~' ^! ?/ }! r: `' X/ K2 yEnd Class