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

admin

1 ^: z; S! [0 f% }5 ?2 x: z其实主要是Note的类型的定义问题，参考代码如下：
4 Q2 d7 O9 F. d0 q' z

Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
: @0 W+ ~* w, H' A2 G1 }" Z" g        Dim mask(0) As Selection.MaskTriple
" _3 F' R# [3 h8 E5 D  m, Z        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
, m7 J" Z( M' @" D. @: w            .SolidBodySubtype = 0
        End With
: o5 O' C- H( W        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
( K: e2 a/ p# z. u
# K4 [3 P1 f/ f        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
4 d! m, N6 m: o/ K) I! s            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
9 P2 f) P, L. r# L! Q# ~- w! l
        Dim theNotes(theObjects.Length - 1) As Annotations.Note
/ `; X& I! v4 r) W% a# w        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next

        Return theNotes
! l2 ~9 S' J* H4 i- A  s* w' U  }4 a
    End Function
5 j# H' M0 U3 Q- _4 J8 J
6 T5 z1 C+ X/ \/ K& G2 e8 b