Cambio de la capa de un objeto
Asignación de capas, colores y tipos de línea a objetos
Cambio del tipo de línea de un objeto
Para cambiar el color de un objeto, utilice la propiedad TrueColor del objeto. Se pueden asignar colores a objetos concretos de un dibujo. Cada color está identificado por un objeto AcCmColor. Este objeto puede contener un valor RGB, un número ACI (un entero comprendido entre 1 y 255) o un color guardado. Mediante los valores RGB se puede elegir entre millones de colores.
Al asignar un color al objeto se ignora el color actual de la capa en la que reside el objeto. Si se desea conservar un objeto en una determinada capa pero sin que comparta el color de la misma, se puede cambiar el color concreto del objeto.
Cambio del color de un círculo
Este ejemplo crea un círculo y después le asigna el color azul.
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