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

admin

通过对话框选择多个点实例
4 B+ ~7 x/ V/ F7 b: {( L. d) h
! B) I2 `" F0 ?6 R
$ g9 y# W( U2 H2 c& V* O7 bOption Infer On
Imports Snap, Snap.Create
. k) \! \) s0 v/ b" m; X' S  M0 u
' This is a very simple example showing you how to use a Snap.UI.BlockForm
5 u6 F" J/ {5 m' v& }4 H. y6 y' to create a dialog that enables the user to select multiple point locations at once.

, Q: t* H* O; T: _9 h  V' f% U4 Y, mPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm

    ' Declarations of the blocks on the dialog

$ `! c& D1 z6 Z3 ~: {    Dim ptsBlock As UI.Block.SelectObject
/ U; o. Q5 D4 I- a% W! `- x7 @
7 K: P) Q0 f7 x/ K* b    ' Constructor for a dialog object
! U' P! t% W# b9 ]9 A- Y    Public Sub New()
$ j" Y( ^5 `: d! T! s& K$ o4 b
        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

# e/ y; G+ L1 p/ S3 F; |# {        ptsBlock = New UI.Block.SelectObject
        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
4 y4 X6 \6 _" |            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
0 p& l& F" O" [. Y3 w$ A        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly
- P/ |) M, w5 i' [; m0 ~. h+ K
        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

    End Sub
, _- N+ w/ C' t9 |6 d
    Public Shared Sub Main()
7 M/ y; I$ a9 B
& U2 G! c* U( m        ' Create and display a dialog
1 [) T# g2 s# C, r1 f        Dim myForm = New SnapBlockFormApplication2()
        myForm.Show()
8 ~! v$ ^8 t6 M5 t  |2 ^6 ]
    End Sub

    Public Overrides Sub OnApply()
! w3 L# x8 [& w. M" r1 r+ B1 u
        InfoWindow.WriteLine("You selected these locations:")

        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
. Q% Y- M2 [' z3 k$ x            InfoWindow.WriteLine(anObj.Position)
' r5 R4 ~7 k# f        Next
* I1 [0 h8 i  v7 L" {! @6 ~. V  h# y
    End Sub

' e5 d9 S) w3 g* A3 G* r    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

        ' This is going to be annoying so don't really do it!
! O4 F1 {, k4 H        If changedBlock = ptsBlock Then
            If ptsBlock.SelectedObjects.Length = 1 Then
                InfoWindow.WriteLine("You picked a Location")
  d; E4 F* k  J! ^' e8 c  n5 {            Else
/ |+ r4 ]2 Q* }/ S: j8 [9 h$ e5 K                InfoWindow.WriteLine("You picked another Location")
            End If
        End If

    End Sub
3 u, y# N' |, B7 `
    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
/ }6 A% J* E; K! j* [        Return Snap.UnloadOption.Immediately
    End Function
% i1 p! v8 w3 G) _+ m$ \! t6 T
+ W0 _0 d/ G9 ?1 s: kEnd Class
; u/ ~8 o5 [9 _# ~" R1 m