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

admin

: d  S, ]% G- Z! }2 L" m其实主要是Note的类型的定义问题，参考代码如下：
/ }2 F# Y2 L$ J- ^" U/ P

Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
5 _: A4 E3 t4 H+ y1 j0 D3 `        Dim mask(0) As Selection.MaskTriple
        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
2 S4 |7 a0 r/ I/ j; s( {; v            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
/ I) \' j! Q& j4 ~/ H        End With
1 u  q8 f3 j; u        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
2 `/ q0 g; Q* F6 X- Z            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)

# O, r0 n9 E4 `7 Y1 g* U' L        Dim theNotes(theObjects.Length - 1) As Annotations.Note
' a& q. N  y. |9 p) L        For ii As Integer = 0 To theObjects.Length - 1
( K  G8 K! ^/ q7 t) B8 X            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next
( y% _8 W, s) |2 _$ [
! i: I/ K1 j4 y4 Y$ j        Return theNotes

    End Function