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

admin

通过对话框选择多个点实例
' O( h% j* x7 f( q3 [$ V' [% q

Option Infer On
Imports Snap, Snap.Create
( T* |9 B; G0 z
, L5 |, ~2 d3 |' z' 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
; a3 Q" h, a( c0 D
" ^% y& R* H3 `( B- S0 ~6 a) _    Dim ptsBlock As UI.Block.SelectObject
5 V/ j+ ^4 V; L. t! Z4 T
    ' Constructor for a dialog object
% x! p3 X+ G+ y" F9 u    Public Sub New()
9 |: p% H+ R# C! ?
        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

        ptsBlock = New UI.Block.SelectObject
+ h2 d+ G" l( h2 `        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
2 R' E0 }6 q- I5 T3 @7 W            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
5 q& Y! y# t: k% c; ~. L$ m3 f8 Y' u' ]        ptsBlock.LabelString = "Select locations"
0 v; a9 ?, F: ]7 e5 X        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
; `  W* [: }/ ]. q3 j4 J        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
1 B& V  t, m7 p4 \3 q" u
. I; Q  i  \) [; @! B2 w0 B        ' Add the block to the BlockForm
0 d) L" |9 ~1 [# @7 a        Me.AddBlocks(ptsBlock)

    End Sub

! ~4 n7 `" Y& g$ H    Public Shared Sub Main()

1 B& A/ j8 t9 @/ u' m        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
' s; T- Y( z* J' {% i2 c
' r7 ^/ n8 S" i' t( ~    End Sub
( Z! U. z4 n8 s0 N# G5 [: B- v
# z; [. T: V9 @# [* i0 k- T, Z- H    Public Overrides Sub OnApply()

! L# S* V5 G) Q4 U9 Y' @        InfoWindow.WriteLine("You selected these locations:")
1 t( h2 z5 j3 `! d  N+ K$ T! |! \. \
  }" R. ], v# V& \" V        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
            InfoWindow.WriteLine(anObj.Position)
9 O# A( M- a% k        Next

) F$ F0 D7 f' N5 Y; s    End Sub
5 _8 K8 V: ]; B  ]- {5 Z
    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
! w4 m1 b3 S9 e6 D4 X% E) x
        ' This is going to be annoying so don't really do it!
. \/ f  \2 n: d5 f0 ?% a2 y' l        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
0 {6 i" F4 H3 f' h& k5 L                InfoWindow.WriteLine("You picked a Location")
            Else
. R9 Z4 Y$ s( P# {                InfoWindow.WriteLine("You picked another Location")
            End If
9 {8 U2 T% O- `0 G4 ~        End If
% ^7 W* H& x8 M
* J; W, b1 {8 b& D( y7 w  y    End Sub
2 C% Q' k' ]1 D! y
8 B- {* s5 [% [6 n    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
    End Function
2 l# i! A& p$ S0 J& b6 @( P
End Class
! e9 `3 ]% G) D