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

admin

3 j4 ~, n" f0 i2 A1 k其实主要是Note的类型的定义问题，参考代码如下：
% Y' K0 [% f# j  K

Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
) j- ?! `: j# ?' s" d; i- U% w8 L        Dim mask(0) As Selection.MaskTriple
        With mask(0)
: ~4 o2 ^% S) n" l) H            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
+ j7 M( I# Y2 N* [# m0 I# |            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
& `9 @( w  N! `            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)

        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
" ]1 ~9 u3 K8 ^            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
8 }! g% ?- s4 e6 Z) V+ H! Y        Next

) ^) B5 r! B1 \* D        Return theNotes
. h4 S" L4 A) i2 F" \1 v; j
; q' z1 v7 s* l    End Function
' [# i+ ^3 `7 L# k