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

admin

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

  }# N/ Z3 ~! \9 d
Option Infer On
Imports Snap, Snap.Create
! C, w# |$ }7 l8 \* k
' This is a very simple example showing you how to use a Snap.UI.BlockForm
, g, i/ }5 X$ N) |' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
4 t$ E  h9 b. g! e* F! ?$ f7 t
/ v5 K% p$ x1 k0 v6 T$ C3 d" Y" x    ' Declarations of the blocks on the dialog
, @- a5 f. v4 r1 N* g8 F
    Dim ptsBlock As UI.Block.SelectObject

    ' Constructor for a dialog object
    Public Sub New()
) [) y# l& c" V2 x3 P7 m# w8 p
        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
# `* m- d  a' W
9 z$ `( L/ Y5 \        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
4 o. ^/ Y5 p( a2 c, L        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
- D$ u& W$ `% |4 _' L2 Y2 U- a; v        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
8 d6 V( k" h( y1 x3 R& E
        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)
' Y/ |- N: X7 D! X% S
    End Sub
6 Z: ]( v2 }2 u" ]9 ^& X! @& n( u
5 H; _) t( n. b2 D9 o    Public Shared Sub Main()

        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

) S$ H$ l1 @' O' ]9 g4 M0 w, Q    End Sub
( ?% ^% S, O/ z( B+ e
    Public Overrides Sub OnApply()
- O2 ~2 ^  E: z8 c# }/ r
        InfoWindow.WriteLine("You selected these locations:")
8 u9 T8 f. s6 n- ]* V
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
        Next
& S$ Z7 N7 @5 l# ~0 ?9 \# q; M
    End Sub

( _& ~# [1 H+ J$ M3 X    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
6 X4 |# W- C6 q            If ptsBlock.SelectedObjects.Length = 1 Then
/ W8 s7 k, }. z4 `, G' S                InfoWindow.WriteLine("You picked a Location")
            Else
; ~0 h& Y  C3 G( l& i9 n4 T$ z  j, k                InfoWindow.WriteLine("You picked another Location")
! {. D6 f2 f% x" Y& ?            End If
        End If
0 |( l* y2 ~1 \
- m# l/ D* F2 F  _9 R6 h    End Sub
3 t" [. y1 o  ?  S8 ?
* p2 J& `7 c& `" Z" o    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
- h6 O" \1 `3 f2 E        Return Snap.UnloadOption.Immediately
    End Function
, a+ `: ^, k2 T0 O' H
End Class
$ J( n5 W2 @0 k- w