<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: in VBA Forum</title>
    <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350914#M75865</link>
    <description>"Yves Allaire" &lt;Y.ALLAIRE&gt; wrote in message&lt;BR /&gt;
news:7328AD64EAFB6182E81EF88E9626A01B@in.WebX.maYIadrTaRb...&lt;BR /&gt;
&amp;gt; Crude... allright, but can you tell me where you got this, I spent&lt;BR /&gt;
&amp;gt; uncalculable hours to get colors from other aplications to match those of&lt;BR /&gt;
&amp;gt; AutoCAD.&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&lt;BR /&gt;
Here is some Delphi code that uses the values taken&lt;BR /&gt;
from DRV\acad.ctb (from R14). If I recall correctly,&lt;BR /&gt;
the colors are not totally accurate.&lt;BR /&gt;
&lt;BR /&gt;
unit AcColor;&lt;BR /&gt;
&lt;BR /&gt;
interface&lt;BR /&gt;
&lt;BR /&gt;
Uses Windows, Graphics;&lt;BR /&gt;
&lt;BR /&gt;
Function ACIToColor(ACI: Integer): TColor;&lt;BR /&gt;
&lt;BR /&gt;
const acrgb : Array[0..255, 0..2] of Byte = (&lt;BR /&gt;
&lt;BR /&gt;
(0,   0,   0),&lt;BR /&gt;
(255,   0,   0),&lt;BR /&gt;
(255, 255,   0),&lt;BR /&gt;
(0, 255,   0),&lt;BR /&gt;
(0, 255, 255),&lt;BR /&gt;
(0,   0, 255),&lt;BR /&gt;
(255,   0, 255),&lt;BR /&gt;
(255, 255, 255),&lt;BR /&gt;
(162, 162, 162),&lt;BR /&gt;
(239, 239, 239),&lt;BR /&gt;
(255,   0,   0),&lt;BR /&gt;
(255, 191, 191),&lt;BR /&gt;
(237,   0,   0),&lt;BR /&gt;
(237, 161, 161),&lt;BR /&gt;
(216,   0,   0),&lt;BR /&gt;
(216, 130, 130),&lt;BR /&gt;
(193,   0,   0),&lt;BR /&gt;
(193,  98,  98),&lt;BR /&gt;
(164,   0,   0),&lt;BR /&gt;
(164,  82,  82),&lt;BR /&gt;
(255,  63,   0),&lt;BR /&gt;
(255, 207, 191),&lt;BR /&gt;
(237,  59,   0),&lt;BR /&gt;
(237, 180, 161),&lt;BR /&gt;
(216,  54,   0),&lt;BR /&gt;
(216, 151, 130),&lt;BR /&gt;
(193,  48,   0),&lt;BR /&gt;
(193, 121,  98),&lt;BR /&gt;
(164,  41,   0),&lt;BR /&gt;
(164, 102,  82),&lt;BR /&gt;
(255, 127,   0),&lt;BR /&gt;
(255, 223, 191),&lt;BR /&gt;
(237, 118,   0),&lt;BR /&gt;
(237, 199, 161),&lt;BR /&gt;
(216, 108,   0),&lt;BR /&gt;
(216, 173, 130),&lt;BR /&gt;
(193,  96,   0),&lt;BR /&gt;
(193, 145,  98),&lt;BR /&gt;
(164,  82,   0),&lt;BR /&gt;
(164, 123,  82),&lt;BR /&gt;
(255, 191,   0),&lt;BR /&gt;
(255, 239, 191),&lt;BR /&gt;
(237, 177,   0),&lt;BR /&gt;
(237, 218, 161),&lt;BR /&gt;
(216, 162,   0),&lt;BR /&gt;
(216, 195, 130),&lt;BR /&gt;
(193, 144,   0),&lt;BR /&gt;
(193, 169,  98),&lt;BR /&gt;
(164, 123,   0),&lt;BR /&gt;
(164, 143,  82),&lt;BR /&gt;
(255, 255,   0),&lt;BR /&gt;
(255, 255, 191),&lt;BR /&gt;
(237, 237,   0),&lt;BR /&gt;
(237, 237, 161),&lt;BR /&gt;
(216, 216,   0),&lt;BR /&gt;
(216, 216, 130),&lt;BR /&gt;
(193, 193,   0),&lt;BR /&gt;
(193, 193,  98),&lt;BR /&gt;
(164, 164,   0),&lt;BR /&gt;
(164, 164,  82),&lt;BR /&gt;
(191, 255,   0),&lt;BR /&gt;
(239, 255, 191),&lt;BR /&gt;
(177, 237,   0),&lt;BR /&gt;
(218, 237, 161),&lt;BR /&gt;
(162, 216,   0),&lt;BR /&gt;
(195, 216, 130),&lt;BR /&gt;
(144, 193,   0),&lt;BR /&gt;
(169, 193,  98),&lt;BR /&gt;
(123, 164,   0),&lt;BR /&gt;
(143, 164,  82),&lt;BR /&gt;
(127, 255,   0),&lt;BR /&gt;
(223, 255, 191),&lt;BR /&gt;
(118, 237,   0),&lt;BR /&gt;
(199, 237, 161),&lt;BR /&gt;
(108, 216,   0),&lt;BR /&gt;
(173, 216, 130),&lt;BR /&gt;
(96, 193,   0),&lt;BR /&gt;
(145, 193,  98),&lt;BR /&gt;
(82, 164,   0),&lt;BR /&gt;
(123, 164,  82),&lt;BR /&gt;
(63, 255,   0),&lt;BR /&gt;
(207, 255, 191),&lt;BR /&gt;
(59, 237,   0),&lt;BR /&gt;
(180, 237, 161),&lt;BR /&gt;
(54, 216,   0),&lt;BR /&gt;
(151, 216, 130),&lt;BR /&gt;
(48, 193,   0),&lt;BR /&gt;
(121, 193,  98),&lt;BR /&gt;
(41, 164,   0),&lt;BR /&gt;
(102, 164,  82),&lt;BR /&gt;
(0, 255,   0),&lt;BR /&gt;
(191, 255, 191),&lt;BR /&gt;
(0, 237,   0),&lt;BR /&gt;
(161, 237, 161),&lt;BR /&gt;
(0, 216,   0),&lt;BR /&gt;
(130, 216, 130),&lt;BR /&gt;
(0, 193,   0),&lt;BR /&gt;
(98, 193,  98),&lt;BR /&gt;
(0, 164,   0),&lt;BR /&gt;
(82, 164,  82),&lt;BR /&gt;
(0, 255,  63),&lt;BR /&gt;
(191, 255, 207),&lt;BR /&gt;
(0, 237,  59),&lt;BR /&gt;
(161, 237, 180),&lt;BR /&gt;
(0, 216,  54),&lt;BR /&gt;
(130, 216, 151),&lt;BR /&gt;
(0, 193,  48),&lt;BR /&gt;
(98, 193, 121),&lt;BR /&gt;
(0, 164,  41),&lt;BR /&gt;
(82, 164, 102),&lt;BR /&gt;
(0, 255, 127),&lt;BR /&gt;
(191, 255, 223),&lt;BR /&gt;
(0, 237, 118),&lt;BR /&gt;
(161, 237, 199),&lt;BR /&gt;
(0, 216, 108),&lt;BR /&gt;
(130, 216, 173),&lt;BR /&gt;
(0, 193,  96),&lt;BR /&gt;
(98, 193, 145),&lt;BR /&gt;
(0, 164,  82),&lt;BR /&gt;
(82, 164, 123),&lt;BR /&gt;
(0, 255, 191),&lt;BR /&gt;
(191, 255, 239),&lt;BR /&gt;
(0, 237, 177),&lt;BR /&gt;
(161, 237, 218),&lt;BR /&gt;
(0, 216, 162),&lt;BR /&gt;
(130, 216, 195),&lt;BR /&gt;
(0, 193, 144),&lt;BR /&gt;
(98, 193, 169),&lt;BR /&gt;
(0, 164, 123),&lt;BR /&gt;
(82, 164, 143),&lt;BR /&gt;
(0, 255, 255),&lt;BR /&gt;
(191, 255, 255),&lt;BR /&gt;
(0, 237, 237),&lt;BR /&gt;
(161, 237, 237),&lt;BR /&gt;
(0, 216, 216),&lt;BR /&gt;
(130, 216, 216),&lt;BR /&gt;
(0, 193, 193),&lt;BR /&gt;
(98, 193, 193),&lt;BR /&gt;
(0, 164, 164),&lt;BR /&gt;
(82, 164, 164),&lt;BR /&gt;
(0, 191, 255),&lt;BR /&gt;
(191, 239, 255),&lt;BR /&gt;
(0, 177, 237),&lt;BR /&gt;
(161, 218, 237),&lt;BR /&gt;
(0, 162, 216),&lt;BR /&gt;
(130, 195, 216),&lt;BR /&gt;
(0, 144, 193),&lt;BR /&gt;
(98, 169, 193),&lt;BR /&gt;
(0, 123, 164),&lt;BR /&gt;
(82, 143, 164),&lt;BR /&gt;
(0, 127, 255),&lt;BR /&gt;
(191, 223, 255),&lt;BR /&gt;
(0, 118, 237),&lt;BR /&gt;
(161, 199, 237),&lt;BR /&gt;
(0, 108, 216),&lt;BR /&gt;
(130, 173, 216),&lt;BR /&gt;
(0,  96, 193),&lt;BR /&gt;
(98, 145, 193),&lt;BR /&gt;
(0,  82, 164),&lt;BR /&gt;
(82, 123, 164),&lt;BR /&gt;
(0,  63, 255),&lt;BR /&gt;
(191, 207, 255),&lt;BR /&gt;
(0,  59, 237),&lt;BR /&gt;
(161, 180, 237),&lt;BR /&gt;
(0,  54, 216),&lt;BR /&gt;
(130, 151, 216),&lt;BR /&gt;
(0,  48, 193),&lt;BR /&gt;
(98, 121, 193),&lt;BR /&gt;
(0,  41, 164),&lt;BR /&gt;
(82, 102, 164),&lt;BR /&gt;
(0,   0, 255),&lt;BR /&gt;
(191, 191, 255),&lt;BR /&gt;
(0,   0, 237),&lt;BR /&gt;
(161, 161, 237),&lt;BR /&gt;
(0,   0, 216),&lt;BR /&gt;
(130, 130, 216),&lt;BR /&gt;
(0,   0, 193),&lt;BR /&gt;
(98,  98, 193),&lt;BR /&gt;
(0,   0, 164),&lt;BR /&gt;
(82,  82, 164),&lt;BR /&gt;
(63,   0, 255),&lt;BR /&gt;
(207, 191, 255),&lt;BR /&gt;
(59,   0, 237),&lt;BR /&gt;
(180, 161, 237),&lt;BR /&gt;
(54,   0, 216),&lt;BR /&gt;
(151, 130, 216),&lt;BR /&gt;
(48,   0, 193),&lt;BR /&gt;
(121,  98, 193),&lt;BR /&gt;
(41,   0, 164),&lt;BR /&gt;
(102,  82, 164),&lt;BR /&gt;
(127,   0, 255),&lt;BR /&gt;
(223, 191, 255),&lt;BR /&gt;
(118,   0, 237),&lt;BR /&gt;
(199, 161, 237),&lt;BR /&gt;
(108,   0, 216),&lt;BR /&gt;
(173, 130, 216),&lt;BR /&gt;
(96,   0, 193),&lt;BR /&gt;
(145,  98, 193),&lt;BR /&gt;
(82,   0, 164),&lt;BR /&gt;
(123,  82, 164),&lt;BR /&gt;
(191,   0, 255),&lt;BR /&gt;
(239, 191, 255),&lt;BR /&gt;
(177,   0, 237),&lt;BR /&gt;
(218, 161, 237),&lt;BR /&gt;
(162,   0, 216),&lt;BR /&gt;
(195, 130, 216),&lt;BR /&gt;
(144,   0, 193),&lt;BR /&gt;
(169,  98, 193),&lt;BR /&gt;
(123,   0, 164),&lt;BR /&gt;
(143,  82, 164),&lt;BR /&gt;
(255,   0, 255),&lt;BR /&gt;
(255, 191, 255),&lt;BR /&gt;
(237,   0, 237),&lt;BR /&gt;
(237, 161, 237),&lt;BR /&gt;
(216,   0, 216),&lt;BR /&gt;
(216, 130, 216),&lt;BR /&gt;
(193,   0, 193),&lt;BR /&gt;
(193,  98, 193),&lt;BR /&gt;
(164,   0, 164),&lt;BR /&gt;
(164,  82, 164),&lt;BR /&gt;
(255,   0, 191),&lt;BR /&gt;
(255, 191, 239),&lt;BR /&gt;
(237,   0, 177),&lt;BR /&gt;
(237, 161, 218),&lt;BR /&gt;
(216,   0, 162),&lt;BR /&gt;
(216, 130, 195),&lt;BR /&gt;
(193,   0, 144),&lt;BR /&gt;
(193,  98, 169),&lt;BR /&gt;
(164,   0, 123),&lt;BR /&gt;
(164,  82, 143),&lt;BR /&gt;
(255,   0, 127),&lt;BR /&gt;
(255, 191, 223),&lt;BR /&gt;
(237,   0, 118),&lt;BR /&gt;
(237, 161, 199),&lt;BR /&gt;
(216,   0, 108),&lt;BR /&gt;
(216, 130, 173),&lt;BR /&gt;
(193,   0,  96),&lt;BR /&gt;
(193,  98, 145),&lt;BR /&gt;
(164,   0,  82),&lt;BR /&gt;
(164,  82, 123),&lt;BR /&gt;
(255,   0,  63),&lt;BR /&gt;
(255, 191, 207),&lt;BR /&gt;
(237,   0,  59),&lt;BR /&gt;
(237, 161, 180),&lt;BR /&gt;
(216,   0,  54),&lt;BR /&gt;
(216, 130, 151),&lt;BR /&gt;
(193,   0,  48),&lt;BR /&gt;
(193,  98, 121),&lt;BR /&gt;
(164,   0,  41),&lt;BR /&gt;
(164,  82, 102),&lt;BR /&gt;
(93,  93,  93),&lt;BR /&gt;
(162, 162, 162),&lt;BR /&gt;
(210, 210, 210),&lt;BR /&gt;
(239, 239, 239),&lt;BR /&gt;
(252, 252, 252),&lt;BR /&gt;
(255, 255, 255)&lt;BR /&gt;
&lt;BR /&gt;
);&lt;BR /&gt;
&lt;BR /&gt;
var&lt;BR /&gt;
  AcColors : Array [0..255] of TColor;&lt;BR /&gt;
  i : integer;&lt;BR /&gt;
&lt;BR /&gt;
implementation&lt;BR /&gt;
&lt;BR /&gt;
Function ACIToColor(ACI: Integer): TColor;&lt;BR /&gt;
begin&lt;BR /&gt;
  If ACI &amp;lt; 256 then&lt;BR /&gt;
    Result := AcColors[ACI]&lt;BR /&gt;
  else&lt;BR /&gt;
    Result := clNone;&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
// Set to white for dark background or black for light background&lt;BR /&gt;
&lt;BR /&gt;
Procedure SetColor7(r, g, b: byte);&lt;BR /&gt;
begin&lt;BR /&gt;
  AcColors[7] := TColor(Rgb(r, g, b));&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
Procedure SetLightBackground;&lt;BR /&gt;
begin&lt;BR /&gt;
  AcColors[7] := clBlack;&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
Procedure SetDarkBackground;&lt;BR /&gt;
begin&lt;BR /&gt;
  AcColors[7] := clWhite;&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
initialization&lt;BR /&gt;
begin&lt;BR /&gt;
  For i := 0 to 255 do&lt;BR /&gt;
    AcColors&lt;I&gt; := TColor(rgb(acrgb[i, 0], acrgb[i,1], acrgb[i,2]));&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
end.&lt;/I&gt;&lt;/Y.ALLAIRE&gt;</description>
    <pubDate>Fri, 22 Mar 2002 12:56:08 GMT</pubDate>
    <dc:creator>Anonymous</dc:creator>
    <dc:date>2002-03-22T12:56:08Z</dc:date>
    <item>
      <title>Converting colors to RGB</title>
      <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350909#M75860</link>
      <description>Does anyone know of a formula to convert AutoCAD ACI color codes&lt;BR /&gt;
to RGB ?&lt;BR /&gt;
&lt;BR /&gt;
Thanks,&lt;BR /&gt;
Brian D.</description>
      <pubDate>Thu, 21 Mar 2002 13:15:31 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350909#M75860</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2002-03-21T13:15:31Z</dc:date>
    </item>
    <item>
      <title>Re: Converting colors to RGB</title>
      <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350910#M75861</link>
      <description>Tony Tanzillo has it in his acadx.arx which I think is free for personal&lt;BR /&gt;
use.&lt;BR /&gt;
www.caddzone.com or&lt;BR /&gt;
http://members.bellatlantic.net/~vze2vjds/&lt;BR /&gt;
&lt;BR /&gt;
--&lt;BR /&gt;
Rodney McManamy - President&lt;BR /&gt;
MACSolids - Maximizing AutoCAD Solids&lt;BR /&gt;
website: www.macsolids.com&lt;BR /&gt;
"Brian D" &lt;BCDIAL&gt; wrote in message&lt;BR /&gt;
news:7EAEAD8BB86ADC0E4554EBA2320E39A0@in.WebX.maYIadrTaRb...&lt;BR /&gt;
&amp;gt; Does anyone know of a formula to convert AutoCAD ACI color codes&lt;BR /&gt;
&amp;gt; to RGB ?&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt; Thanks,&lt;BR /&gt;
&amp;gt; Brian D.&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt;&lt;/BCDIAL&gt;</description>
      <pubDate>Thu, 21 Mar 2002 13:15:31 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350910#M75861</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2002-03-21T13:15:31Z</dc:date>
    </item>
    <item>
      <title>Re: Converting colors to RGB</title>
      <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350911#M75862</link>
      <description>Crude but works.&lt;BR /&gt;
&lt;BR /&gt;
Public Function AcadToRGB&amp;amp;(ByVal Col&amp;amp;)&lt;BR /&gt;
Dim r&amp;amp;, g&amp;amp;, b&amp;amp;&lt;BR /&gt;
Select Case Col&lt;BR /&gt;
Case 1: AcadToRGB = 255: Exit Function&lt;BR /&gt;
Case 2: AcadToRGB = 65535: Exit Function&lt;BR /&gt;
Case 3: AcadToRGB = 65280: Exit Function&lt;BR /&gt;
Case 4: AcadToRGB = 16776960: Exit Function&lt;BR /&gt;
Case 5: AcadToRGB = 16711680: Exit Function&lt;BR /&gt;
Case 6: AcadToRGB = 16711935: Exit Function&lt;BR /&gt;
Case 7: AcadToRGB = 16777215: Exit Function&lt;BR /&gt;
Case 8: AcadToRGB = 8355711: Exit Function&lt;BR /&gt;
Case 9: AcadToRGB = 12566463: Exit Function&lt;BR /&gt;
Case 10: AcadToRGB = 255: Exit Function&lt;BR /&gt;
Case 11: AcadToRGB = 8355839: Exit Function&lt;BR /&gt;
Case 12: AcadToRGB = 207: Exit Function&lt;BR /&gt;
Case 13: AcadToRGB = 6316239: Exit Function&lt;BR /&gt;
Case 14: AcadToRGB = 144: Exit Function&lt;BR /&gt;
Case 15: AcadToRGB = 5197712: Exit Function&lt;BR /&gt;
Case 16: AcadToRGB = 127: Exit Function&lt;BR /&gt;
Case 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118,&lt;BR /&gt;
120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144, 146, 148,&lt;BR /&gt;
150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172, 174, 176, 178: r&lt;BR /&gt;
= 0&lt;BR /&gt;
Case 88, 188: r = 15&lt;BR /&gt;
Case 86, 186: r = 31&lt;BR /&gt;
Case 78, 84, 99, 109, 119, 129, 139, 149, 159, 169, 179, 184, 198: r = 32&lt;BR /&gt;
Case 82, 89, 182, 189, 250: r = 47&lt;BR /&gt;
Case 68, 79, 199, 208: r = 48&lt;BR /&gt;
Case 69, 76, 80, 97, 107, 117, 127, 137, 147, 157, 167, 177, 180, 196, 209:&lt;BR /&gt;
r = 63&lt;BR /&gt;
Case 18, 19, 28, 29, 38, 39, 48, 49, 58, 59, 74, 87, 95, 105, 115, 125, 135,&lt;BR /&gt;
145, 155, 165, 175, 187, 194, 218, 219, 228, 229, 238, 239, 248, 249: r = 79&lt;BR /&gt;
Case 66, 77, 185, 197, 206: r = 95&lt;BR /&gt;
Case 72, 85, 93, 103, 113, 123, 133, 143, 153, 163, 173, 192: r = 96&lt;BR /&gt;
Case 64, 67, 75, 195, 204, 207: r = 111&lt;BR /&gt;
Case 17, 26, 27, 36, 37, 46, 47, 56, 57, 70, 83, 91, 101, 111, 121, 131,&lt;BR /&gt;
141, 151, 161, 171, 183, 190, 216, 217, 226, 227, 236, 237, 246, 247: r =&lt;BR /&gt;
127&lt;BR /&gt;
Case 65, 205, 252: r = 128&lt;BR /&gt;
Case 24, 25, 34, 35, 44, 45, 54, 55, 62, 73, 193, 202, 214, 215, 224, 225,&lt;BR /&gt;
234, 235, 244, 245: r = 144&lt;BR /&gt;
Case 81, 181: r = 159&lt;BR /&gt;
Case 63, 203, 253: r = 175&lt;BR /&gt;
Case 60, 71, 191, 200: r = 191&lt;BR /&gt;
Case 22, 23, 32, 33, 42, 43, 52, 53, 212, 213, 222, 223, 232, 233, 242, 243:&lt;BR /&gt;
r = 207&lt;BR /&gt;
Case 61, 201: r = 223&lt;BR /&gt;
Case 20, 21, 30, 31, 40, 41, 50, 51, 210, 211, 220, 221, 230, 231, 240, 241,&lt;BR /&gt;
255: r = 255&lt;BR /&gt;
Case 251: r = 80: g = 80: b = 80&lt;BR /&gt;
Case 254: r = 208: g = 208: b = 208&lt;BR /&gt;
End Select&lt;BR /&gt;
&lt;BR /&gt;
Select Case Col&lt;BR /&gt;
Case 18, 170, 172, 174, 176, 178, 180, 182, 184, 186, 188, 190, 192, 194,&lt;BR /&gt;
196, 198, 200, 202, 204, 206, 208, 210, 212, 214, 216, 218, 220, 222, 224,&lt;BR /&gt;
226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248: g = 0&lt;BR /&gt;
Case 28, 168: g = 15&lt;BR /&gt;
Case 26, 166: g = 31&lt;BR /&gt;
Case 19, 24, 38, 158, 164, 179, 189, 199, 209, 219, 229, 239, 249: g = 32&lt;BR /&gt;
Case 22, 29, 162, 169, 250: g = 47&lt;BR /&gt;
Case 39, 48, 148, 159: g = 48&lt;BR /&gt;
Case 17, 20, 36, 49, 149, 156, 160, 177, 187, 197, 207, 217, 227, 237, 247:&lt;BR /&gt;
g = 63&lt;BR /&gt;
Case 18, 27, 34, 58, 59, 68, 69, 78, 79, 88, 89, 98, 99, 108, 109, 118, 119,&lt;BR /&gt;
128, 129, 138, 139, 154, 167, 175, 185, 195, 205, 215, 225, 235, 245: g = 79&lt;BR /&gt;
Case 152: g = 86&lt;BR /&gt;
Case 25, 37, 46, 146, 157, 165: g = 95&lt;BR /&gt;
Case 32, 173, 183, 193, 203, 213, 223, 233, 243: g = 96&lt;BR /&gt;
Case 35, 44, 47, 144, 147, 155: g = 111&lt;BR /&gt;
Case 23, 30, 56, 57, 66, 67, 76, 77, 86, 87, 96, 97, 106, 107, 116, 117,&lt;BR /&gt;
126, 127, 136, 137, 150, 163, 171, 181, 191, 201, 211, 221, 231, 241: g =&lt;BR /&gt;
127&lt;BR /&gt;
Case 45, 145, 252: g = 128&lt;BR /&gt;
Case 33, 42, 54, 55, 64, 65, 74, 75, 84, 85, 94, 95, 104, 105, 114, 115,&lt;BR /&gt;
124, 125, 134, 135, 142, 153: g = 144&lt;BR /&gt;
Case 21, 161: g = 159&lt;BR /&gt;
Case 43, 143, 253: g = 175&lt;BR /&gt;
Case 31, 40, 140, 151: g = 191&lt;BR /&gt;
Case 52, 53, 62, 63, 72, 73, 82, 83, 92, 93, 102, 103, 112, 113, 122, 123,&lt;BR /&gt;
132, 133: g = 207&lt;BR /&gt;
Case 41, 141: g = 223&lt;BR /&gt;
Case 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 110, 111, 120, 121,&lt;BR /&gt;
130, 131, 255: g = 255&lt;BR /&gt;
End Select&lt;BR /&gt;
&lt;BR /&gt;
Select Case Col&lt;BR /&gt;
Case 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50, 52,&lt;BR /&gt;
54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88, 90,&lt;BR /&gt;
92, 94, 96, 98: b = 0&lt;BR /&gt;
Case 108, 248: b = 15&lt;BR /&gt;
Case 106, 246: b = 31&lt;BR /&gt;
Case 19, 29, 39, 49, 59, 69, 79, 89, 99, 104, 118, 238, 244: b = 32&lt;BR /&gt;
Case 102, 109, 242, 249, 250: b = 47&lt;BR /&gt;
Case 119, 128, 228, 239: b = 48&lt;BR /&gt;
Case 17, 27, 37, 47, 57, 67, 77, 87, 97, 100, 116, 129, 229, 236, 240: b =&lt;BR /&gt;
63&lt;BR /&gt;
Case 25, 35, 45, 55, 65, 75, 85, 95, 107, 114, 138, 139, 148, 149, 158, 159,&lt;BR /&gt;
168, 169, 178, 179, 188, 189, 198, 199, 208, 209, 218, 219, 234, 247: b = 79&lt;BR /&gt;
Case 105, 117, 126, 226, 237, 245: b = 95&lt;BR /&gt;
Case 23, 33, 43, 53, 63, 73, 83, 93, 112, 232: b = 96&lt;BR /&gt;
Case 115, 124, 127, 224, 227, 235: b = 111&lt;BR /&gt;
Case 21, 31, 41, 51, 61, 71, 81, 91, 103, 110, 136, 137, 146, 147, 156, 157,&lt;BR /&gt;
166, 167, 176, 177, 186, 187, 196, 197, 206, 207, 216, 217, 230, 243: b =&lt;BR /&gt;
127&lt;BR /&gt;
Case 125, 225, 252: b = 128&lt;BR /&gt;
Case 113, 122, 134, 135, 144, 145, 154, 155, 164, 165, 174, 175, 184, 185,&lt;BR /&gt;
194, 195, 204, 205, 214, 215, 222, 233: b = 144&lt;BR /&gt;
Case 101, 241: b = 159&lt;BR /&gt;
Case 123, 223, 253: g = 175&lt;BR /&gt;
Case 111, 120, 220, 231: b = 191&lt;BR /&gt;
Case 132, 133, 142, 143, 152, 153, 162, 163, 172, 173, 182, 183, 192, 193,&lt;BR /&gt;
202, 203, 212, 213: b = 207&lt;BR /&gt;
Case 121: b = 223&lt;BR /&gt;
Case 130, 131, 140, 141, 150, 151, 160, 161, 170, 171, 180, 181, 190, 191,&lt;BR /&gt;
200, 201, 210, 211, 221, 255: b = 255&lt;BR /&gt;
End Select&lt;BR /&gt;
&lt;BR /&gt;
AcadToRGB = RGB(r, g, b)&lt;BR /&gt;
End Function</description>
      <pubDate>Fri, 22 Mar 2002 08:33:21 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350911#M75862</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2002-03-22T08:33:21Z</dc:date>
    </item>
    <item>
      <title>Re:</title>
      <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350912#M75863</link>
      <description>Crude... allright, but can you tell me where you got this, I spent&lt;BR /&gt;
uncalculable hours to get colors from other aplications to match those of&lt;BR /&gt;
AutoCAD.&lt;BR /&gt;
&lt;BR /&gt;
&lt;BR /&gt;
"broadbent" &lt;SMN&gt; a écrit dans le message de news:&lt;BR /&gt;
3F49DCC0CB469F254A2BD731B6D9F9E3@in.WebX.maYIadrTaRb...&lt;BR /&gt;
&amp;gt; Crude but works.&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt; Public Function AcadToRGB&amp;amp;(ByVal Col&amp;amp;)&lt;BR /&gt;
&amp;gt; Dim r&amp;amp;, g&amp;amp;, b&amp;amp;&lt;BR /&gt;
&amp;gt; Select Case Col&lt;BR /&gt;
&amp;gt; Case 1: AcadToRGB = 255: Exit Function&lt;BR /&gt;
&amp;gt; Case 2: AcadToRGB = 65535: Exit Function&lt;BR /&gt;
&amp;gt; Case 3: AcadToRGB = 65280: Exit Function&lt;BR /&gt;
&amp;gt; Case 4: AcadToRGB = 16776960: Exit Function&lt;BR /&gt;
&amp;gt; Case 5: AcadToRGB = 16711680: Exit Function&lt;BR /&gt;
&amp;gt; Case 6: AcadToRGB = 16711935: Exit Function&lt;BR /&gt;
&amp;gt; Case 7: AcadToRGB = 16777215: Exit Function&lt;BR /&gt;
&amp;gt; Case 8: AcadToRGB = 8355711: Exit Function&lt;BR /&gt;
&amp;gt; Case 9: AcadToRGB = 12566463: Exit Function&lt;BR /&gt;
&amp;gt; Case 10: AcadToRGB = 255: Exit Function&lt;BR /&gt;
&amp;gt; Case 11: AcadToRGB = 8355839: Exit Function&lt;BR /&gt;
&amp;gt; Case 12: AcadToRGB = 207: Exit Function&lt;BR /&gt;
&amp;gt; Case 13: AcadToRGB = 6316239: Exit Function&lt;BR /&gt;
&amp;gt; Case 14: AcadToRGB = 144: Exit Function&lt;BR /&gt;
&amp;gt; Case 15: AcadToRGB = 5197712: Exit Function&lt;BR /&gt;
&amp;gt; Case 16: AcadToRGB = 127: Exit Function&lt;BR /&gt;
&amp;gt; Case 90, 92, 94, 96, 98, 100, 102, 104, 106, 108, 110, 112, 114, 116, 118,&lt;BR /&gt;
&amp;gt; 120, 122, 124, 126, 128, 130, 132, 134, 136, 138, 140, 142, 144, 146, 148,&lt;BR /&gt;
&amp;gt; 150, 152, 154, 156, 158, 160, 162, 164, 166, 168, 170, 172, 174, 176, 178:&lt;BR /&gt;
r&lt;BR /&gt;
&amp;gt; = 0&lt;BR /&gt;
&amp;gt; Case 88, 188: r = 15&lt;BR /&gt;
&amp;gt; Case 86, 186: r = 31&lt;BR /&gt;
&amp;gt; Case 78, 84, 99, 109, 119, 129, 139, 149, 159, 169, 179, 184, 198: r = 32&lt;BR /&gt;
&amp;gt; Case 82, 89, 182, 189, 250: r = 47&lt;BR /&gt;
&amp;gt; Case 68, 79, 199, 208: r = 48&lt;BR /&gt;
&amp;gt; Case 69, 76, 80, 97, 107, 117, 127, 137, 147, 157, 167, 177, 180, 196,&lt;BR /&gt;
209:&lt;BR /&gt;
&amp;gt; r = 63&lt;BR /&gt;
&amp;gt; Case 18, 19, 28, 29, 38, 39, 48, 49, 58, 59, 74, 87, 95, 105, 115, 125,&lt;BR /&gt;
135,&lt;BR /&gt;
&amp;gt; 145, 155, 165, 175, 187, 194, 218, 219, 228, 229, 238, 239, 248, 249: r =&lt;BR /&gt;
79&lt;BR /&gt;
&amp;gt; Case 66, 77, 185, 197, 206: r = 95&lt;BR /&gt;
&amp;gt; Case 72, 85, 93, 103, 113, 123, 133, 143, 153, 163, 173, 192: r = 96&lt;BR /&gt;
&amp;gt; Case 64, 67, 75, 195, 204, 207: r = 111&lt;BR /&gt;
&amp;gt; Case 17, 26, 27, 36, 37, 46, 47, 56, 57, 70, 83, 91, 101, 111, 121, 131,&lt;BR /&gt;
&amp;gt; 141, 151, 161, 171, 183, 190, 216, 217, 226, 227, 236, 237, 246, 247: r =&lt;BR /&gt;
&amp;gt; 127&lt;BR /&gt;
&amp;gt; Case 65, 205, 252: r = 128&lt;BR /&gt;
&amp;gt; Case 24, 25, 34, 35, 44, 45, 54, 55, 62, 73, 193, 202, 214, 215, 224, 225,&lt;BR /&gt;
&amp;gt; 234, 235, 244, 245: r = 144&lt;BR /&gt;
&amp;gt; Case 81, 181: r = 159&lt;BR /&gt;
&amp;gt; Case 63, 203, 253: r = 175&lt;BR /&gt;
&amp;gt; Case 60, 71, 191, 200: r = 191&lt;BR /&gt;
&amp;gt; Case 22, 23, 32, 33, 42, 43, 52, 53, 212, 213, 222, 223, 232, 233, 242,&lt;BR /&gt;
243:&lt;BR /&gt;
&amp;gt; r = 207&lt;BR /&gt;
&amp;gt; Case 61, 201: r = 223&lt;BR /&gt;
&amp;gt; Case 20, 21, 30, 31, 40, 41, 50, 51, 210, 211, 220, 221, 230, 231, 240,&lt;BR /&gt;
241,&lt;BR /&gt;
&amp;gt; 255: r = 255&lt;BR /&gt;
&amp;gt; Case 251: r = 80: g = 80: b = 80&lt;BR /&gt;
&amp;gt; Case 254: r = 208: g = 208: b = 208&lt;BR /&gt;
&amp;gt; End Select&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt; Select Case Col&lt;BR /&gt;
&amp;gt; Case 18, 170, 172, 174, 176, 178, 180, 182, 184, 186, 188, 190, 192, 194,&lt;BR /&gt;
&amp;gt; 196, 198, 200, 202, 204, 206, 208, 210, 212, 214, 216, 218, 220, 222, 224,&lt;BR /&gt;
&amp;gt; 226, 228, 230, 232, 234, 236, 238, 240, 242, 244, 246, 248: g = 0&lt;BR /&gt;
&amp;gt; Case 28, 168: g = 15&lt;BR /&gt;
&amp;gt; Case 26, 166: g = 31&lt;BR /&gt;
&amp;gt; Case 19, 24, 38, 158, 164, 179, 189, 199, 209, 219, 229, 239, 249: g = 32&lt;BR /&gt;
&amp;gt; Case 22, 29, 162, 169, 250: g = 47&lt;BR /&gt;
&amp;gt; Case 39, 48, 148, 159: g = 48&lt;BR /&gt;
&amp;gt; Case 17, 20, 36, 49, 149, 156, 160, 177, 187, 197, 207, 217, 227, 237,&lt;BR /&gt;
247:&lt;BR /&gt;
&amp;gt; g = 63&lt;BR /&gt;
&amp;gt; Case 18, 27, 34, 58, 59, 68, 69, 78, 79, 88, 89, 98, 99, 108, 109, 118,&lt;BR /&gt;
119,&lt;BR /&gt;
&amp;gt; 128, 129, 138, 139, 154, 167, 175, 185, 195, 205, 215, 225, 235, 245: g =&lt;BR /&gt;
79&lt;BR /&gt;
&amp;gt; Case 152: g = 86&lt;BR /&gt;
&amp;gt; Case 25, 37, 46, 146, 157, 165: g = 95&lt;BR /&gt;
&amp;gt; Case 32, 173, 183, 193, 203, 213, 223, 233, 243: g = 96&lt;BR /&gt;
&amp;gt; Case 35, 44, 47, 144, 147, 155: g = 111&lt;BR /&gt;
&amp;gt; Case 23, 30, 56, 57, 66, 67, 76, 77, 86, 87, 96, 97, 106, 107, 116, 117,&lt;BR /&gt;
&amp;gt; 126, 127, 136, 137, 150, 163, 171, 181, 191, 201, 211, 221, 231, 241: g =&lt;BR /&gt;
&amp;gt; 127&lt;BR /&gt;
&amp;gt; Case 45, 145, 252: g = 128&lt;BR /&gt;
&amp;gt; Case 33, 42, 54, 55, 64, 65, 74, 75, 84, 85, 94, 95, 104, 105, 114, 115,&lt;BR /&gt;
&amp;gt; 124, 125, 134, 135, 142, 153: g = 144&lt;BR /&gt;
&amp;gt; Case 21, 161: g = 159&lt;BR /&gt;
&amp;gt; Case 43, 143, 253: g = 175&lt;BR /&gt;
&amp;gt; Case 31, 40, 140, 151: g = 191&lt;BR /&gt;
&amp;gt; Case 52, 53, 62, 63, 72, 73, 82, 83, 92, 93, 102, 103, 112, 113, 122, 123,&lt;BR /&gt;
&amp;gt; 132, 133: g = 207&lt;BR /&gt;
&amp;gt; Case 41, 141: g = 223&lt;BR /&gt;
&amp;gt; Case 50, 51, 60, 61, 70, 71, 80, 81, 90, 91, 100, 101, 110, 111, 120, 121,&lt;BR /&gt;
&amp;gt; 130, 131, 255: g = 255&lt;BR /&gt;
&amp;gt; End Select&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt; Select Case Col&lt;BR /&gt;
&amp;gt; Case 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50,&lt;BR /&gt;
52,&lt;BR /&gt;
&amp;gt; 54, 56, 58, 60, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 84, 86, 88,&lt;BR /&gt;
90,&lt;BR /&gt;
&amp;gt; 92, 94, 96, 98: b = 0&lt;BR /&gt;
&amp;gt; Case 108, 248: b = 15&lt;BR /&gt;
&amp;gt; Case 106, 246: b = 31&lt;BR /&gt;
&amp;gt; Case 19, 29, 39, 49, 59, 69, 79, 89, 99, 104, 118, 238, 244: b = 32&lt;BR /&gt;
&amp;gt; Case 102, 109, 242, 249, 250: b = 47&lt;BR /&gt;
&amp;gt; Case 119, 128, 228, 239: b = 48&lt;BR /&gt;
&amp;gt; Case 17, 27, 37, 47, 57, 67, 77, 87, 97, 100, 116, 129, 229, 236, 240: b =&lt;BR /&gt;
&amp;gt; 63&lt;BR /&gt;
&amp;gt; Case 25, 35, 45, 55, 65, 75, 85, 95, 107, 114, 138, 139, 148, 149, 158,&lt;BR /&gt;
159,&lt;BR /&gt;
&amp;gt; 168, 169, 178, 179, 188, 189, 198, 199, 208, 209, 218, 219, 234, 247: b =&lt;BR /&gt;
79&lt;BR /&gt;
&amp;gt; Case 105, 117, 126, 226, 237, 245: b = 95&lt;BR /&gt;
&amp;gt; Case 23, 33, 43, 53, 63, 73, 83, 93, 112, 232: b = 96&lt;BR /&gt;
&amp;gt; Case 115, 124, 127, 224, 227, 235: b = 111&lt;BR /&gt;
&amp;gt; Case 21, 31, 41, 51, 61, 71, 81, 91, 103, 110, 136, 137, 146, 147, 156,&lt;BR /&gt;
157,&lt;BR /&gt;
&amp;gt; 166, 167, 176, 177, 186, 187, 196, 197, 206, 207, 216, 217, 230, 243: b =&lt;BR /&gt;
&amp;gt; 127&lt;BR /&gt;
&amp;gt; Case 125, 225, 252: b = 128&lt;BR /&gt;
&amp;gt; Case 113, 122, 134, 135, 144, 145, 154, 155, 164, 165, 174, 175, 184, 185,&lt;BR /&gt;
&amp;gt; 194, 195, 204, 205, 214, 215, 222, 233: b = 144&lt;BR /&gt;
&amp;gt; Case 101, 241: b = 159&lt;BR /&gt;
&amp;gt; Case 123, 223, 253: g = 175&lt;BR /&gt;
&amp;gt; Case 111, 120, 220, 231: b = 191&lt;BR /&gt;
&amp;gt; Case 132, 133, 142, 143, 152, 153, 162, 163, 172, 173, 182, 183, 192, 193,&lt;BR /&gt;
&amp;gt; 202, 203, 212, 213: b = 207&lt;BR /&gt;
&amp;gt; Case 121: b = 223&lt;BR /&gt;
&amp;gt; Case 130, 131, 140, 141, 150, 151, 160, 161, 170, 171, 180, 181, 190, 191,&lt;BR /&gt;
&amp;gt; 200, 201, 210, 211, 221, 255: b = 255&lt;BR /&gt;
&amp;gt; End Select&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt; AcadToRGB = RGB(r, g, b)&lt;BR /&gt;
&amp;gt; End Function&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt;&lt;/SMN&gt;</description>
      <pubDate>Fri, 22 Mar 2002 10:22:28 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350912#M75863</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2002-03-22T10:22:28Z</dc:date>
    </item>
    <item>
      <title>Re:</title>
      <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350913#M75864</link>
      <description>trial and error</description>
      <pubDate>Fri, 22 Mar 2002 10:33:39 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350913#M75864</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2002-03-22T10:33:39Z</dc:date>
    </item>
    <item>
      <title>Re:</title>
      <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350914#M75865</link>
      <description>"Yves Allaire" &lt;Y.ALLAIRE&gt; wrote in message&lt;BR /&gt;
news:7328AD64EAFB6182E81EF88E9626A01B@in.WebX.maYIadrTaRb...&lt;BR /&gt;
&amp;gt; Crude... allright, but can you tell me where you got this, I spent&lt;BR /&gt;
&amp;gt; uncalculable hours to get colors from other aplications to match those of&lt;BR /&gt;
&amp;gt; AutoCAD.&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&lt;BR /&gt;
Here is some Delphi code that uses the values taken&lt;BR /&gt;
from DRV\acad.ctb (from R14). If I recall correctly,&lt;BR /&gt;
the colors are not totally accurate.&lt;BR /&gt;
&lt;BR /&gt;
unit AcColor;&lt;BR /&gt;
&lt;BR /&gt;
interface&lt;BR /&gt;
&lt;BR /&gt;
Uses Windows, Graphics;&lt;BR /&gt;
&lt;BR /&gt;
Function ACIToColor(ACI: Integer): TColor;&lt;BR /&gt;
&lt;BR /&gt;
const acrgb : Array[0..255, 0..2] of Byte = (&lt;BR /&gt;
&lt;BR /&gt;
(0,   0,   0),&lt;BR /&gt;
(255,   0,   0),&lt;BR /&gt;
(255, 255,   0),&lt;BR /&gt;
(0, 255,   0),&lt;BR /&gt;
(0, 255, 255),&lt;BR /&gt;
(0,   0, 255),&lt;BR /&gt;
(255,   0, 255),&lt;BR /&gt;
(255, 255, 255),&lt;BR /&gt;
(162, 162, 162),&lt;BR /&gt;
(239, 239, 239),&lt;BR /&gt;
(255,   0,   0),&lt;BR /&gt;
(255, 191, 191),&lt;BR /&gt;
(237,   0,   0),&lt;BR /&gt;
(237, 161, 161),&lt;BR /&gt;
(216,   0,   0),&lt;BR /&gt;
(216, 130, 130),&lt;BR /&gt;
(193,   0,   0),&lt;BR /&gt;
(193,  98,  98),&lt;BR /&gt;
(164,   0,   0),&lt;BR /&gt;
(164,  82,  82),&lt;BR /&gt;
(255,  63,   0),&lt;BR /&gt;
(255, 207, 191),&lt;BR /&gt;
(237,  59,   0),&lt;BR /&gt;
(237, 180, 161),&lt;BR /&gt;
(216,  54,   0),&lt;BR /&gt;
(216, 151, 130),&lt;BR /&gt;
(193,  48,   0),&lt;BR /&gt;
(193, 121,  98),&lt;BR /&gt;
(164,  41,   0),&lt;BR /&gt;
(164, 102,  82),&lt;BR /&gt;
(255, 127,   0),&lt;BR /&gt;
(255, 223, 191),&lt;BR /&gt;
(237, 118,   0),&lt;BR /&gt;
(237, 199, 161),&lt;BR /&gt;
(216, 108,   0),&lt;BR /&gt;
(216, 173, 130),&lt;BR /&gt;
(193,  96,   0),&lt;BR /&gt;
(193, 145,  98),&lt;BR /&gt;
(164,  82,   0),&lt;BR /&gt;
(164, 123,  82),&lt;BR /&gt;
(255, 191,   0),&lt;BR /&gt;
(255, 239, 191),&lt;BR /&gt;
(237, 177,   0),&lt;BR /&gt;
(237, 218, 161),&lt;BR /&gt;
(216, 162,   0),&lt;BR /&gt;
(216, 195, 130),&lt;BR /&gt;
(193, 144,   0),&lt;BR /&gt;
(193, 169,  98),&lt;BR /&gt;
(164, 123,   0),&lt;BR /&gt;
(164, 143,  82),&lt;BR /&gt;
(255, 255,   0),&lt;BR /&gt;
(255, 255, 191),&lt;BR /&gt;
(237, 237,   0),&lt;BR /&gt;
(237, 237, 161),&lt;BR /&gt;
(216, 216,   0),&lt;BR /&gt;
(216, 216, 130),&lt;BR /&gt;
(193, 193,   0),&lt;BR /&gt;
(193, 193,  98),&lt;BR /&gt;
(164, 164,   0),&lt;BR /&gt;
(164, 164,  82),&lt;BR /&gt;
(191, 255,   0),&lt;BR /&gt;
(239, 255, 191),&lt;BR /&gt;
(177, 237,   0),&lt;BR /&gt;
(218, 237, 161),&lt;BR /&gt;
(162, 216,   0),&lt;BR /&gt;
(195, 216, 130),&lt;BR /&gt;
(144, 193,   0),&lt;BR /&gt;
(169, 193,  98),&lt;BR /&gt;
(123, 164,   0),&lt;BR /&gt;
(143, 164,  82),&lt;BR /&gt;
(127, 255,   0),&lt;BR /&gt;
(223, 255, 191),&lt;BR /&gt;
(118, 237,   0),&lt;BR /&gt;
(199, 237, 161),&lt;BR /&gt;
(108, 216,   0),&lt;BR /&gt;
(173, 216, 130),&lt;BR /&gt;
(96, 193,   0),&lt;BR /&gt;
(145, 193,  98),&lt;BR /&gt;
(82, 164,   0),&lt;BR /&gt;
(123, 164,  82),&lt;BR /&gt;
(63, 255,   0),&lt;BR /&gt;
(207, 255, 191),&lt;BR /&gt;
(59, 237,   0),&lt;BR /&gt;
(180, 237, 161),&lt;BR /&gt;
(54, 216,   0),&lt;BR /&gt;
(151, 216, 130),&lt;BR /&gt;
(48, 193,   0),&lt;BR /&gt;
(121, 193,  98),&lt;BR /&gt;
(41, 164,   0),&lt;BR /&gt;
(102, 164,  82),&lt;BR /&gt;
(0, 255,   0),&lt;BR /&gt;
(191, 255, 191),&lt;BR /&gt;
(0, 237,   0),&lt;BR /&gt;
(161, 237, 161),&lt;BR /&gt;
(0, 216,   0),&lt;BR /&gt;
(130, 216, 130),&lt;BR /&gt;
(0, 193,   0),&lt;BR /&gt;
(98, 193,  98),&lt;BR /&gt;
(0, 164,   0),&lt;BR /&gt;
(82, 164,  82),&lt;BR /&gt;
(0, 255,  63),&lt;BR /&gt;
(191, 255, 207),&lt;BR /&gt;
(0, 237,  59),&lt;BR /&gt;
(161, 237, 180),&lt;BR /&gt;
(0, 216,  54),&lt;BR /&gt;
(130, 216, 151),&lt;BR /&gt;
(0, 193,  48),&lt;BR /&gt;
(98, 193, 121),&lt;BR /&gt;
(0, 164,  41),&lt;BR /&gt;
(82, 164, 102),&lt;BR /&gt;
(0, 255, 127),&lt;BR /&gt;
(191, 255, 223),&lt;BR /&gt;
(0, 237, 118),&lt;BR /&gt;
(161, 237, 199),&lt;BR /&gt;
(0, 216, 108),&lt;BR /&gt;
(130, 216, 173),&lt;BR /&gt;
(0, 193,  96),&lt;BR /&gt;
(98, 193, 145),&lt;BR /&gt;
(0, 164,  82),&lt;BR /&gt;
(82, 164, 123),&lt;BR /&gt;
(0, 255, 191),&lt;BR /&gt;
(191, 255, 239),&lt;BR /&gt;
(0, 237, 177),&lt;BR /&gt;
(161, 237, 218),&lt;BR /&gt;
(0, 216, 162),&lt;BR /&gt;
(130, 216, 195),&lt;BR /&gt;
(0, 193, 144),&lt;BR /&gt;
(98, 193, 169),&lt;BR /&gt;
(0, 164, 123),&lt;BR /&gt;
(82, 164, 143),&lt;BR /&gt;
(0, 255, 255),&lt;BR /&gt;
(191, 255, 255),&lt;BR /&gt;
(0, 237, 237),&lt;BR /&gt;
(161, 237, 237),&lt;BR /&gt;
(0, 216, 216),&lt;BR /&gt;
(130, 216, 216),&lt;BR /&gt;
(0, 193, 193),&lt;BR /&gt;
(98, 193, 193),&lt;BR /&gt;
(0, 164, 164),&lt;BR /&gt;
(82, 164, 164),&lt;BR /&gt;
(0, 191, 255),&lt;BR /&gt;
(191, 239, 255),&lt;BR /&gt;
(0, 177, 237),&lt;BR /&gt;
(161, 218, 237),&lt;BR /&gt;
(0, 162, 216),&lt;BR /&gt;
(130, 195, 216),&lt;BR /&gt;
(0, 144, 193),&lt;BR /&gt;
(98, 169, 193),&lt;BR /&gt;
(0, 123, 164),&lt;BR /&gt;
(82, 143, 164),&lt;BR /&gt;
(0, 127, 255),&lt;BR /&gt;
(191, 223, 255),&lt;BR /&gt;
(0, 118, 237),&lt;BR /&gt;
(161, 199, 237),&lt;BR /&gt;
(0, 108, 216),&lt;BR /&gt;
(130, 173, 216),&lt;BR /&gt;
(0,  96, 193),&lt;BR /&gt;
(98, 145, 193),&lt;BR /&gt;
(0,  82, 164),&lt;BR /&gt;
(82, 123, 164),&lt;BR /&gt;
(0,  63, 255),&lt;BR /&gt;
(191, 207, 255),&lt;BR /&gt;
(0,  59, 237),&lt;BR /&gt;
(161, 180, 237),&lt;BR /&gt;
(0,  54, 216),&lt;BR /&gt;
(130, 151, 216),&lt;BR /&gt;
(0,  48, 193),&lt;BR /&gt;
(98, 121, 193),&lt;BR /&gt;
(0,  41, 164),&lt;BR /&gt;
(82, 102, 164),&lt;BR /&gt;
(0,   0, 255),&lt;BR /&gt;
(191, 191, 255),&lt;BR /&gt;
(0,   0, 237),&lt;BR /&gt;
(161, 161, 237),&lt;BR /&gt;
(0,   0, 216),&lt;BR /&gt;
(130, 130, 216),&lt;BR /&gt;
(0,   0, 193),&lt;BR /&gt;
(98,  98, 193),&lt;BR /&gt;
(0,   0, 164),&lt;BR /&gt;
(82,  82, 164),&lt;BR /&gt;
(63,   0, 255),&lt;BR /&gt;
(207, 191, 255),&lt;BR /&gt;
(59,   0, 237),&lt;BR /&gt;
(180, 161, 237),&lt;BR /&gt;
(54,   0, 216),&lt;BR /&gt;
(151, 130, 216),&lt;BR /&gt;
(48,   0, 193),&lt;BR /&gt;
(121,  98, 193),&lt;BR /&gt;
(41,   0, 164),&lt;BR /&gt;
(102,  82, 164),&lt;BR /&gt;
(127,   0, 255),&lt;BR /&gt;
(223, 191, 255),&lt;BR /&gt;
(118,   0, 237),&lt;BR /&gt;
(199, 161, 237),&lt;BR /&gt;
(108,   0, 216),&lt;BR /&gt;
(173, 130, 216),&lt;BR /&gt;
(96,   0, 193),&lt;BR /&gt;
(145,  98, 193),&lt;BR /&gt;
(82,   0, 164),&lt;BR /&gt;
(123,  82, 164),&lt;BR /&gt;
(191,   0, 255),&lt;BR /&gt;
(239, 191, 255),&lt;BR /&gt;
(177,   0, 237),&lt;BR /&gt;
(218, 161, 237),&lt;BR /&gt;
(162,   0, 216),&lt;BR /&gt;
(195, 130, 216),&lt;BR /&gt;
(144,   0, 193),&lt;BR /&gt;
(169,  98, 193),&lt;BR /&gt;
(123,   0, 164),&lt;BR /&gt;
(143,  82, 164),&lt;BR /&gt;
(255,   0, 255),&lt;BR /&gt;
(255, 191, 255),&lt;BR /&gt;
(237,   0, 237),&lt;BR /&gt;
(237, 161, 237),&lt;BR /&gt;
(216,   0, 216),&lt;BR /&gt;
(216, 130, 216),&lt;BR /&gt;
(193,   0, 193),&lt;BR /&gt;
(193,  98, 193),&lt;BR /&gt;
(164,   0, 164),&lt;BR /&gt;
(164,  82, 164),&lt;BR /&gt;
(255,   0, 191),&lt;BR /&gt;
(255, 191, 239),&lt;BR /&gt;
(237,   0, 177),&lt;BR /&gt;
(237, 161, 218),&lt;BR /&gt;
(216,   0, 162),&lt;BR /&gt;
(216, 130, 195),&lt;BR /&gt;
(193,   0, 144),&lt;BR /&gt;
(193,  98, 169),&lt;BR /&gt;
(164,   0, 123),&lt;BR /&gt;
(164,  82, 143),&lt;BR /&gt;
(255,   0, 127),&lt;BR /&gt;
(255, 191, 223),&lt;BR /&gt;
(237,   0, 118),&lt;BR /&gt;
(237, 161, 199),&lt;BR /&gt;
(216,   0, 108),&lt;BR /&gt;
(216, 130, 173),&lt;BR /&gt;
(193,   0,  96),&lt;BR /&gt;
(193,  98, 145),&lt;BR /&gt;
(164,   0,  82),&lt;BR /&gt;
(164,  82, 123),&lt;BR /&gt;
(255,   0,  63),&lt;BR /&gt;
(255, 191, 207),&lt;BR /&gt;
(237,   0,  59),&lt;BR /&gt;
(237, 161, 180),&lt;BR /&gt;
(216,   0,  54),&lt;BR /&gt;
(216, 130, 151),&lt;BR /&gt;
(193,   0,  48),&lt;BR /&gt;
(193,  98, 121),&lt;BR /&gt;
(164,   0,  41),&lt;BR /&gt;
(164,  82, 102),&lt;BR /&gt;
(93,  93,  93),&lt;BR /&gt;
(162, 162, 162),&lt;BR /&gt;
(210, 210, 210),&lt;BR /&gt;
(239, 239, 239),&lt;BR /&gt;
(252, 252, 252),&lt;BR /&gt;
(255, 255, 255)&lt;BR /&gt;
&lt;BR /&gt;
);&lt;BR /&gt;
&lt;BR /&gt;
var&lt;BR /&gt;
  AcColors : Array [0..255] of TColor;&lt;BR /&gt;
  i : integer;&lt;BR /&gt;
&lt;BR /&gt;
implementation&lt;BR /&gt;
&lt;BR /&gt;
Function ACIToColor(ACI: Integer): TColor;&lt;BR /&gt;
begin&lt;BR /&gt;
  If ACI &amp;lt; 256 then&lt;BR /&gt;
    Result := AcColors[ACI]&lt;BR /&gt;
  else&lt;BR /&gt;
    Result := clNone;&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
// Set to white for dark background or black for light background&lt;BR /&gt;
&lt;BR /&gt;
Procedure SetColor7(r, g, b: byte);&lt;BR /&gt;
begin&lt;BR /&gt;
  AcColors[7] := TColor(Rgb(r, g, b));&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
Procedure SetLightBackground;&lt;BR /&gt;
begin&lt;BR /&gt;
  AcColors[7] := clBlack;&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
Procedure SetDarkBackground;&lt;BR /&gt;
begin&lt;BR /&gt;
  AcColors[7] := clWhite;&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
initialization&lt;BR /&gt;
begin&lt;BR /&gt;
  For i := 0 to 255 do&lt;BR /&gt;
    AcColors&lt;I&gt; := TColor(rgb(acrgb[i, 0], acrgb[i,1], acrgb[i,2]));&lt;BR /&gt;
end;&lt;BR /&gt;
&lt;BR /&gt;
end.&lt;/I&gt;&lt;/Y.ALLAIRE&gt;</description>
      <pubDate>Fri, 22 Mar 2002 12:56:08 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350914#M75865</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2002-03-22T12:56:08Z</dc:date>
    </item>
    <item>
      <title>Re: Converting colors to RGB</title>
      <link>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350915#M75866</link>
      <description>I have compared all of the posted suggestions, along with some formulas&lt;BR /&gt;
found on&lt;BR /&gt;
the web.  None of them seem to produce reliable values.  Can anyone shed any&lt;BR /&gt;
light on this ?&lt;BR /&gt;
&lt;BR /&gt;
Brian D.&lt;BR /&gt;
&lt;BR /&gt;
&lt;BR /&gt;
"Brian D" &lt;BCDIAL&gt; wrote in message&lt;BR /&gt;
news:7EAEAD8BB86ADC0E4554EBA2320E39A0@in.WebX.maYIadrTaRb...&lt;BR /&gt;
&amp;gt; Does anyone know of a formula to convert AutoCAD ACI color codes&lt;BR /&gt;
&amp;gt; to RGB ?&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt; Thanks,&lt;BR /&gt;
&amp;gt; Brian D.&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt;&lt;BR /&gt;
&amp;gt;&lt;/BCDIAL&gt;</description>
      <pubDate>Wed, 27 Mar 2002 11:55:34 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/vba-forum/converting-colors-to-rgb/m-p/350915#M75866</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2002-03-27T11:55:34Z</dc:date>
    </item>
  </channel>
</rss>

