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

admin

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

  n7 x# D! s5 k; X2 C
4 ?3 w4 o8 q) |  [6 p2 `  f3 b" x8 c, VOption Infer On
Imports Snap, Snap.Create

7 K6 x& G0 j- s$ N& J( R  }+ ~' 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.
0 ]+ w7 t' o: |+ Z+ Y) b& X
& \; L; E+ G$ \- CPublic Class SnapBlockFormApplication2 : Inherits UI.BlockForm
, m2 f" n; l9 p# e5 |" Z/ Z2 i6 R
6 R9 @- A6 o! G, T6 r    ' Declarations of the blocks on the dialog
% o) V8 Y1 Z& R( `
    Dim ptsBlock As UI.Block.SelectObject
( Z% [/ G; J2 E2 O
( u: T6 ]/ F2 B- g1 v0 S    ' Constructor for a dialog object
, _2 b- @: \7 r' c    Public Sub New()
" p6 @, L7 [9 J# P" q
: |, O; j: V$ c6 h        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
" o( ?$ D0 ?: S$ {        ptsBlock.AllowMultiple = True
        ptsBlock.MaskTriples =
  j6 d" C# x+ i- V0 I0 r" c! H: m8 a            {New NXOpen.Selection.MaskTriple(NXOpen.UF.UFConstants.UF_point_type, 0, 0)}
, M0 L# e5 X+ R! W: R/ \1 p        ptsBlock.LabelString = "Select locations"
        ptsBlock.PointOverlay = True
: b9 a# o0 C; L+ t' @8 p; l  ^        ptsBlock.SnapPointStates.SetAll(UI.Block.SnapPointState.Selected)
        ptsBlock.MaximumScope = UI.Block.SelectionScope.AnyInAssembly

7 `5 n* v. M/ l4 k" {4 Y, `        ' Add the block to the BlockForm
        Me.AddBlocks(ptsBlock)

1 R' w* _* u' [, r    End Sub

    Public Shared Sub Main()

) s3 x5 z, U: C3 d8 N' h  p  Y4 o        ' Create and display a dialog
        Dim myForm = New SnapBlockFormApplication2()
7 o. |- I. M) O5 N        myForm.Show()

    End Sub

    Public Overrides Sub OnApply()

        InfoWindow.WriteLine("You selected these locations:")
& f3 y2 c$ v) W
        For Each anObj As Snap.NX.Point In ptsBlock.SelectedObjects
* L/ W5 p/ ^3 {3 Z            InfoWindow.WriteLine(anObj.Position)
        Next
  I- e9 Z. N% ~4 r
    End Sub
8 P* P2 s. T# L7 a" K! A! [4 Z3 c1 W
& s9 l4 V9 F2 c& c$ ?    Public Overrides Sub OnUpdate(changedBlock As UI.Block.General)

9 H% z" e! g4 t4 V( N        ' This is going to be annoying so don't really do it!
3 B, [. ~# N1 z. N7 e9 s        If changedBlock = ptsBlock Then
; i/ z# p, U7 G8 g6 p            If ptsBlock.SelectedObjects.Length = 1 Then
2 W* Y  i; ]; V$ i. \+ F                InfoWindow.WriteLine("You picked a Location")
& C6 ^; _8 z5 T$ x9 n7 }: c) D            Else
  h; o* {  u8 }0 L/ f/ \                InfoWindow.WriteLine("You picked another Location")
8 {2 S, a8 [1 U2 ?) g: W/ \            End If
% T$ k- I5 H+ @* B        End If

    End Sub

    Public Shared Function GetUnloadOption(ByVal dummy As String) As Integer
* P) U3 U& k. d# y- A  G        Return Snap.UnloadOption.Immediately
    End Function

0 j  f# J. t. C1 `1 o( ?6 uEnd Class
% R9 `* A$ \' ~1 O