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

admin

. ]& U- I8 A& H* H7 I其实主要是Note的类型的定义问题，参考代码如下：

3 Q$ V  ]$ B" H) E2 y* u
) i1 `$ i0 F/ W, Z5 \0 s8 [ Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
* P0 N$ @5 F( C" `        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
) l% w5 W3 o9 W6 E4 O1 U4 U            .Subtype = UFConstants.UF_draft_note_subtype
0 O! E9 B, v5 x( d$ R" Q$ |" P            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
4 R% L, w" h8 I3 B* N+ R6 d, E% B        Dim theObjects() As TaggedObject = Nothing
6 E) O7 |' k3 M; D, [' {  z5 Z
* Z. p$ N, I8 X& Y" E        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
  D5 I' |5 p8 d6 w2 `: t! N( @& n* ~            Selection.SelectionScope.AnyInAssembly, _
! Q$ R, l3 C: k' E, a            Selection.SelectionAction.ClearAndEnableSpecific, _
, ?* _' a' F  [1 ^            False, False, mask, theObjects)

! K9 J4 m$ E( ?# o5 ~* Z        Dim theNotes(theObjects.Length - 1) As Annotations.Note
9 o. e& u' X7 q$ W        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
0 n+ V, k7 V2 n) [; ]        Next

        Return theNotes
: `, P2 Z$ W4 C- n
    End Function
# Z. X7 I. z( y8 ?
- H9 q# V) @4 ], f