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

admin

通过对话框选择多个点实例
8 @3 _9 y6 }9 w/ C
; H0 F6 C' r- i; A0 {7 t
  }) E3 e5 V9 q4 LOption Infer On
Imports Snap, Snap.Create
$ t9 D1 h  _( }" N* |+ U
' 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

    ' Declarations of the blocks on the dialog

    Dim ptsBlock As UI.Block.SelectObject
; p" T; h( X( C( d2 J$ F0 S
& Y0 l# R& ]& h& g! N  p6 m, ^    ' Constructor for a dialog object
    Public Sub New()
# P0 C6 u" [4 l+ b
        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
/ {. m3 Y  I4 q* h# Q        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

        ptsBlock = New UI.Block.SelectObject
1 G# n" @5 R6 r8 [; \. k( F        ptsBlock.AllowMultiple = True
1 N% E. u) f1 f9 u7 f4 V3 {        ptsBlock.MaskTriples =
6 g: \9 o( a  R. S/ |) o            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
) c2 {/ Q5 M- l$ J6 i! y- @* Q+ _4 V        ptsBlock.LabelString = "Select locations"
5 {( l& P+ }) s# O        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
7 y' ^! E# k8 b( M( [5 M) z        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
0 d+ |7 p9 r' y) F5 S
        ' Add the block to the BlockForm
# E# J; z* j% N, M        Me.AddBlocks(ptsBlock)

: g3 s% t1 ~! _( K2 C    End Sub
1 a, C+ _4 Z- N* N, F
    Public Shared Sub Main()
9 D- s0 J! B$ V+ R6 A/ A+ o/ c
        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
% U5 e  j, H: h0 p. R6 b
    End Sub

- i8 G" d+ _  ^/ L    Public Overrides Sub OnApply()

( q' |' o! C0 N# i5 ?        InfoWindow.WriteLine("You selected these locations:")

+ f- A; E4 |5 B7 O  s& T        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
$ ]8 y3 C* g/ ^! y            InfoWindow.WriteLine(anObj.Position)
        Next
" _! g6 L5 H3 {& F
9 D0 V/ G; Z3 d5 f7 m    End Sub

; |2 ]) v2 X' J    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
/ B- l# M9 U7 s, h2 O# Q            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
            Else
# U* q* w, ~- E; x* ?                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
) x% `( J, N6 [( D0 W5 n  ]" a' P
    End Sub

    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
    End Function

End Class