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

admin

其实主要是Note的类型的定义问题，参考代码如下：
1 x7 f9 M/ s* p

Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
0 K/ @& ^: Q; n) v! P3 m* D% e        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
$ j4 y. |) s4 v6 D; z; `! C            .Subtype = UFConstants.UF_draft_note_subtype
' C' Y) e* @/ d+ ^2 l            .SolidBodySubtype = 0
6 S: I' ]8 {. i8 J# ^. A* o        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
, F3 i& t7 n/ S+ A! \4 }5 ]
! n3 A# z- _, q0 z$ i        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
  Y, T4 e  l' ]: ]* j3 [* j+ g9 i            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
8 t! H/ R4 D; T1 \4 k            False, False, mask, theObjects)
. V2 j" _% a, L; T% I9 J  Q
) X% b% V! L* h* p- ?  r        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
' o! b$ [1 s, m: r3 e        Next

        Return theNotes
. r# n2 m! f( P) x* T
/ ^& l: ]- [$ K! {; Y2 Q    End Function