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

admin

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


: ?% \, m9 [! i0 c7 z8 I7 fOption Infer On
Imports Snap, Snap.Create
! I2 F) m* \$ G  u5 L+ W
4 x3 q0 ^) D1 C& _1 u5 v' This is a very simple example showing you how to use a Snap.UI.BlockForm
( v+ j# h. x6 A4 z; g+ S5 e' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
8 Z. v0 ~0 k) Z3 F
    ' Declarations of the blocks on the dialog
2 w5 X: i. T  U+ t+ f& _- @3 h+ V
    Dim ptsBlock As UI.Block.SelectObject

) ~3 s: `1 }4 U, m9 @! t' L    ' Constructor for a dialog object
# R  F, [5 @/ D) E    Public Sub New()

$ @/ l) G* L' V& V        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
, f" ~5 t3 R+ o8 p) B        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

        ptsBlock = New UI.Block.SelectObject
! r- d/ |& L5 }        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
$ M" t! \$ q6 u7 f9 Q9 k  G            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
8 _+ n+ K; F0 l/ [% `  d& F: _        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
8 V4 ~+ Y' m, D- Q- z; `4 m
        ' Add the block to the BlockForm
, c! v/ D0 i- m        Me.AddBlocks(ptsBlock)

8 f7 @0 u( _& X, L/ p4 ]3 y$ X# {    End Sub
3 f; M; K1 x: @( P7 ]* T! P
9 }: b; I, o9 r5 n, J. [/ J    Public Shared Sub Main()

        ' Create and display a dialog
2 t7 r9 H2 z8 a) q        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
0 |0 _0 W3 {# C; e
    End Sub
5 k: u7 [$ s, F6 e7 V: c
    Public Overrides Sub OnApply()
; b* G$ A9 R, c. t+ Q
; ^; u# u. m0 ?) q/ H" v        InfoWindow.WriteLine("You selected these locations:")
3 I( V4 r. I( ~* i0 P
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
; T0 j8 s' K, r* [& p& b$ I8 i- W            InfoWindow.WriteLine(anObj.Position)
7 x, U; p- N% Q3 k        Next
* F7 M1 S4 I% Z
    End Sub

# b% s0 ]5 t9 l  }$ v    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

        ' This is going to be annoying so don't really do it!
' o7 ?+ \7 r- P6 a9 ^$ b0 H9 q& ]        If changedBlock = ptsBlock Then
$ r: I2 e/ ]! E# @) {1 m4 G- m5 p            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
        End If

# S, F0 b4 i& y7 x( F0 I* |    End Sub
0 S. v) @# q  D% q! ^' S
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
1 }7 h5 I  _. G, K; @% z        Return Snap.UnloadOption.Immediately
    End Function
# ]+ B5 v( c* s' S% ]# T4 k
- ~, N, _, z( q# j# w1 [End Class
: O5 o- I8 B3 x5 W