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

admin

: F8 P% o3 Z- {0 z# [$ K
+ `0 G$ t3 n: r1 w" o) d其实主要是Note的类型的定义问题，参考代码如下：


1 c" I0 c0 L3 r2 F$ u7 s7 n Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
2 O1 p% `0 P5 L( s) Z# J; u+ N0 g6 @        Dim mask(0) As Selection.MaskTriple
" R" v. f4 Q, }# H0 z8 U        With mask(0)
, s- H# L. W0 n, y9 |            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
) |1 [. U; G& ^  ]            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
' @* ?  e/ N" W; e) ]) S) |        Dim theObjects() As TaggedObject = Nothing

        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
. t7 j$ \% R7 D, H- p            Selection.SelectionScope.AnyInAssembly, _
0 l1 O+ ~' ~7 x  @3 z5 }            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
7 z5 G: E. ~! ?8 r  d2 k
5 b/ W' ^' B3 J4 Q# ^5 I  I2 D8 h* \        Dim theNotes(theObjects.Length - 1) As Annotations.Note
( A5 G1 Z, A; z# k        For ii As Integer = 0 To theObjects.Length - 1
0 _2 U# R0 u4 Y- X$ E5 {' Q- Q            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
7 ~' o+ E: h" U$ U4 O# M        Next

2 \0 {) J  k1 ?        Return theNotes

    End Function