‹#›
© 2008 Autodesk
ADSK_BLack_BAR.png
ADN Webcasts 2008
Sub ChangeNoteText()
    Dim acmApp As AcadmApplication
    Set acmApp = ThisDrawing.Application.GetInterfaceObject("AcadmAuto.AcadmApplication")
   
    Dim acEnt As AcadEntity
    Dim pt As Variant
    Call ThisDrawing.Utility.GetEntity(acEnt, pt, vbCr + "Select a note object: ")
   
    If Not TypeOf acEnt Is McadNote Then
        MsgBox "This is not a note object, but a/an " + TypeName(acEnt)
        Exit Sub
    End If
   
    Dim acmNote As McadNote
    Set acmNote = acEnt
   
    acmNote.NoteText = acmNote.NoteText + "CHANGED"
   
    Application.Update
End Sub
SymBBAuto