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

admin

- m' A, e9 l. M4 w
7 |0 f5 t& o+ J. b6 q6 ]$ a其实主要是Note的类型的定义问题，参考代码如下：


Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
# Y- e8 S. H  Z3 y/ z            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
# u1 X" ]6 P: c1 t( N        End With
        Dim cursor As Point3d = Nothing
8 g/ o6 u0 L$ V% _        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
5 N. r7 V- d7 m; I/ u" z4 L* \            Selection.SelectionScope.AnyInAssembly, _
! ]. U$ _# C7 ?7 H/ M            Selection.SelectionAction.ClearAndEnableSpecific, _
! Y: @! Y: i  Z4 |5 k            False, False, mask, theObjects)
& J5 A( ]0 P. U& m
        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
* O/ b/ T5 ^' P# ~/ m6 d' L% g4 A            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
5 s1 C/ a$ w( C- i8 `( y( @        Next
, ]: X/ L( X* U7 l) P
        Return theNotes
$ Q0 B( Z5 {4 X
& u; Y& d3 Z8 t    End Function
6 K/ M- E8 e6 R