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

admin

通过对话框选择多个点实例
& B4 l+ H# s! o6 F* E; G! ^0 `( Z
3 @" H2 m- c. d
; e5 L) `8 [# _  O6 ^Option Infer On
Imports Snap, Snap.Create
+ h; W: N- g% V8 r! ?
  z5 G+ j( T/ {2 b' 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.
, `" X7 M! i( s
+ D/ Y) W  u2 APublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm

5 o- Y% I+ J1 ?7 d9 N  ?    ' Declarations of the blocks on the dialog
# I7 a/ ]5 c! i( P  B
. D; I/ V# s; M7 q& I: s/ F& \- \0 U    Dim ptsBlock As UI.Block.SelectObject
2 A% |: G# s, z; Z, Y
/ w& H- ^7 Q: y) x1 I0 p    ' Constructor for a dialog object
$ o5 O" L6 z5 o* n( b. _& {    Public Sub New()

* H; J4 C5 ?* z0 g- k* S( j- c2 y        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
: X4 R& g6 ~8 u+ }" J0 q8 k# k
        ptsBlock = New UI.Block.SelectObject
! n$ P. c2 Z% F" P        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
# r( c- {# ~! i- G2 K5 j        ptsBlock.LabelString = "Select locations"
- N+ g" u' n$ t  Y2 i        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
  K/ L5 c) Y+ O4 v2 ]        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
( R1 b5 s7 J, N  j) m5 a
        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub
# [( i- Q; e+ U
    Public Shared Sub Main()
% `1 V( ?0 E. X/ V. D( |( W
        ' Create and display a dialog
! `9 E$ |; k# j) g; E0 ^        Dim myForm = New SnapBlockFormApplication2()
# O: X0 O2 s" I- _* K5 x        myForm.Show()

- z$ u$ V8 q" s! z9 Y* W    End Sub

    Public Overrides Sub OnApply()
! x0 z3 R' ]# Q; E; ~- z
        InfoWindow.WriteLine("You selected these locations:")
2 y2 _& e/ V0 c( \& l/ s
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
6 f2 t" z- ^9 l9 _7 ~# s            InfoWindow.WriteLine(anObj.Position)
% k3 Z+ g: c' u        Next
; B& l0 E- V. O9 {3 V% g6 N
    End Sub

    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

: w% B- x2 j9 y+ \7 M, y" K; x        ' This is going to be annoying so don't really do it!
  t. j/ }8 r; r- F* A  F6 e        If changedBlock = ptsBlock Then
* W5 @3 e4 |( n) d/ Z            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
$ g% e! v$ t7 n$ I% k            Else
% D* u3 {, i. l6 Q, [2 r$ m                InfoWindow.WriteLine("You picked another Location")
0 g" h  ?. ^( b: `1 P# T2 P7 ~            End If
; K& k& X8 d" I        End If
% n8 ]) o0 a; C& |( ^8 ~# L
    End Sub
+ S  ~9 L" P# o0 K3 G4 d
4 E# l* F9 O9 f    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
- y6 D* |8 L) ]4 f( i# U# k* o  N        Return Snap.UnloadOption.Immediately
+ `: O& ^# v$ ^2 L1 B/ R    End Function

End Class
/ t/ i: X% y; r