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

admin

6 p) ^7 n8 s6 M4 M! K其实主要是Note的类型的定义问题，参考代码如下：

8 u. Z4 }* ~$ d) i6 g/ c6 K
+ j0 B3 N6 v6 C# L3 r" M- s$ Q; z Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
/ O  x; G  O8 S* q( t3 `        With mask(0)
" V. Q- T7 f+ i9 g# {8 f! t            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
/ s2 U1 R  W  a: ]8 J# M8 G# K! _        Dim theObjects() As TaggedObject = Nothing

/ b5 k  y" `, V        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
6 a, r2 |# W/ Z            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
) j8 L7 t& z. M4 _; w' x
        Dim theNotes(theObjects.Length - 1) As Annotations.Note
$ @6 L8 g* k2 S0 @6 g        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next
5 K! Z" c0 c4 r" t
        Return theNotes

2 |8 W8 ]( t5 h$ i& O7 \    End Function
5 S8 V4 W  z$ L' U1 y: Q* k
9 Y. b* V" K' `+ _4 v7 A