AutoCAD Color Index and RGB

[jaberwok]

Just curious, why are you needing the conversion info? I havn't found a need for it in the work I do.

Kris ?

[Kris.Keller]

Just curious, why are you needing the conversion info? I havn't found a need for it in the work I do.

We have a user that is using AutoCAD and a civil package. He wants to set his civil package to have the same look and feel as AutoCAD as far as line types, and colors. He can assign his layers to same as AutoCAD but he needs to do it by RGB. He went through this a couple of years ago. He just received a new computer and lost all of his settings and is just trying to get back to where he was. I for one love getting new computers but I hate setting everything up the way I had the old one.

Have a great day.

[Ed Jobe]

So your need is 3rd-party driven. The thread I pointed to should have what you need. Not very clean, but you only have to do it once...theoretically that is.

[mooker15356346]

My blog may help:



It's an excel file with the conversions.

[arshiel88]

Here is an excel table with ACI colors converted to RGB values. (check attached file.)

I got it converted by this code.

Sub ACItoRGBValues()

MajorVerNumber = Left(ThisDrawing.GetVariable("ACADVER"), 2)
Dim color As AcadAcCmColor
Set color = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & MajorVerNumber)

Open "C:\ACItoRGB.csv" For Output As #1

Print #1, "ACI" & "," & "ColorName" & "," & "R" & "," & "G" & "," & "B"
  
For i = 0 To 256
    color.ColorIndex = i
    Print #1, i & "," & color.ColorName & "," & color.Red & "," & color.Green & "," & color.Blue
Next
Close #1

End Sub

...and added the colors in excel by this.

Sub Macro1()
For i = 2 To 258
    With Range("F" & i).Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = RGB(Range("B" & i).Value, Range("C" & i).Value, Range("D" & i).Value)
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
Next
End Sub

Edit: I didn't check the link posted above before I post but its basically the same output. cheers!