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

admin

" ?6 a$ Q8 t, H$ t/ t4 }其实主要是Note的类型的定义问题，参考代码如下：


# \. i8 K  N4 n- ~. Q! F Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
; C$ A: Z3 W  p            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
6 J/ M1 c$ h/ _1 G9 }; _9 B" f            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
* p& v' D4 ]! A/ M/ O        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
" Q* X+ r2 C3 d, c+ r" p            False, False, mask, theObjects)
* Z8 R6 S. I. R9 d( Y
' a/ p# G+ |! w! N' i% o9 r        Dim theNotes(theObjects.Length - 1) As Annotations.Note
/ ]9 f+ S! \: X, @; X8 t        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
3 l& d: [8 t: o0 ^        Next
0 B' y+ z& i, X9 t, r: j0 U
% J! r9 T4 P& E* x& l        Return theNotes

    End Function
/ T4 S4 i  _8 h  h+ m