Change an Object's Layer

Assign Layers, Colors, and Linetypes to Objects

Change an Object's Linetype

 

ActiveX and VBA Developer's Guide > Create and Edit AutoCAD Entities > Use Layers, Colors, and Linetypes > Assign Layers, Colors, and Linetypes to Objects > 

Change an Object's Color

To change an object's color, use the TrueColor property provided for that object. You can assign colors to individual objects in a drawing. Each color is identified by an AcCmColor object. This object can hold an RGB value, an ACI number (an integer from 1 to 255), or a named color. Using an RGB value, you can choose from millions of colors.

Setting a color for the object overrides the color setting for the layer on which the object resides. If you want to retain an object on a specific layer but you don't want it to keep the color of that layer, you can change the object's color.

Sub Ch4_ColorCircle()

	Dim color As AcadAcCmColor

	Set color = _

	AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor.17")

	Call color.SetRGB(80, 100, 244)

	Dim circleObj As AcadCircle

	Dim centerPoint(0 To 2) As Double

	Dim radius As Double

	centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#

	radius = 5#

	Set circleObj = _

	ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)

	circleObj.TrueColor = color

	ZoomAll

End Sub