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

admin

通过对话框选择多个点实例
" _% V$ N8 x6 Z+ O3 w1 M: F7 S
) G) D: {% x, N. t# j
Option Infer On
Imports Snap, Snap.Create

( e3 J( D* i; F/ v; {% ?% J5 M! q' This is a very simple example showing you how to use a Snap.UI.BlockForm
8 L$ ~( u7 J" d1 e2 i! l* ?3 T1 W' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm

    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
# O9 w+ D1 ^, [4 I6 d5 ]: |# A! h    Public Sub New()
1 f7 [6 y' \* p0 s
        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
. S5 a$ J7 ]$ ~, N5 C        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
3 M$ @0 C. _; n( V
- }7 U% H/ J' Q0 \7 }0 G: y        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
" K3 E1 \, k: t9 S7 r- Z, j            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
! R# J, q2 i' p& m/ o6 X' T6 i9 q        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
3 T$ h, U' R5 W- o
1 W/ B6 h" Z7 g' d        ' Add the block to the BlockForm
- y7 A" k1 b/ |, W/ r        Me.AddBlocks(ptsBlock)
% M8 r2 K$ c" L; u) {
    End Sub
1 l5 }( t2 b4 l. c# s& A
# ?+ w2 F' J# `; A    Public Shared Sub Main()
9 X+ E4 A- w* k
        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
$ z4 k% p& ~. K0 v" l6 R        myForm.Show()

    End Sub

8 D- z, l& \! ]$ y) v1 X, R' b    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")
7 Y' F+ f) [) m0 R
. b; \+ o7 b) K" `& h        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
        Next
4 R/ x1 U. i5 X- `4 P* c$ k
+ K5 ]+ }  K" q( o1 y    End Sub

    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
( ]& g* `$ x$ P/ c
        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
: \- k6 a  z/ ^4 m) K4 [                InfoWindow.WriteLine("You picked a Location")
+ i3 Q- [; S$ r# Z2 p, d" `5 O( [  q            Else
                InfoWindow.WriteLine("You picked another Location")
# @( x2 ?: x( Q4 d' Z* Y            End If
        End If

, r6 f1 C. h, P/ |1 _5 P    End Sub
# Y: |/ U! x# [
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
4 ]. g3 @8 o- ~# I- i    End Function

End Class