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

admin

其实主要是Note的类型的定义问题，参考代码如下：


Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
7 d8 J% d2 [& F: G, {) i6 i        With mask(0)
/ k/ T3 g* N8 f! X% i1 T: D            .Type = UFConstants.UF_drafting_entity_type
3 b6 C; o6 s8 Z! e' ]) A            .Subtype = UFConstants.UF_draft_note_subtype
3 |+ U- q( J8 ~            .SolidBodySubtype = 0
  F3 B! z6 W$ c* Y1 u- M' x5 Z        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
2 `0 k7 w) \0 ^- W0 k
! X  I3 i6 z2 Q6 w$ i        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
) \# W. Q/ A9 ?7 ^            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
8 {; W) P* j6 w* L+ \
3 J' w' I! y: e. ]% A        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
        Next

* p6 q9 a' y. O+ U        Return theNotes

. i2 f1 \2 h4 v" u& t0 r% e2 ~( \6 B    End Function
8 }! p7 l& e% f: R# p5 @% ?: h