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

admin

0 f/ X+ J, \. s  F% U
# o( ~! b8 ^0 b: [5 K$ C& z& C其实主要是Note的类型的定义问题，参考代码如下：

" q3 }0 \* S, n# \, l. }$ r
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
2 k; ~* {% K* L* f8 B            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
7 I& E, R" v6 [9 u/ G( [3 O" A8 \        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
6 j% `$ k( M/ ?4 U4 h# `
. \' {2 `- c; c! m3 ]9 }1 D, T- @        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)

        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
. E# q. @& y: U& e        Next

        Return theNotes

    End Function
5 e4 e9 |  Q% p( E
; t/ C/ a" l; N