NX二次开发源码分享：使用.net 选择注释Note功能

admin

: i! C0 i: d, o
其实主要是Note的类型的定义问题，参考代码如下：


( U0 h2 d+ G! t2 d5 H! Q; L Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
+ I; s/ M- y! s- K        Dim mask(0) As Selection.MaskTriple
$ m8 m+ |$ i4 M3 d% G        With mask(0)
% Y$ K! V/ }  w- _2 z9 Q            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
  l$ q4 g; S$ v8 S        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
% w: M4 I; D/ d7 V. o  d
$ c5 x' s+ S6 K        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
6 f; j2 {  B4 q) E6 A) f            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
7 R4 \3 _* D3 J0 _4 H2 p" s
        Dim theNotes(theObjects.Length - 1) As Annotations.Note
; z/ Q( E8 H( Z9 P( c        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next

        Return theNotes

7 X$ l  L1 I. B6 z    End Function
. ^8 _* _& ?: v6 N& D; y. |