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

admin

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


Option Infer On
/ O+ i$ r6 Y! Z6 X+ }2 y+ R1 ?) c0 A7 tImports Snap, Snap.Create
) M9 D: w( l- b3 V
' This is a very simple example showing you how to use a Snap.UI.BlockForm
7 m/ S8 p/ g: N) I7 ^3 i; T" i' to create a dialog that enables the user to select multiple point locations at once.

Public Class SnapBlockFormApplication2 : Inherits UI.BlockForm
7 K, k2 |: V! D2 K# [4 h! Z
2 y* m  U, `) \. ^* ]6 k( ^: i    ' Declarations of the blocks on the dialog
7 b7 X/ d# f& n$ M
( O) _" l$ P+ D5 f, x    Dim ptsBlock As UI.Block.SelectObject

6 I0 ~$ o1 O' L1 }' H, J    ' Constructor for a dialog object
    Public Sub New()
" w8 a! d  p. k. n
; `* \+ w9 o2 m0 m1 X; `3 W. I        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
6 p* V, _% B2 }+ V) V0 H
$ v: e7 g' S' y8 w        ptsBlock = New UI.Block.SelectObject
  M' Q! Z1 W; o. k        ptsBlock.AllowMultiple = True
: m2 R1 _$ J9 l9 b: R+ c        ptsBlock.MaskTriples =
0 p. ?3 m" J: b  U* [            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
" F, G1 ?9 _2 [% ?* F6 J: K        ptsBlock.LabelString = "Select locations"
8 K% ^9 y8 }9 A; D        ptsBlock.PointOverlay = True
        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

2 i8 B! L0 |! _4 ?- F# w" ]* b" ~        ' Add the block to the BlockForm
8 \. a3 s) N8 P2 N, ~7 N        Me.AddBlocks(ptsBlock)
+ a! I2 K  r! C0 V$ T3 G7 [
    End Sub

6 w" {3 p$ a# @) M! c9 c# i9 `    Public Shared Sub Main()

        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()

; y+ |# O  U3 l. p% T. z    End Sub
; k  j% j6 z% O9 M+ a  i
    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")
1 L; |, i" h% O; o
  O0 c" b3 {# J        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
9 K, k2 I) h) D: ]            InfoWindow.WriteLine(anObj.Position)
        Next

7 Q/ j/ @9 e5 o+ }    End Sub

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

  }! K+ e; k/ s" V, ]9 h        ' This is going to be annoying so don't really do it!
1 ?6 ^/ a0 x! T5 [5 h! \        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
( V* p( B/ V4 [5 B                InfoWindow.WriteLine("You picked a Location")
- r* I% r! L' L. [% Y            Else
0 e9 X, @5 k4 p2 v                InfoWindow.WriteLine("You picked another Location")
            End If
        End If
* p6 T6 @( p# R8 H, q* b' Q
6 P1 M  l; m# u. ?* u" q% u    End Sub
; f/ z+ P6 Z0 r- `
3 u# H& W- M  n" \' z* z    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
1 K" B# L. g  m4 b        Return Snap.UnloadOption.Immediately
    End Function
2 L- ^; @& W6 y9 U. x  B
End Class
6 s; g2 A- \. x- F: D