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

admin

  P, t! I1 i$ k% V1 Y其实主要是Note的类型的定义问题，参考代码如下：
& @7 ]/ L* S9 w% O# l

0 d0 m+ h6 o. g$ x$ F) Z Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
/ c' P! r# s% y4 c1 f5 v' d  E            .Subtype = UFConstants.UF_draft_note_subtype
2 `! J4 w& `, R; z' D1 d            .SolidBodySubtype = 0
        End With
) U8 `, [/ l5 h- Q5 Q4 t        Dim cursor As Point3d = Nothing
4 V( R' m" O2 M3 R7 z        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
- Q0 ]- D: A: P% o) Y! @            Selection.SelectionScope.AnyInAssembly, _
4 ^0 G) u4 U0 \            Selection.SelectionAction.ClearAndEnableSpecific, _
2 Q- f7 F9 i( ]% I& g8 T            False, False, mask, theObjects)
' J* k- e' n8 Q( C: r3 V3 ?
        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 l, F5 O8 K7 h2 o6 O
        Return theNotes

& c! [% F) z; g. i6 ~7 j% @& O- @    End Function