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

admin

4 O& R1 `9 M/ m* X/ h0 `其实主要是Note的类型的定义问题，参考代码如下：

+ @' @( y- h5 Y! R- R( f
Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
& \7 @& a3 z! D            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
, H: n  |- W! E        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing
4 i6 ~) k  q9 @: {
$ ?. |) ?8 f: \* H* x$ v& M5 O        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
            False, False, mask, theObjects)
6 p7 l& k0 w1 e. I! W
+ b4 G! x. K9 L; x  u7 |& }9 V# F        Dim theNotes(theObjects.Length - 1) As Annotations.Note
        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
9 f: C1 s, \* y. I7 M7 V* L  k        Next

        Return theNotes

* |6 M$ q+ G) ^% {    End Function