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

admin

通过对话框选择多个点实例
2 ^  C& V- v  g7 g3 R5 Y( f- ^( e
1 t, q' v3 y. i& G$ F; U
Option Infer On
Imports Snap, Snap.Create

' This is a very simple example showing you how to use a Snap.UI.BlockForm
' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
3 {5 Q% V/ x% L3 [- n0 g1 [
    ' Declarations of the blocks on the dialog

# L8 ^! D  V  C    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
    Public Sub New()

        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
: {1 Z+ [! t% _) |1 A" u0 z        Me.Cue = "Please select some locations"   ' Text to be shown in cue line
2 H3 i* z7 U: Z* x. w/ }! t3 g% `
6 Q  q/ s$ q4 U& z+ p6 _0 q) a        ptsBlock = New UI.Block.SelectObject
' |# o$ Z: A2 \7 f$ \5 p3 }" c' C        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
4 e' a2 f6 d! g/ l1 C            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
7 l8 @7 Q6 g9 @9 w$ o; f        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
/ y: F7 ~# H+ n/ s# S2 \  x        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

# j0 P' W% o- i* t        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub
" E( }% T0 Q7 Q& e
    Public Shared Sub Main()
3 V7 m* {: d- A" ^' }% M& Z
        ' Create and display a dialog
' e: g! t( m* g$ S- m- e% {        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

    End Sub

0 O& s0 O9 D; X) }' I: P" ~7 Q    Public Overrides Sub OnApply()
: z' i5 G7 i% {! L/ `3 u  b
        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
7 X( C: t# J7 @; ]7 B0 e; g- Q- _            InfoWindow.WriteLine(anObj.Position)
        Next
, [  _# w' a( |
    End Sub

8 d1 M3 w2 Y/ f; j# y% H: Z    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

# K& b: [2 ~4 m( s! h        ' This is going to be annoying so don't really do it!
4 d1 V3 S5 t5 i) x# v        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
1 X0 y- {. s3 d                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
1 w: z+ a, Y+ V9 b
4 l: S$ q* _. X' _  L% t( O( i    End Sub
& m, E3 R7 h3 D1 b) C
- }5 q( G9 p& {    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
    End Function

8 V% s6 y/ |" Z! _* Y. YEnd Class
- B1 z6 u. l0 ^8 F+ }