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

admin

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

& H9 E% d0 Z9 @% D) }
! K6 a' }2 S& ]4 m( z: B' m. D Private Function selectNotes(ByVal prompt As String) As Annotations.Note()
        Dim mask(0) As Selection.MaskTriple
        With mask(0)
6 y6 L# K( N9 n" p7 s            .Type = UFConstants.UF_drafting_entity_type
            .Subtype = UFConstants.UF_draft_note_subtype
            .SolidBodySubtype = 0
        End With
; a; o, w' z8 s' z' \        Dim cursor As Point3d = Nothing
( ]/ Z: X% D0 o/ U        Dim theObjects() As TaggedObject = Nothing
" {3 T# _. F; Y
# T1 o' T* B# C1 r- e        UI.GetUI().SelectionManager.SelectTaggedObjects("Select Notes", prompt, _
            Selection.SelectionScope.AnyInAssembly, _
            Selection.SelectionAction.ClearAndEnableSpecific, _
2 K" n! P8 _+ C' x7 X# E- T            False, False, mask, theObjects)

        Dim theNotes(theObjects.Length - 1) As Annotations.Note
! j) o. L( }9 R( c        For ii As Integer = 0 To theObjects.Length - 1
            theNotes(ii) = CType(theObjects(ii), Annotations.Note)
- f7 }3 d( @- V2 t% {6 C        Next

4 ]% H" _0 V. C7 R        Return theNotes
) H  L, a; S( [
    End Function
- K" b+ g' g1 Z2 E: K. W8 h# R( X