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

admin

, A& Y7 C% s; m8 Y7 m3 Q7 ]# L4 z
其实主要是Note的类型的定义问题，参考代码如下：


Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
9 J$ u4 W# X  A        With mask(0)
            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
9 a! ?# x8 B* h; L            .SolidBodySubtype = 0
. ]; I/ M. s& Z        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
' @! ?; W- K+ J4 b. p
0 T( ~, a. C. G/ H7 F        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
4 s) @, I- H& k  d7 p            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
( C& i! F1 g* X3 \; L  y            False, False, mask, theObjects)

$ H0 m" f: I! ]+ O  r5 n        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
  v7 e3 o  H! G) D- J            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next

        Return theNotes
5 v7 u$ v3 K: g& d/ I
    End Function