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

admin

8 l& l. o9 R7 I4 R: `4 ]其实主要是Note的类型的定义问题，参考代码如下：

  S/ c6 L9 B* I; c) T0 n! }1 F
2 M( v- B9 g: x% g, \' z& ? Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
5 E8 c  X. v. h        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
% P- p9 ~* U- N9 |. ?        End With
( E7 q/ r6 S2 @( ?4 g$ o        Dim cursor As Point3d = Nothing
" h1 P7 t6 M0 p4 D        Dim theObjects() As TaggedObject = Nothing
+ x+ D! _  A5 _; X
        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
8 Z4 M6 U+ f( H; G            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
7 U5 Z* f% e* G            False, False, mask, theObjects)

        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next
5 c4 y/ z, J5 o7 x" g9 r
' b7 i: n2 K3 [2 P, B3 U        Return theNotes

% K1 u! v% L: V& d  h1 L4 ]9 q    End Function

. D; K4 L4 h; M/ s