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

admin

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

$ ~* I+ v% O" u0 k' U1 F
% v0 ~- c1 N; \" x. pOption Infer On
" u; i& ]$ N0 `) `7 `5 b, hImports Snap, Snap.Create

8 V+ i: a4 `$ W! e6 p& n' 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.
" F& U% o1 _# `$ O1 N
6 {3 G% X& B! E- uPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
- o& h+ S% _& n: b  Y& P. s
* M% Q3 t9 I, g2 m- {6 R    ' Declarations of the blocks on the dialog
5 y/ R* h9 c1 _
    Dim ptsBlock As UI.Block.SelectObject

" W  @1 v( q; {( G5 e    ' Constructor for a dialog object
    Public Sub New()
6 {1 n& y0 v. F3 R, i4 Q; K1 @
/ ^1 v; @: L$ h1 {! l1 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
. z2 K+ [' V) e+ z& D5 R
        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
- A+ d# _8 U* P! Q" g% N- n* J. ~. Z            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
6 ]) g& \; i. Y; p9 \        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
% |4 c; {9 `8 h( ^( n        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

. N3 F  `! L' r        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub
$ _- }# L) z# s% ~* Y
    Public Shared Sub Main()

. \5 L2 ]; i2 ]/ x& V  R( R        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
: x' y  y  q5 H
    End Sub

4 Q) \% U4 x9 T    Public Overrides Sub OnApply()
, s' q" a% a* `5 R
        InfoWindow.WriteLine("You selected these locations:")

5 T) }, N! G6 i9 t# M( C" @: R0 Z        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
4 O7 G" l' D" Q) F( Q# v            InfoWindow.WriteLine(anObj.Position)
  j0 Q3 T( Z- K4 {        Next

    End Sub

, B3 v" W4 }: m( p/ g  }    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

  x3 h9 {2 T  s        ' This is going to be annoying so don't really do it!
        If changedBlock = ptsBlock Then
+ h# L* S# r8 A8 f            If ptsBlock.SelectedObjects.Length = 1 Then
/ Z$ |% ^% Q5 q# F                InfoWindow.WriteLine("You picked a Location")
! d/ m; b$ S4 i# w8 A            Else
                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
$ o6 `' h1 ~0 g4 P2 e9 I  y
6 ]$ [$ |6 j# m7 x5 n6 m, \    End Sub
: k# I2 J! Q) R# \6 ]
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
" r$ u0 F+ U" u1 v7 E2 \    End Function
! l1 P( b0 i5 i( z1 i, P2 _
End Class
, Q# e9 T) s. E; I! n- P