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

admin

- p" a6 G) m$ \/ X
. ^5 D' t5 T/ A% D% ^( b其实主要是Note的类型的定义问题，参考代码如下：
) R9 n. m2 G. p# Y) c
6 ^3 v0 Z; L2 F, l
Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
- W0 x: j, C, O8 E) |* \; j' M            .Type = UFConstants.UF_drafting_entity_type
: Q1 a7 q( S1 `3 T3 c: {# V* p            .Subtype = UFConstants.UF_draft_note_subtype
- F% c8 Y) d, T; c1 c            .SolidBodySubtype = 0
        End With
/ i" Q! Y" l: `        Dim cursor As Point3d = Nothing
2 y) O# I7 G. T; j        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
, w+ u, {: b' E, Z; H+ u            Selection.SelectionScope.AnyInAssembly, _
6 N8 S2 j- V6 {' f6 H            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
. n  i0 _8 Q! J8 j  z9 B
' q( j0 r) P, j+ w  Z- E& J        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
% j: H* k3 N9 G$ k5 Z) [            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
4 E  K2 j. q4 R5 w        Next

        Return theNotes
2 M+ W4 Z1 d$ K0 N' w
0 `/ @, w, d8 ]/ D9 C8 R; A4 q1 q    End Function
- l2 B  ~+ D8 [2 Z