・ 図形オブジェクトの色を変更

選択したオブジェクトの色を赤に変更するサンプルです

Sub chg_col()
Dim en As AcadEntity
Dim pt As Variant

ThisDrawing.Utility.GetEntity en, pt, "図形を指示:"
en.Color = acRed
End Sub

ただし、この color プロパティーは、将来なくなるらしい