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

admin

其实主要是Note的类型的定义问题，参考代码如下：
2 x* }4 H9 `, F& a3 q

Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
8 Z, ]  v- R9 r7 @+ M8 R7 D( O        Dim mask(0) As Selection.MaskTriple
        With mask(0)
! D1 f2 L8 F% q8 @+ z! O! b            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
& s1 k: f: w6 H" {5 @7 y        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

6 d! l3 s/ J, H* E. u2 c) J) V7 o        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)

% m; K8 {: f. c% J        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
. {8 u) j, N# C7 o            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next

. P& `- s* H0 l* K4 ], J6 B        Return theNotes
& a3 ~* C3 v; z
  @) a8 V1 v0 O5 M: k1 _% c8 x    End Function

0 s$ c& k" Q# p/ k! Q& y* L4 h# `3 L/ H. Z