・ 図形オブジェクトの色を変更
選択したオブジェクトの色を赤に変更するサンプルです
Sub chg_col() Dim en As AcadEntity Dim pt As Variant ThisDrawing.Utility.GetEntity en, pt, "図形を指示:" en.Color = acRed End Sub
ただし、この color プロパティーは、将来なくなるらしい