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

admin

其实主要是Note的类型的定义问题，参考代码如下：
0 n& x5 B5 E2 A; y7 v

: G# h) a9 X  \ Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
( C1 T" x: A- w0 {* z        Dim mask(0) As Selection.MaskTriple
! M3 _* P5 J- x1 O( Q) s        With mask(0)
! q, g8 u0 `( j* u* I& g- J) U: O4 L            .Type = UFConstants.UF_drafting_entity_type
% K9 }7 Z9 E4 a/ X) d" Y            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
! f6 \+ b: g$ g( e2 t4 A* M. w        End With
        Dim cursor As Point3d = Nothing
5 @5 l2 b' Y1 l* C! u) K        Dim theObjects() As TaggedObject = Nothing
. d- ]( r9 p/ |) w( ^; d9 o
1 h/ P4 P! c8 ~9 r: W        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
0 ^& \: g2 R- c' K$ S- n            False, False, mask, theObjects)

4 R; c2 J! d" ^* i, _        Dim theNotes(theObjects.Length - 1) As Annotations.Note
( h. l# }& q/ [3 [8 A4 L, w        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next
+ P* l  m. W3 F
        Return theNotes

- {2 s( [) t& @    End Function
7 @) l8 `5 L6 _% O( T7 y0 M2 ]