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

admin

. V& |& Z4 P! }" _, V" Z( |其实主要是Note的类型的定义问题，参考代码如下：


Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
, Z) v3 S: v  P$ @        Dim mask(0) As Selection.MaskTriple
        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
  B& ^% o2 M# ?; `) _8 P9 t4 I            .SolidBodySubtype = 0
( F  N( Y* k- q, S2 u        End With
8 Q& T: \) M7 ]2 _        Dim cursor As Point3d = Nothing
# M; w. i: c* ?& ?  U# |' Q' p        Dim theObjects() As TaggedObject = Nothing

- ^1 A  o. g' M8 ]1 M        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
3 v' Q0 ?/ e. X  e+ O" z6 Y            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
$ c/ _2 ^, X! d4 n" i5 u
        Dim theNotes(theObjects.Length - 1) As Annotations.Note
7 [% h4 t1 C, `  D; y  F3 V7 y        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
$ k, L* w) I. C  i8 s, K- a        Next

        Return theNotes
' T* V& n3 T1 T* p0 F4 O  ?5 n
, z+ S% v8 d6 F2 \# e# [    End Function