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

admin

5 w+ j; c/ T4 J$ y0 P7 B( f
其实主要是Note的类型的定义问题，参考代码如下：
, Q$ C, X) E% j/ Z7 u- l* C

Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
9 k9 x9 V6 e  q/ r            .Type = UFConstants.UF_drafting_entity_type
6 u( D2 k" D3 j0 j5 Y            .Subtype = UFConstants.UF_draft_note_subtype
# |* a5 N; s" a9 V' k* e( G1 K  S            .SolidBodySubtype = 0
        End With
( C; \. Y6 W/ M) ~! [. C        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

9 k  e& j' w/ ^9 I        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
+ a) P3 K. [( K+ B            False, False, mask, theObjects)

+ V4 ?' K  h' n; b        Dim theNotes(theObjects.Length - 1) As Annotations.Note
- [$ h( N9 t& \* B5 b1 B& f        For ii As Integer = 0 To theObjects.Length - 1
4 S# _) a* }& t; [: N            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
% w" {. w. T; q" {0 g& s6 Z        Next
* |2 f( E( z, u+ u
        Return theNotes

    End Function

/ Z- C. O. K& S; [% z