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

admin

其实主要是Note的类型的定义问题，参考代码如下：

; `' u) Y" d/ e- X8 m' V/ K5 Q4 R
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
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
6 _3 r9 o* m0 H4 w* b2 T        End With
        Dim cursor As Point3d = Nothing
( P9 v) c/ l7 K8 m. I        Dim theObjects() As TaggedObject = Nothing
( M" m! _% A: O! {
        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
* G9 J1 C5 U5 A' M2 w0 @* u            Selection.SelectionAction.ClearAndEnableSpecific, _
            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)
; b% y& b0 i3 ?* a/ s        Next

        Return theNotes
6 T: a; ]  V$ v5 ^" [1 R
    End Function
# y- V7 S, A. I3 o5 p* v3 A
$ l( y; ~1 l% {1 I