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

admin

5 E  |( K$ d- L$ K6 X
其实主要是Note的类型的定义问题，参考代码如下：

. f5 S0 f8 L9 B  L% Q7 R
Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
3 S5 |% r- W3 q2 @/ @        Dim mask(0) As Selection.MaskTriple
        With mask(0)
$ h) V% V' l( K. P! \. b5 y' c            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
        End With
        Dim cursor As Point3d = Nothing
        Dim theObjects() As TaggedObject = Nothing

# ?3 K$ [/ ^9 i: F% Y/ x" m  e        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
# r. ?" o+ `; b% w; j            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)
        Next

        Return theNotes
7 D2 @0 l; Z2 u1 M& q0 m* H
    End Function
2 g6 A( L6 Y2 O. y