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

admin

" {% ]) q# T5 J- q& K* S! h$ }其实主要是Note的类型的定义问题，参考代码如下：

/ f2 k" ]& K* ^: {# a+ C1 j/ M
Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
& _$ m- |! D  ]" |9 z7 r% }. g& t+ |) [            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
0 o, }! l9 M' S, g            .SolidBodySubtype = 0
        End With
; ?$ j9 d2 {% v$ x        Dim cursor As Point3d = Nothing
" \6 u# C6 {. A        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
, [  P8 N1 e3 a% s8 Q  [  ]            Selection.SelectionAction.ClearAndEnableSpecific, _
, Z( N1 [! z$ X            False, False, mask, theObjects)
8 l0 ?  R- a1 i# }
, P# a7 d3 g# p4 m, B5 |3 F        Dim theNotes(theObjects.Length - 1) As Annotations.Note
  U5 g' S7 R0 l) J# `3 c7 v        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
+ e# u0 A9 z# {& l3 x% \1 k4 ~        Next

        Return theNotes
+ U9 S" K8 D+ N& `' g. d8 G3 n
& u3 Z3 I! V" X    End Function

& a. v* ^, ]3 R5 u7 f& R9 d