Cambio del color de un objeto

AutoCAD ActiveX

 
Cambio del color 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