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

admin

( V* s. L( q, N" k+ W) w! \其实主要是Note的类型的定义问题，参考代码如下：
  S' y7 w& [: O. i; z$ V+ l8 z9 Z

Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
; _! O+ E2 ]5 H# r8 n7 q        Dim mask(0) As Selection.MaskTriple
        With mask(0)
, A, c  ?5 c8 g; d            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
/ u0 P" J! R* p) Q! f+ Z        End With
        Dim cursor As Point3d = Nothing
  T. \; z) U+ o4 p2 {        Dim theObjects() As TaggedObject = Nothing

8 n" ]  m9 n1 ]7 X% r; a  n: p# r7 m- o        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)

) h5 [& T8 Q# B* ?9 s        Dim theNotes(theObjects.Length - 1) As Annotations.Note
+ T5 j0 Z' s6 ~) Z- B        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next
  a' k% I$ s. b/ X2 `
& K# C5 p8 s6 I, i% c; v        Return theNotes

8 ]4 j; X' ^8 f    End Function

. W" A' Q9 a( N( u1 N' K