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

admin

通过对话框选择多个点实例
# R4 E$ N, R. |0 \

8 ?: J7 c) \& \+ fOption Infer On
% [6 s9 q9 O. W, H" W" }" l( JImports Snap, Snap.Create
, v. Q# u* y0 y, H4 N" ]8 `
7 M: p) a0 ?6 X& y7 R" G; h' This is a very simple example showing you how to use a Snap.UI.BlockForm
4 q& @. z/ U/ u$ }" z$ Q' 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

  v5 _2 |7 Y# h    Dim ptsBlock As UI.Block.SelectObject
6 b! P4 O7 y. ]7 f, B( Z5 J9 v5 f
2 M' C; T1 ?9 [8 a    ' Constructor for a dialog object
" c6 v( d. c9 {) m! l) U    Public Sub New()
' M- m( M3 w- ~1 O" E4 s; O
        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
: Q) V1 }7 `- L* `3 ?' t; Y5 g: d
4 A2 c# E9 Q5 ~' S: m        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
  l' d$ l3 y+ d, i& V        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
% d( _1 W, C/ |        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub
3 P$ ?2 K5 f: l0 t( R
6 Y# S4 A. y, u! }) ~  Q    Public Shared Sub Main()
9 t7 y- V/ d9 S2 w4 S+ B5 U' ?! z
        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
" N6 P' A& F0 [3 @& I        myForm.Show()
) c9 T, y5 l" y6 Q) c& T* U' M
    End Sub
) \- E% u. P# W' ~% _) W
$ F6 N" H1 J; X& g; X3 h, ~    Public Overrides Sub OnApply()
( [. x3 D7 H, Y
1 Q" S$ K% n5 h" z" M+ W2 ~$ I5 ?        InfoWindow.WriteLine("You selected these locations:")

0 f5 b6 N' P  E0 [4 N9 _        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
, R  _3 N6 k) w- y. U        Next
" q7 M) x: h9 d6 ?6 ]6 g
    End Sub
) r! Y* J3 R7 K4 j. {8 s
: W$ r4 e$ i# }8 f) {    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
9 e: W: A+ S1 ~: W& Y5 y
        ' This is going to be annoying so don't really do it!
9 X  Q4 u0 S1 a4 P, T* I' X2 l# a$ a        If changedBlock = ptsBlock Then
$ f) H% _8 U9 ]- Q; F) X            If ptsBlock.SelectedObjects.Length = 1 Then
( a: U' y2 M# r) V9 p4 V                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
3 Y5 Z  z3 S2 [$ @! v
    End Sub

. |! r$ C4 D2 ?/ Q  _( v" l* t% p4 Y    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
    End Function

/ i# }! C- m1 K  o4 |End Class
4 l, {- o5 T/ {+ `; v! T3 W