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