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

admin

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

$ W7 `, f3 `; g
Option Infer On
( b% c: ?7 m8 u3 _( G* BImports Snap, Snap.Create

' 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
$ R* B* m9 _8 z+ t7 {3 x
  W6 m8 D8 ^% P4 {2 ~5 Z5 r% X( I# `, v    ' Declarations of the blocks on the dialog
2 [6 A- o# w" S/ M) M
! k8 c$ k* b8 g    Dim ptsBlock As UI.Block.SelectObject
! e" s' {- a/ K( t- J" J7 T7 `
    ' Constructor for a dialog object
" e; N0 a( A, ]+ ^    Public Sub New()

        Me.Title = "Select Multiple Locations"  ' Text to be shown in title bar of dialog
3 r7 k: z* Q" Y6 r* Y' v        Me.Cue = "Please select some locations"   ' Text to be shown in cue line

! x3 ~# {: y3 W) @- L9 d$ {        ptsBlock = New UI.Block.SelectObject
1 m7 c! B. L! W) y1 E- M: R        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
3 l6 G! O3 Q% B8 u5 \/ a  I2 F% L5 p        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
3 `8 W, p; [) c, ?8 J  `6 @
        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub

    Public Shared Sub Main()
5 `: h+ x. B/ V& _5 s( s5 h/ `
        ' Create and display a dialog
! L  j7 C$ f5 m# F# q$ r        Dim myForm = New SnapBlockFormApplication2()
1 X8 C! C) L  G( X7 q& g9 l0 d        myForm.Show()

  J) l* L$ c4 p    End Sub

    Public Overrides Sub OnApply()

- m* u0 E& x& U6 Q        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
& U5 ?- N' R. B( e            InfoWindow.WriteLine(anObj.Position)
        Next
0 S3 W; r7 V: B$ f
$ Z4 ?4 J- C" o# }( k3 w    End Sub

% e7 Q7 ?# u) X7 q* B$ E    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)
2 z; v$ D9 R  Z7 Q8 ]$ B& l
        ' This is going to be annoying so don't really do it!
! R7 \# ]$ v1 X8 L% T        If changedBlock = ptsBlock Then
3 r1 V0 o4 }6 f8 Q            If ptsBlock.SelectedObjects.Length = 1 Then
+ P/ z6 X6 h0 `7 i2 r; ^6 `                InfoWindow.WriteLine("You picked a Location")
            Else
                InfoWindow.WriteLine("You picked another Location")
4 q. [! j+ Z5 t9 Q: S            End If
        End If
8 X2 {: V& ?( c! h# f4 w
1 M3 M: P+ C' [    End Sub
, m1 B9 H1 v1 T8 ?
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
        Return Snap.UnloadOption.Immediately
6 D- ^; L  j8 Q3 q5 p- p    End Function

' B# [6 h& B$ q( r( VEnd Class
3 O1 t8 ]3 F; X, o% Y