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

admin

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


Option Infer On
3 z- l) y) L' v! D8 KImports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
' to create a dialog that enables the user to select multiple point locations at once.
% ?& H1 T2 X: Z* B- ?3 o1 ?: S& z/ C% Z
* Q( ]4 I8 b2 D0 ?! ]Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
3 Z$ A$ Q) Y6 ]3 Z
: [$ D5 l# v7 G2 X5 O    ' Declarations of the blocks on the dialog
+ K4 c* A9 b8 l0 Q  a' B: M
    Dim ptsBlock As UI.Block.SelectObject
* X1 g' h9 d+ i: x$ i6 ]
    ' Constructor for a dialog object
. {* d6 N0 G! F* y# n    Public Sub New()
( |" X& ]- {+ v) k) G" }7 d7 w1 u
2 Y( I- p: A! W' Q6 s        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
- t. x1 C0 f+ t9 y9 B# a" X        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
. \  X* |. C: B1 S. e# a, S# x1 e
        ptsBlock = New UI.Block.SelectObject
4 ~- d8 {# |8 G        ptsBlock.AllowMultiple = True
& c, x. K$ Z4 l        ptsBlock.MaskTriples =
5 Y& [) C2 x  W7 b: U            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
# M* A( i& i3 W# _3 }9 T1 e' v        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
( K( s/ o7 Q0 m7 q$ P' N
        ' Add the block to the BlockForm
1 T" C& y  O6 p& B5 M6 r$ ?' g/ p        Me.AddBlocks(ptsBlock)
7 u( j! Z1 U  E% x% {
    End Sub

8 c4 H1 w5 b( g! e/ ?# d    Public Shared Sub Main()

        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
+ X2 [4 `6 ?) ?
    End Sub
" a. }& u! Q! K' n% {
  ?3 a0 E& _) [  t* w* f    Public Overrides Sub OnApply()

9 [" J9 o& \  I3 j- S, O" I" o) l        InfoWindow.WriteLine("You selected these locations:")
: x" ]' a8 t7 y# X3 i
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
8 n9 D5 u* ]- S- U% h        Next
4 ~' s1 h0 J; _5 j9 k5 j/ F/ R. |  _
    End Sub
& L; N5 ^* d$ P
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

+ c7 v2 w7 c* n6 E- H        ' This is going to be annoying so don't really do it!
7 y/ B9 D* b! P) g        If changedBlock = ptsBlock Then
& W5 a" R, \8 \% l1 e1 r+ X            If ptsBlock.SelectedObjects.Length = 1 Then
1 g0 N" l$ M" e0 i                InfoWindow.WriteLine("You picked a Location")
( y# R: Q9 y  {6 p            Else
5 O! y# Z9 F2 }+ f. V                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
& m% o0 D1 }" t$ o2 P
. I( N: ]% Q) u" h    End Sub
0 o( B* Y) P; v" S  u; V7 ~4 X
0 i3 s! J7 r: z' J. P# ?" f    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
1 e8 n( Y8 D' j7 k; F5 }        Return Snap.UnloadOption.Immediately
    End Function
3 H3 t) ~' Y& t0 H6 q3 T: p) g
; G6 D3 G' h. y4 j/ r6 I& L& q" U, aEnd Class
; R/ j* N* }9 S2 H$ y