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

admin

通过对话框选择多个点实例
8 I/ O) h/ x) @6 D

Option Infer On
3 ~- U+ B" m7 r7 U3 LImports Snap, Snap.Create
- W7 j) ~! K7 t+ w: g- Q4 P$ A
+ o8 ^: D' w  Q: {* A) e0 n' This is a very simple example showing you how to use a Snap.UI.BlockForm
6 R: z- T& r& T) O/ Y' to create a dialog that enables the user to select multiple point locations at once.
  h- a# m: a8 n" Z* e6 S7 ^7 r: m- l# a
$ t- {& h# D; V# fPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm

    ' Declarations of the blocks on the dialog

, C( o  G0 A' s, {# p    Dim ptsBlock As UI.Block.SelectObject
: {  S4 x2 h, t
    ' Constructor for a dialog object
$ r, g# @# T! ~" |, _' u    Public Sub New()
- Y) E* H* M" h/ {% n+ Q
        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

        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
            {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)
+ l, E2 _  M) B! Z; U6 J# B        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

, z  L7 p7 n% w, G* [0 @2 j0 H        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)
: _1 \% `5 c9 y# @8 O5 I8 w/ z
    End Sub
5 W/ p' J0 d  }3 [  h, {
& s' v# v/ ?( f! m0 d: ^$ s5 }    Public Shared Sub Main()
" R8 a$ E1 f& Z) i
: J$ K3 f, G7 K& q: J+ i% g) E* {6 q- ?        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
2 F/ a( L( }6 |3 R* A) M7 B        myForm.Show()

    End Sub

* Z! x3 T% X! P1 f5 J    Public Overrides Sub OnApply()
' ~2 j  h* W2 S$ Y, i! \8 X
0 Z& s( L* N: g7 a1 i        InfoWindow.WriteLine("You selected these locations:")

; I' v* D3 z  r  d( ~: R% U        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
        Next
8 M9 ]$ p4 K$ H  L" J) Y
3 f1 P2 }" z/ b    End Sub
. Y" B* t; }# d
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
3 X$ D( P/ X7 L( F% o: u2 S            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
; f1 _% d( A0 T. ~: I$ _            End If
3 S4 H2 U, o2 M8 @        End If
! T" j$ T# p6 u% X; K* w5 J# W
    End Sub
- W# o$ B) y0 \; q4 T
6 |" p' v6 z' ^' d6 G% c8 U0 H    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
; E! t- a# p+ j8 l, ]$ Z        Return Snap.UnloadOption.Immediately
) A0 n. t. g" z+ @& k    End Function

End Class
4 O. U/ g7 t. ^