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

admin

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

/ X8 j6 v& _  k& M2 v) M
Option Infer On
Imports Snap, Snap.Create

2 ?; A% H* Y' a/ N& u2 K) M' This is a very simple example showing you how to use a Snap.UI.BlockForm
, Z* X' C2 ~$ }# M' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm

4 J! _  A- \! g. b5 l    ' Declarations of the blocks on the dialog
. r2 H, C7 F3 ^; t4 V4 F0 V
    Dim ptsBlock As UI.Block.SelectObject
- o+ ]6 O. M, x
0 }' z* M- n( I, S9 i2 e1 ^" [% s    ' Constructor for a dialog object
    Public Sub New()
" A/ f  e* ~, J* k
; U! K, z! G8 G0 B- y        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
% _& Y0 {7 \' }; R( F        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
- a) \' p+ d, G- x7 Z7 z# f  U0 N            {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)
- @  Y! E& \/ {" Z1 C2 O, P0 w        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
# g: n6 i. D; A: H1 ]
9 n" [9 r  B" i        ' Add the block to the BlockForm
3 G% t& Z, ?: j        Me.AddBlocks(ptsBlock)

    End Sub

$ C( ?5 Z) m! M+ C; x2 t9 I5 S$ C    Public Shared Sub Main()

        ' Create and display a dialog
) c# E) G& Q/ |; h- b2 P1 t        Dim myForm = New SnapBlockFormApplication2()
' O( r4 I4 v2 q0 R5 S. n( d        myForm.Show()
9 D/ H% Y' b/ g
1 S& O3 F, o! E4 @    End Sub

    Public Overrides Sub OnApply()
; u5 D, ^% ^5 w8 M. p8 r
* o' M+ E5 J4 b+ F) m        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
2 E) Q. p: O; R& R+ h            InfoWindow.WriteLine(anObj.Position)
        Next
- t$ ?  H* N7 j  `
& \' A! ?6 G0 Z    End Sub

8 y/ t9 O: E% B( k  y9 W    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
            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
5 h; \% B. T& d* O4 d" D% M) ?            Else
7 V. u; w& `9 j: c& x/ H                InfoWindow.WriteLine("You picked another Location")
7 g4 N5 _% i. Y+ H) \. S. H            End If
6 U% m$ Z  M2 \! w        End If

+ m. D1 x( i% _3 I    End Sub

7 ^2 g+ Q/ ?5 W+ f  n. O* }    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
    End Function

2 a4 V- O! h4 l# D$ `% N: jEnd Class