TrueColor Property (ActiveX)

Signature

VBA:

object.TrueColor

object

Type: All drawing objects, AttributeReference, Dimension, Group, Layer

The objects this property applies to.

Property Value

Read-only: No

Type: AcCmColor

The True Color object of the object.

Remarks

This property is used to change an object's color. Colors are 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.

Examples

VBA:

Sub Example_TrueColor()
    ' This example draws a line and returns the RGB values
    Dim line As AcadLine
    Dim startPoint(0 To 2) As Double
    Dim endPoint(0 To 2) As Double
        
    startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0#
    endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0#
        
    Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint)

    Dim color As AcadAcCmColor
    Set color = line.TrueColor
    color.SetRGB 80, 100, 244    
    line.TrueColor = color

    ZoomAll

    Dim retcolor As AcadAcCmColor
    Set retcolor = line.TrueColor
    
    MsgBox "Red = " & retcolor.Red & vbLf & _
           "Green = " & retcolor.Green & vbLf & _
           "Blue = " & retcolor.Blue
End Sub

Visual LISP:

(vl-load-com)
(defun c:Example_TrueColor()
    ;; This example draws a line and returns the RGB values
    (setq acadObj (vlax-get-acad-object)
          doc (vla-get-ActiveDocument acadObj))
  
   
    (setq startPoint (vlax-3d-point 1 1 0)
          endPoint (vlax-3d-point 5 5 0))

    (setq modelSpace (vla-get-ModelSpace doc)
          line (vla-AddLine modelSpace startPoint endPoint))
    
    (setq color (vla-get-TrueColor line))
    (vla-SetRGB color 80 100 244)
    (vla-put-TrueColor line color)

    (vla-ZoomAll acadObj)

    (setq retcolor (vla-get-TrueColor line))
    
    (alert (strcat "Red = " (itoa (vla-get-Red retcolor))
                   "\nGreen = " (itoa (vla-get-Green retcolor))
                   "\nBlue = " (itoa (vla-get-Blue retcolor))))
)