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

admin

: G0 v/ i0 x3 m6 L3 A0 {其实主要是Note的类型的定义问题，参考代码如下：
- e8 R, f" C! r

& W2 J6 E6 q: i- t3 e' d Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
9 ~& j6 P& A; m5 R8 `. N3 d        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
! ]6 V0 n0 i+ a- A" D9 Y! c2 l& }( h            .Subtype = UFConstants.UF_draft_note_subtype
' I! |! Z. J+ F8 J/ j            .SolidBodySubtype = 0
        End With
  b4 H( N$ P- ~" N7 F7 h        Dim cursor As Point3d = Nothing
: u% L+ f$ ~, e0 p6 n! {1 j        Dim theObjects() As TaggedObject = Nothing

' v' Q4 S9 f8 S9 [( ]3 ~        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
9 z; G  g* ]( P; T            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
* o' h0 E; F+ ~- M
        Dim theNotes(theObjects.Length - 1) As Annotations.Note
9 |2 [! Q, u, b        For ii As Integer = 0 To theObjects.Length - 1
# r5 o1 G! x* f8 ^( x& M            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next

/ }0 i' _7 w. J5 o6 B3 d        Return theNotes

    End Function
, U0 d$ j; e0 s4 q# C. G! h" c