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

admin

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


Option Infer On
Imports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
: d+ \* r1 P. u! k* t6 }' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
; O- w8 f5 q! ~2 `* M
+ s- U8 H* p& `0 K7 P    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
# B' v& l/ F4 w2 [3 g1 N2 [
- F% w8 l- L( J( @7 y7 v2 [9 M    ' Constructor for a dialog object
    Public Sub New()

        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
* ~6 M3 U$ x8 d        ptsBlock.AllowMultiple = True
, m  I- V, P( s        ptsBlock.MaskTriples =
% e5 n: R) v, R4 s- K7 T6 {2 w            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
: f4 Y" m8 s6 p- g; s4 f( V        ptsBlock.PointOverlay = True
* M/ q5 O8 l2 A) F        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
$ ~# z+ J/ j. n  i% g        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
* c$ y$ q& L- `6 ?  G& Z3 u6 k. S! @
! k8 k: L/ u- ]8 J6 |6 b9 I        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

* d0 l5 [0 `: D# Y$ h    End Sub
6 o" ~2 X( O2 J. j0 S( J
0 M4 S$ v  v) Q% O    Public Shared Sub Main()
1 c4 O3 p; X, X+ v( Q: ?* E8 ^
& x' u# D7 l9 F. k0 V        ' Create and display a dialog
' @5 O" M# P: q# ~$ l        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

8 |8 X9 y: [% ~4 ~    End Sub

    Public Overrides Sub OnApply()
- t( n5 ?% j  n# }! D
        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
8 X  p! K8 u5 ~& k1 e9 _$ h6 g# u' A        Next
' G5 r# S1 j; D0 h3 y
    End Sub

" G7 K8 z( C9 a0 N" R    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

. O4 K5 h4 h9 \9 x        ' This is going to be annoying so don't really do it!
1 V' ^$ |5 ?# D% r        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
/ W+ P- v: Q/ S7 }$ p8 u            Else
1 K4 N/ O0 k4 u( G# g) q0 ~                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
4 S/ ^8 l9 y/ k
    End Sub

, _) W9 d3 N! w4 V9 {+ _) n) Y5 x* c9 f    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
' p+ L* G; `- A+ x9 A0 f        Return Snap.UnloadOption.Immediately
: d8 L; H" s" Q    End Function
- v, E+ B; @  Y. T# T/ [0 |
* @/ z" R- E6 p4 aEnd Class
5 b( M8 }& S: p+ Q