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

admin

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


Option Infer On
Imports Snap, Snap.Create
* h, d  |% Y7 c4 A& q% f, R
2 ?6 m& @! f: v' 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.

" T2 I8 V$ s0 t9 ?# V; w1 E6 NPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
3 M- V) F- a' z' q1 w- a% ]$ z% m
& T% v  c" Q% l    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject

% ^$ [! N7 o3 g' L" @    ' Constructor for a dialog object
- _3 J6 M1 `) _% o) r9 H9 p    Public Sub New()

        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
- l9 q8 Q2 A$ }3 r9 K  ?' J        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

        ptsBlock = New UI.Block.SelectObject
8 D% f2 s# o) O0 Z* E        ptsBlock.AllowMultiple = True
1 l$ Z0 ~6 @8 x& f1 _# G        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
0 [9 G% B& R. L  T+ p        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
: ?4 L  [: K4 |, M        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

4 P# L3 U+ R  A, \/ C8 z        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)
1 Y# x2 K: c, p: A
    End Sub

    Public Shared Sub Main()

        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
; t7 F. y3 E2 ?6 b
    End Sub
* j/ F" M$ b  [  L
- s8 }( S2 L. a  _2 p- o! @    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")
' z7 A: p1 S  C
# O3 x4 o# |7 ?        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
# i. `6 d8 U: F# C+ H) D/ v            InfoWindow.WriteLine(anObj.Position)
, y  j+ Q! b2 e. g' U3 B- a        Next

7 k1 e6 x, `; F& j* k    End Sub
$ i  o$ Q; D- x, p; Z, m9 ]
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
& D# p+ _0 F) P' B
8 B: _: z# V: R  R        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
- v( C% T, B% z            If ptsBlock.SelectedObjects.Length = 1 Then
% g! A$ a" x! J% y% W. p$ g9 o6 W                InfoWindow.WriteLine("You picked a Location")
            Else
4 n- o& u8 v" ~5 u+ X                InfoWindow.WriteLine("You picked another Location")
) l) Z# ]* L& f* @( }1 v( H/ U            End If
* |9 p- ?2 Y7 n, U6 \        End If

    End Sub

6 }; ^5 a& P7 G; s4 g  j  d    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
# g' p. F0 _% U# s" r, v        Return Snap.UnloadOption.Immediately
    End Function
7 N" Q+ V  ^( h) t$ ]) N
End Class