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

admin

/ |) _% @! Q( ?其实主要是Note的类型的定义问题，参考代码如下：
1 X" J3 g0 Z8 S( M) |

' r$ u/ c, \3 k! [) F( X 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
5 ^* O/ F8 j& K* W* Q" I            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
" U2 v5 C8 h6 K- a0 `. v        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
7 C6 O) q. O, ?
- g& Z9 U$ h% U$ m        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
2 N3 |/ g: L1 F5 j* A" g# U
  V6 M% n0 h+ j3 Q8 h' s; r! ?" X        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

& ]0 e4 [% Z9 a: X* M        Return theNotes
# L- }7 m; v# F1 \
    End Function