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

admin

3 j/ D! T  i6 t8 a% U1 L: j
. t9 v$ f3 Z7 b其实主要是Note的类型的定义问题，参考代码如下：
, S4 q, Q8 g8 t1 z2 h! _; @
' G1 ~& v, [4 H: B! ]2 e
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
% I; m# ]" Y" @* O% d1 x/ j8 z            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
% S: }( a0 k4 F& X( T        End With
        Dim cursor As Point3d = Nothing
7 V+ U  G; `' N- T        Dim theObjects() As TaggedObject = Nothing

1 R/ I* k* q+ r+ s+ r        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
2 J# {- E1 {) u; |            Selection.SelectionScope.AnyInAssembly, _
0 R! Y" H( h9 a6 P            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
- d$ I6 `6 p% B3 n" X, g
7 B3 p/ G9 a: e2 b        Dim theNotes(theObjects.Length - 1) As Annotations.Note
5 e' R' S! W8 z! L0 w( e. {9 A        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next
: o* }& J$ ^3 E2 x5 O. u; C, L
        Return theNotes

    End Function

1 j8 |: F5 N' ^/ j1 W