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

admin

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


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
        End With
7 ^6 ~3 s4 H. ~3 e0 T        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
5 s4 p' t. s0 S) K
6 N/ a9 |5 w& j6 b* U0 a8 q        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
& |2 [5 p$ R, \            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
6 \. c3 D/ T5 A" ~% p# }" l
. |) U; r5 Q, p+ l5 v) A# E0 ?+ V( c        Dim theNotes(theObjects.Length - 1) As Annotations.Note
# a3 _! v- `, D( r0 P5 ^1 {7 K        For ii As Integer = 0 To theObjects.Length - 1
/ H! k9 t. R; K! m6 b! R( I$ P            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
/ n  u* h2 W% ?! H% V        Next

! _4 |# l) p: }; i6 e6 E        Return theNotes
4 w& U! U/ O$ |; R* z# P. \# p  M
    End Function

4 H6 C- m& z  J6 I  d! z. g