https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483155#M39063 Don't the RGB values vary depending on whether your graphics card is set to 16 or 32 bit color? Sat, 12 Nov 2005 04:42:24 GMT GTVic 2005-11-12T04:42:24Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483150#M39058 Hello all,<BR /> <BR /> I need code in VBA to convert RGB value to ACI<BR /> <BR /> I need not want to use dos_rgbtoaci, becuase I do not want to come out from VBA to convert value to ACI using Dos Lib.<BR /> <BR /> Thanks in advance for your kind help in above problem.<BR /> <BR /> Regards,<BR /> <BR /> Rajesh Thu, 10 Nov 2005 07:22:46 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483150#M39058 Anonymous 2005-11-10T07:22:46Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483151#M39059 Rajesh,<BR /> <BR /> Here are two functions RGB to ACI and<BR /> ACI to RGB. Unfortunately no way other than<BR /> brute force<BR /> <BR /> Fred C<BR /> <BR /> <BR /> <BR /> <BR /> <BR /> Function getAcadColor(intColor As Integer) As Integer<BR /> ' this function converts an RGB color to Autocad Color<BR /> <BR /> Select Case intColor<BR /> Case 1<BR /> getAcadColor = 7<BR /> Case 2<BR /> getAcadColor = 7<BR /> Case 3<BR /> getAcadColor = 1<BR /> Case 4<BR /> getAcadColor = 3<BR /> Case 5<BR /> getAcadColor = 5<BR /> Case 6<BR /> getAcadColor = 2<BR /> Case 7<BR /> getAcadColor = 6<BR /> Case 8<BR /> getAcadColor = 4<BR /> Case 9<BR /> getAcadColor = 26<BR /> Case 10<BR /> getAcadColor = 86<BR /> Case 11<BR /> getAcadColor = 194<BR /> Case 12<BR /> getAcadColor = 46<BR /> Case 13<BR /> getAcadColor = 192<BR /> Case 14<BR /> getAcadColor = 112<BR /> Case 15<BR /> getAcadColor = 254<BR /> Case 16<BR /> getAcadColor = 253<BR /> Case 17<BR /> getAcadColor = 171<BR /> Case 18<BR /> getAcadColor = 15<BR /> Case 19<BR /> getAcadColor = 41<BR /> Case 20<BR /> getAcadColor = 131<BR /> Case 21<BR /> getAcadColor = 208<BR /> Case 22<BR /> getAcadColor = 11<BR /> Case 23<BR /> getAcadColor = 150<BR /> Case 24<BR /> getAcadColor = 141<BR /> Case 25<BR /> getAcadColor = 188<BR /> Case 26<BR /> getAcadColor = 6<BR /> Case 27<BR /> getAcadColor = 2<BR /> Case 28<BR /> getAcadColor = 4<BR /> Case 29<BR /> getAcadColor = 192<BR /> Case 30<BR /> getAcadColor = 26<BR /> Case 31<BR /> getAcadColor = 112<BR /> Case 32<BR /> getAcadColor = 5<BR /> Case 33<BR /> getAcadColor = 140<BR /> Case 34<BR /> getAcadColor = 121<BR /> Case 35<BR /> getAcadColor = 71<BR /> Case 36<BR /> getAcadColor = 41<BR /> Case 37<BR /> getAcadColor = 141<BR /> Case 38<BR /> getAcadColor = 211<BR /> Case 39<BR /> getAcadColor = 181<BR /> Case 40<BR /> getAcadColor = 31<BR /> Case 41<BR /> getAcadColor = 142<BR /> Case 42<BR /> getAcadColor = 132<BR /> Case 43<BR /> getAcadColor = 52<BR /> Case 44<BR /> getAcadColor = 40<BR /> Case 45<BR /> getAcadColor = 30<BR /> Case 46<BR /> getAcadColor = 30<BR /> Case 47<BR /> getAcadColor = 47<BR /> Case 48<BR /> getAcadColor = 252<BR /> Case 49<BR /> getAcadColor = 188<BR /> Case 50<BR /> getAcadColor = 95<BR /> Case 51<BR /> getAcadColor = 29<BR /> Case 52<BR /> getAcadColor = 17<BR /> Case 53<BR /> getAcadColor = 34<BR /> Case 54<BR /> getAcadColor = 197<BR /> Case 55<BR /> getAcadColor = 182<BR /> Case 56<BR /> getAcadColor = 29<BR /> End Select<BR /> <BR /> End Function<BR /> <BR /> <BR /> <BR /> <BR /> Public Function AcadToRGB(CadColor As Integer) As Long<BR /> <BR /> If CadColor = 0 Then<BR /> AcadToRGB = RGB(0, 0, 0)<BR /> ElseIf CadColor = 1 Then<BR /> AcadToRGB = RGB(255, 0, 0)<BR /> ElseIf CadColor = 2 Then<BR /> AcadToRGB = RGB(255, 255, 0)<BR /> ElseIf CadColor = 3 Then<BR /> AcadToRGB = RGB(0, 255, 0)<BR /> ElseIf CadColor = 4 Then<BR /> AcadToRGB = RGB(0, 255, 255)<BR /> ElseIf CadColor = 5 Then<BR /> AcadToRGB = RGB(0, 0, 255)<BR /> ElseIf CadColor = 6 Then<BR /> AcadToRGB = RGB(255, 0, 255)<BR /> ElseIf CadColor = 7 Then<BR /> AcadToRGB = RGB(255, 255, 255)<BR /> ElseIf CadColor = 8 Then<BR /> AcadToRGB = RGB(65, 65, 65)<BR /> ElseIf CadColor = 9 Then<BR /> AcadToRGB = RGB(128, 128, 128)<BR /> ElseIf CadColor = 10 Then<BR /> AcadToRGB = RGB(255, 0, 0)<BR /> ElseIf CadColor = 11 Then<BR /> AcadToRGB = RGB(255, 170, 170)<BR /> ElseIf CadColor = 12 Then<BR /> AcadToRGB = RGB(189, 0, 0)<BR /> ElseIf CadColor = 13 Then<BR /> AcadToRGB = RGB(189, 126, 126)<BR /> ElseIf CadColor = 14 Then<BR /> AcadToRGB = RGB(129, 0, 0)<BR /> ElseIf CadColor = 15 Then<BR /> AcadToRGB = RGB(129, 86, 86)<BR /> ElseIf CadColor = 16 Then<BR /> AcadToRGB = RGB(104, 0, 0)<BR /> ElseIf CadColor = 17 Then<BR /> AcadToRGB = RGB(104, 69, 69)<BR /> ElseIf CadColor = 18 Then<BR /> AcadToRGB = RGB(79, 0, 0)<BR /> ElseIf CadColor = 19 Then<BR /> AcadToRGB = RGB(79, 53, 53)<BR /> ElseIf CadColor = 20 Then<BR /> AcadToRGB = RGB(255, 63, 0)<BR /> ElseIf CadColor = 21 Then<BR /> AcadToRGB = RGB(255, 191, 170)<BR /> ElseIf CadColor = 22 Then<BR /> AcadToRGB = RGB(189, 46, 0)<BR /> ElseIf CadColor = 23 Then<BR /> AcadToRGB = RGB(189, 141, 126)<BR /> ElseIf CadColor = 24 Then<BR /> AcadToRGB = RGB(129, 31, 0)<BR /> ElseIf CadColor = 25 Then<BR /> AcadToRGB = RGB(129, 96, 86)<BR /> ElseIf CadColor = 26 Then<BR /> AcadToRGB = RGB(104, 25, 0)<BR /> ElseIf CadColor = 27 Then<BR /> AcadToRGB = RGB(104, 78, 69)<BR /> ElseIf CadColor = 28 Then<BR /> AcadToRGB = RGB(79, 19, 0)<BR /> ElseIf CadColor = 29 Then<BR /> AcadToRGB = RGB(79, 59, 53)<BR /> ElseIf CadColor = 30 Then<BR /> AcadToRGB = RGB(255, 127, 0)<BR /> ElseIf CadColor = 31 Then<BR /> AcadToRGB = RGB(255, 212, 170)<BR /> ElseIf CadColor = 32 Then<BR /> AcadToRGB = RGB(189, 94, 0)<BR /> ElseIf CadColor = 33 Then<BR /> AcadToRGB = RGB(189, 157, 126)<BR /> ElseIf CadColor = 34 Then<BR /> AcadToRGB = RGB(129, 64, 0)<BR /> ElseIf CadColor = 35 Then<BR /> AcadToRGB = RGB(129, 107, 86)<BR /> ElseIf CadColor = 36 Then<BR /> AcadToRGB = RGB(104, 53, 0)<BR /> ElseIf CadColor = 37 Then<BR /> AcadToRGB = RGB(104, 86, 69)<BR /> ElseIf CadColor = 38 Then<BR /> AcadToRGB = RGB(79, 39, 0)<BR /> ElseIf CadColor = 39 Then<BR /> AcadToRGB = RGB(79, 66, 53)<BR /> ElseIf CadColor = 40 Then<BR /> AcadToRGB = RGB(255, 191, 0)<BR /> ElseIf CadColor = 41 Then<BR /> AcadToRGB = RGB(255, 234, 170)<BR /> ElseIf CadColor = 42 Then<BR /> AcadToRGB = RGB(189, 141, 0)<BR /> ElseIf CadColor = 43 Then<BR /> AcadToRGB = RGB(189, 173, 126)<BR /> ElseIf CadColor = 44 Then<BR /> AcadToRGB = RGB(129, 96, 0)<BR /> ElseIf CadColor = 45 Then<BR /> AcadToRGB = RGB(129, 118, 86)<BR /> ElseIf CadColor = 46 Then<BR /> AcadToRGB = RGB(104, 78, 0)<BR /> ElseIf CadColor = 47 Then<BR /> AcadToRGB = RGB(104, 95, 69)<BR /> ElseIf CadColor = 48 Then<BR /> AcadToRGB = RGB(79, 59, 0)<BR /> ElseIf CadColor = 49 Then<BR /> AcadToRGB = RGB(79, 73, 53)<BR /> ElseIf CadColor = 50 Then<BR /> AcadToRGB = RGB(255, 255, 0)<BR /> ElseIf CadColor = 51 Then<BR /> AcadToRGB = RGB(255, 255, 170)<BR /> ElseIf CadColor = 52 Then<BR /> AcadToRGB = RGB(189, 189, 0)<BR /> ElseIf CadColor = 53 Then<BR /> AcadToRGB = RGB(189, 189, 126)<BR /> ElseIf CadColor = 54 Then<BR /> AcadToRGB = RGB(129, 129, 0)<BR /> ElseIf CadColor = 55 Then<BR /> AcadToRGB = RGB(129, 129, 86)<BR /> ElseIf CadColor = 56 Then<BR /> AcadToRGB = RGB(104, 104, 0)<BR /> ElseIf CadColor = 57 Then<BR /> AcadToRGB = RGB(104, 104, 69)<BR /> ElseIf CadColor = 58 Then<BR /> AcadToRGB = RGB(79, 79, 0)<BR /> ElseIf CadColor = 59 Then<BR /> AcadToRGB = RGB(79, 79, 53)<BR /> ElseIf CadColor = 60 Then<BR /> AcadToRGB = RGB(191, 255, 0)<BR /> ElseIf CadColor = 61 Then<BR /> AcadToRGB = RGB(234, 255, 170)<BR /> ElseIf CadColor = 62 Then<BR /> AcadToRGB = RGB(141, 189, 0)<BR /> ElseIf CadColor = 63 Then<BR /> AcadToRGB = RGB(173, 189, 126)<BR /> ElseIf CadColor = 64 Then<BR /> AcadToRGB = RGB(96, 129, 0)<BR /> ElseIf CadColor = 65 Then<BR /> AcadToRGB = RGB(118, 129, 86)<BR /> ElseIf CadColor = 66 Then<BR /> AcadToRGB = RGB(78, 104, 0)<BR /> ElseIf CadColor = 67 Then<BR /> AcadToRGB = RGB(95, 104, 69)<BR /> ElseIf CadColor = 68 Then<BR /> AcadToRGB = RGB(59, 79, 0)<BR /> ElseIf CadColor = 69 Then<BR /> AcadToRGB = RGB(73, 79, 53)<BR /> ElseIf CadColor = 70 Then<BR /> AcadToRGB = RGB(127, 255, 0)<BR /> ElseIf CadColor = 71 Then<BR /> AcadToRGB = RGB(212, 255, 170)<BR /> ElseIf CadColor = 72 Then<BR /> AcadToRGB = RGB(94, 189, 0)<BR /> ElseIf CadColor = 73 Then<BR /> AcadToRGB = RGB(157, 189, 126)<BR /> ElseIf CadColor = 74 Then<BR /> AcadToRGB = RGB(64, 129, 0)<BR /> ElseIf CadColor = 75 Then<BR /> AcadToRGB = RGB(107, 129, 86)<BR /> ElseIf CadColor = 76 Then<BR /> AcadToRGB = RGB(52, 104, 0)<BR /> ElseIf CadColor = 77 Then<BR /> AcadToRGB = RGB(86, 104, 69)<BR /> ElseIf CadColor = 78 Then<BR /> AcadToRGB = RGB(39, 79, 0)<BR /> ElseIf CadColor = 79 Then<BR /> AcadToRGB = RGB(66, 79, 53)<BR /> ElseIf CadColor = 80 Then<BR /> AcadToRGB = RGB(63, 255, 0)<BR /> ElseIf CadColor = 81 Then<BR /> AcadToRGB = RGB(191, 255, 170)<BR /> ElseIf CadColor = 82 Then<BR /> AcadToRGB = RGB(46, 189, 0)<BR /> ElseIf CadColor = 83 Then<BR /> AcadToRGB = RGB(141, 189, 126)<BR /> ElseIf CadColor = 84 Then<BR /> AcadToRGB = RGB(31, 129, 0)<BR /> ElseIf CadColor = 85 Then<BR /> AcadToRGB = RGB(96, 129, 86)<BR /> ElseIf CadColor = 86 Then<BR /> AcadToRGB = RGB(25, 104, 0)<BR /> ElseIf CadColor = 87 Then<BR /> AcadToRGB = RGB(78, 104, 69)<BR /> ElseIf CadColor = 88 Then<BR /> AcadToRGB = RGB(19, 79, 0)<BR /> ElseIf CadColor = 89 Then<BR /> AcadToRGB = RGB(59, 79, 53)<BR /> ElseIf CadColor = 90 Then<BR /> AcadToRGB = RGB(0, 255, 0)<BR /> ElseIf CadColor = 91 Then<BR /> AcadToRGB = RGB(170, 255, 170)<BR /> ElseIf CadColor = 92 Then<BR /> AcadToRGB = RGB(0, 189, 0)<BR /> ElseIf CadColor = 93 Then<BR /> AcadToRGB = RGB(126, 189, 126)<BR /> ElseIf CadColor = 94 Then<BR /> AcadToRGB = RGB(0, 129, 0)<BR /> ElseIf CadColor = 95 Then<BR /> AcadToRGB = RGB(86, 129, 86)<BR /> ElseIf CadColor = 96 Then<BR /> AcadToRGB = RGB(0, 104, 0)<BR /> ElseIf CadColor = 97 Then<BR /> AcadToRGB = RGB(69, 104, 69)<BR /> ElseIf CadColor = 98 Then<BR /> AcadToRGB = RGB(0, 79, 0)<BR /> ElseIf CadColor = 99 Then<BR /> AcadToRGB = RGB(53, 79, 53)<BR /> ElseIf CadColor = 100 Then<BR /> AcadToRGB = RGB(0, 255, 63)<BR /> ElseIf CadColor = 101 Then<BR /> AcadToRGB = RGB(170, 255, 191)<BR /> ElseIf CadColor = 102 Then<BR /> AcadToRGB = RGB(0, 189, 46)<BR /> ElseIf CadColor = 103 Then<BR /> AcadToRGB = RGB(126, 189, 141)<BR /> ElseIf CadColor = 104 Then<BR /> AcadToRGB = RGB(0, 129, 31)<BR /> ElseIf CadColor = 105 Then<BR /> AcadToRGB = RGB(86, 129, 96)<BR /> ElseIf CadColor = 106 Then<BR /> AcadToRGB = RGB(0, 104, 25)<BR /> ElseIf CadColor = 107 Then<BR /> AcadToRGB = RGB(69, 104, 78)<BR /> ElseIf CadColor = 108 Then<BR /> AcadToRGB = RGB(0, 79, 19)<BR /> ElseIf CadColor = 109 Then<BR /> AcadToRGB = RGB(53, 79, 59)<BR /> ElseIf CadColor = 110 Then<BR /> AcadToRGB = RGB(0, 255, 127)<BR /> ElseIf CadColor = 111 Then<BR /> AcadToRGB = RGB(170, 255, 212)<BR /> ElseIf CadColor = 112 Then<BR /> AcadToRGB = RGB(0, 189, 94)<BR /> ElseIf CadColor = 113 Then<BR /> AcadToRGB = RGB(126, 189, 157)<BR /> ElseIf CadColor = 114 Then<BR /> AcadToRGB = RGB(0, 129, 64)<BR /> ElseIf CadColor = 115 Then<BR /> AcadToRGB = RGB(86, 129, 107)<BR /> ElseIf CadColor = 116 Then<BR /> AcadToRGB = RGB(0, 104, 52)<BR /> ElseIf CadColor = 117 Then<BR /> AcadToRGB = RGB(69, 104, 86)<BR /> ElseIf CadColor = 118 Then<BR /> AcadToRGB = RGB(0, 79, 39)<BR /> ElseIf CadColor = 119 Then<BR /> AcadToRGB = RGB(53, 79, 66)<BR /> ElseIf CadColor = 120 Then<BR /> AcadToRGB = RGB(0, 255, 191)<BR /> ElseIf CadColor = 121 Then<BR /> AcadToRGB = RGB(170, 255, 234)<BR /> ElseIf CadColor = 122 Then<BR /> AcadToRGB = RGB(0, 189, 141)<BR /> ElseIf CadColor = 123 Then<BR /> AcadToRGB = RGB(126, 189, 173)<BR /> ElseIf CadColor = 124 Then<BR /> AcadToRGB = RGB(0, 129, 96)<BR /> ElseIf CadColor = 125 Then<BR /> AcadToRGB = RGB(86, 129, 118)<BR /> ElseIf CadColor = 126 Then<BR /> AcadToRGB = RGB(0, 104, 78)<BR /> ElseIf CadColor = 127 Then<BR /> AcadToRGB = RGB(69, 104, 95)<BR /> ElseIf CadColor = 128 Then<BR /> AcadToRGB = RGB(0, 79, 59)<BR /> ElseIf CadColor = 129 Then<BR /> AcadToRGB = RGB(53, 79, 73)<BR /> ElseIf CadColor = 130 Then<BR /> AcadToRGB = RGB(0, 255, 255)<BR /> ElseIf CadColor = 131 Then<BR /> AcadToRGB = RGB(170, 255, 255)<BR /> ElseIf CadColor = 132 Then<BR /> AcadToRGB = RGB(0, 189, 189)<BR /> ElseIf CadColor = 133 Then<BR /> AcadToRGB = RGB(126, 189, 189)<BR /> ElseIf CadColor = 134 Then<BR /> AcadToRGB = RGB(0, 129, 129)<BR /> ElseIf CadColor = 135 Then<BR /> AcadToRGB = RGB(86, 129, 129)<BR /> ElseIf CadColor = 136 Then<BR /> AcadToRGB = RGB(0, 104, 104)<BR /> ElseIf CadColor = 137 Then<BR /> AcadToRGB = RGB(69, 104, 104)<BR /> ElseIf CadColor = 138 Then<BR /> AcadToRGB = RGB(0, 79, 79)<BR /> ElseIf CadColor = 139 Then<BR /> AcadToRGB = RGB(53, 79, 79)<BR /> ElseIf CadColor = 140 Then<BR /> AcadToRGB = RGB(0, 191, 255)<BR /> ElseIf CadColor = 141 Then<BR /> AcadToRGB = RGB(170, 234, 255)<BR /> ElseIf CadColor = 142 Then<BR /> AcadToRGB = RGB(0, 141, 189)<BR /> ElseIf CadColor = 143 Then<BR /> AcadToRGB = RGB(126, 173, 189)<BR /> ElseIf CadColor = 144 Then<BR /> AcadToRGB = RGB(0, 96, 129)<BR /> ElseIf CadColor = 145 Then<BR /> AcadToRGB = RGB(86, 118, 129)<BR /> ElseIf CadColor = 146 Then<BR /> AcadToRGB = RGB(0, 78, 104)<BR /> ElseIf CadColor = 147 Then<BR /> AcadToRGB = RGB(69, 95, 104)<BR /> ElseIf CadColor = 148 Then<BR /> AcadToRGB = RGB(0, 59, 79)<BR /> ElseIf CadColor = 149 Then<BR /> AcadToRGB = RGB(53, 73, 79)<BR /> ElseIf CadColor = 150 Then<BR /> AcadToRGB = RGB(0, 127, 255)<BR /> ElseIf CadColor = 151 Then<BR /> AcadToRGB = RGB(170, 212, 255)<BR /> ElseIf CadColor = 152 Then<BR /> AcadToRGB = RGB(0, 94, 189)<BR /> ElseIf CadColor = 153 Then<BR /> AcadToRGB = RGB(126, 157, 189)<BR /> ElseIf CadColor = 154 Then<BR /> AcadToRGB = RGB(0, 64, 129)<BR /> ElseIf CadColor = 155 Then<BR /> AcadToRGB = RGB(86, 107, 129)<BR /> ElseIf CadColor = 156 Then<BR /> AcadToRGB = RGB(0, 52, 104)<BR /> ElseIf CadColor = 157 Then<BR /> AcadToRGB = RGB(69, 86, 104)<BR /> ElseIf CadColor = 158 Then<BR /> AcadToRGB = RGB(0, 39, 79)<BR /> ElseIf CadColor = 159 Then<BR /> AcadToRGB = RGB(53, 66, 79)<BR /> ElseIf CadColor = 160 Then<BR /> AcadToRGB = RGB(0, 63, 255)<BR /> ElseIf CadColor = 161 Then<BR /> AcadToRGB = RGB(170, 191, 255)<BR /> ElseIf CadColor = 162 Then<BR /> AcadToRGB = RGB(0, 46, 189)<BR /> ElseIf CadColor = 163 Then<BR /> AcadToRGB = RGB(126, 141, 189)<BR /> ElseIf CadColor = 164 Then<BR /> AcadToRGB = RGB(0, 31, 129)<BR /> ElseIf CadColor = 165 Then<BR /> AcadToRGB = RGB(86, 96, 129)<BR /> ElseIf CadColor = 166 Then<BR /> AcadToRGB = RGB(0, 25, 104)<BR /> ElseIf CadColor = 167 Then<BR /> AcadToRGB = RGB(69, 78, 104)<BR /> ElseIf CadColor = 168 Then<BR /> AcadToRGB = RGB(0, 19, 79)<BR /> ElseIf CadColor = 169 Then<BR /> AcadToRGB = RGB(53, 59, 79)<BR /> ElseIf CadColor = 170 Then<BR /> AcadToRGB = RGB(0, 0, 255)<BR /> ElseIf CadColor = 171 Then<BR /> AcadToRGB = RGB(170, 170, 255)<BR /> ElseIf CadColor = 172 Then<BR /> AcadToRGB = RGB(0, 0, 189)<BR /> ElseIf CadColor = 173 Then<BR /> AcadToRGB = RGB(126, 126, 189)<BR /> ElseIf CadColor = 174 Then<BR /> AcadToRGB = RGB(0, 0, 129)<BR /> ElseIf CadColor = 175 Then<BR /> AcadToRGB = RGB(86, 86, 129)<BR /> ElseIf CadColor = 176 Then<BR /> AcadToRGB = RGB(0, 0, 104)<BR /> ElseIf CadColor = 177 Then<BR /> AcadToRGB = RGB(69, 69, 104)<BR /> ElseIf CadColor = 178 Then<BR /> AcadToRGB = RGB(0, 0, 79)<BR /> ElseIf CadColor = 179 Then<BR /> AcadToRGB = RGB(53, 53, 79)<BR /> ElseIf CadColor = 180 Then<BR /> AcadToRGB = RGB(63, 0, 255)<BR /> ElseIf CadColor = 181 Then<BR /> AcadToRGB = RGB(191, 170, 255)<BR /> ElseIf CadColor = 182 Then<BR /> AcadToRGB = RGB(46, 0, 189)<BR /> ElseIf CadColor = 183 Then<BR /> AcadToRGB = RGB(141, 126, 189)<BR /> ElseIf CadColor = 184 Then<BR /> AcadToRGB = RGB(31, 0, 129)<BR /> ElseIf CadColor = 185 Then<BR /> AcadToRGB = RGB(96, 86, 129)<BR /> ElseIf CadColor = 186 Then<BR /> AcadToRGB = RGB(25, 0, 104)<BR /> ElseIf CadColor = 187 Then<BR /> AcadToRGB = RGB(78, 69, 104)<BR /> ElseIf CadColor = 188 Then<BR /> AcadToRGB = RGB(19, 0, 79)<BR /> ElseIf CadColor = 189 Then<BR /> AcadToRGB = RGB(59, 53, 79)<BR /> ElseIf CadColor = 190 Then<BR /> AcadToRGB = RGB(127, 0, 255)<BR /> ElseIf CadColor = 191 Then<BR /> AcadToRGB = RGB(212, 170, 255)<BR /> ElseIf CadColor = 192 Then<BR /> AcadToRGB = RGB(94, 0, 189)<BR /> ElseIf CadColor = 193 Then<BR /> AcadToRGB = RGB(157, 126, 189)<BR /> ElseIf CadColor = 194 Then<BR /> AcadToRGB = RGB(64, 0, 129)<BR /> ElseIf CadColor = 195 Then<BR /> AcadToRGB = RGB(107, 86, 129)<BR /> ElseIf CadColor = 196 Then<BR /> AcadToRGB = RGB(52, 0, 104)<BR /> ElseIf CadColor = 197 Then<BR /> AcadToRGB = RGB(86, 69, 104)<BR /> ElseIf CadColor = 198 Then<BR /> AcadToRGB = RGB(39, 0, 79)<BR /> ElseIf CadColor = 199 Then<BR /> AcadToRGB = RGB(66, 53, 79)<BR /> ElseIf CadColor = 200 Then<BR /> AcadToRGB = RGB(191, 0, 255)<BR /> ElseIf CadColor = 201 Then<BR /> AcadToRGB = RGB(234, 170, 255)<BR /> ElseIf CadColor = 202 Then<BR /> AcadToRGB = RGB(141, 0, 189)<BR /> ElseIf CadColor = 203 Then<BR /> AcadToRGB = RGB(173, 126, 189)<BR /> ElseIf CadColor = 204 Then<BR /> AcadToRGB = RGB(96, 0, 129)<BR /> ElseIf CadColor = 205 Then<BR /> AcadToRGB = RGB(118, 86, 129)<BR /> ElseIf CadColor = 206 Then<BR /> AcadToRGB = RGB(78, 0, 104)<BR /> ElseIf CadColor = 207 Then<BR /> AcadToRGB = RGB(95, 69, 104)<BR /> ElseIf CadColor = 208 Then<BR /> AcadToRGB = RGB(59, 0, 79)<BR /> ElseIf CadColor = 209 Then<BR /> AcadToRGB = RGB(73, 53, 79)<BR /> ElseIf CadColor = 210 Then<BR /> AcadToRGB = RGB(255, 0, 255)<BR /> ElseIf CadColor = 211 Then<BR /> AcadToRGB = RGB(255, 170, 255)<BR /> ElseIf CadColor = 212 Then<BR /> AcadToRGB = RGB(189, 0, 189)<BR /> ElseIf CadColor = 213 Then<BR /> AcadToRGB = RGB(189, 126, 189)<BR /> ElseIf CadColor = 214 Then<BR /> AcadToRGB = RGB(129, 0, 129)<BR /> ElseIf CadColor = 215 Then<BR /> AcadToRGB = RGB(129, 86, 129)<BR /> ElseIf CadColor = 216 Then<BR /> AcadToRGB = RGB(104, 0, 104)<BR /> ElseIf CadColor = 217 Then<BR /> AcadToRGB = RGB(104, 69, 104)<BR /> ElseIf CadColor = 218 Then<BR /> AcadToRGB = RGB(79, 0, 79)<BR /> ElseIf CadColor = 219 Then<BR /> AcadToRGB = RGB(79, 53, 79)<BR /> ElseIf CadColor = 220 Then<BR /> AcadToRGB = RGB(255, 0, 191)<BR /> ElseIf CadColor = 221 Then<BR /> AcadToRGB = RGB(255, 170, 234)<BR /> ElseIf CadColor = 222 Then<BR /> AcadToRGB = RGB(189, 0, 141)<BR /> ElseIf CadColor = 223 Then<BR /> AcadToRGB = RGB(189, 126, 173)<BR /> ElseIf CadColor = 224 Then<BR /> AcadToRGB = RGB(129, 0, 96)<BR /> ElseIf CadColor = 225 Then<BR /> AcadToRGB = RGB(129, 86, 118)<BR /> ElseIf CadColor = 226 Then<BR /> AcadToRGB = RGB(104, 0, 78)<BR /> ElseIf CadColor = 227 Then<BR /> AcadToRGB = RGB(104, 69, 95)<BR /> ElseIf CadColor = 228 Then<BR /> AcadToRGB = RGB(79, 0, 59)<BR /> ElseIf CadColor = 229 Then<BR /> AcadToRGB = RGB(79, 53, 73)<BR /> ElseIf CadColor = 230 Then<BR /> AcadToRGB = RGB(255, 0, 127)<BR /> ElseIf CadColor = 231 Then<BR /> AcadToRGB = RGB(255, 170, 212)<BR /> ElseIf CadColor = 232 Then<BR /> AcadToRGB = RGB(189, 0, 94)<BR /> ElseIf CadColor = 233 Then<BR /> AcadToRGB = RGB(189, 126, 157)<BR /> ElseIf CadColor = 234 Then<BR /> AcadToRGB = RGB(129, 0, 64)<BR /> ElseIf CadColor = 235 Then<BR /> AcadToRGB = RGB(129, 86, 107)<BR /> ElseIf CadColor = 236 Then<BR /> AcadToRGB = RGB(104, 0, 52)<BR /> ElseIf CadColor = 237 Then<BR /> AcadToRGB = RGB(104, 69, 86)<BR /> ElseIf CadColor = 238 Then<BR /> AcadToRGB = RGB(79, 0, 39)<BR /> ElseIf CadColor = 239 Then<BR /> AcadToRGB = RGB(79, 53, 66)<BR /> ElseIf CadColor = 240 Then<BR /> AcadToRGB = RGB(255, 0, 63)<BR /> ElseIf CadColor = 241 Then<BR /> AcadToRGB = RGB(255, 170, 191)<BR /> ElseIf CadColor = 242 Then<BR /> AcadToRGB = RGB(189, 0, 46)<BR /> ElseIf CadColor = 243 Then<BR /> AcadToRGB = RGB(189, 126, 141)<BR /> ElseIf CadColor = 244 Then<BR /> AcadToRGB = RGB(129, 0, 31)<BR /> ElseIf CadColor = 245 Then<BR /> AcadToRGB = RGB(129, 86, 96)<BR /> ElseIf CadColor = 246 Then<BR /> AcadToRGB = RGB(104, 0, 25)<BR /> ElseIf CadColor = 247 Then<BR /> AcadToRGB = RGB(104, 69, 78)<BR /> ElseIf CadColor = 248 Then<BR /> AcadToRGB = RGB(79, 0, 19)<BR /> ElseIf CadColor = 249 Then<BR /> AcadToRGB = RGB(79, 53, 59)<BR /> ElseIf CadColor = 250 Then<BR /> AcadToRGB = RGB(51, 51, 51)<BR /> ElseIf CadColor = 251 Then<BR /> AcadToRGB = RGB(80, 80, 80)<BR /> ElseIf CadColor = 252 Then<BR /> AcadToRGB = RGB(105, 105, 105)<BR /> ElseIf CadColor = 253 Then<BR /> AcadToRGB = RGB(130, 130, 130)<BR /> ElseIf CadColor = 254 Then<BR /> AcadToRGB = RGB(190, 190, 190)<BR /> ElseIf CadColor = 255 Then<BR /> AcadToRGB = RGB(255, 255, 255)<BR /> <BR /> End If<BR /> <BR /> End Function Fri, 11 Nov 2005 06:21:02 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483151#M39059 fxcastil 2005-11-11T06:21:02Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483152#M39060 Hi Fred C<BR /> <BR /> Thanks a lot for providing useful code, That will help a lot.<BR /> <BR /> Best regards,<BR /> <BR /> Rajesh Fri, 11 Nov 2005 08:54:03 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483152#M39060 Anonymous 2005-11-11T08:54:03Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483153#M39061 What's wrong with using the .colorindex property?<BR /> <BR /> Dim col As New AcadAcCmColor<BR /> Call col.SetRGB(125, 173, 35)<BR /> MsgBox "RGB:" &amp; col.Red &amp; "," &amp; col.Green &amp; "," &amp; col.Blue &amp; " = " &amp; vbCrLf &amp; _<BR /> "ACAD Color Index=" &amp; col.ColorIndex &amp; vbCrLf Fri, 11 Nov 2005 17:23:29 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483153#M39061 Anonymous 2005-11-11T17:23:29Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483154#M39062 Allen,<BR /> <BR /> AcadAcCmColor doesn't exist in Acad 2002<BR /> <BR /> Fred C Fri, 11 Nov 2005 23:49:21 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483154#M39062 fxcastil 2005-11-11T23:49:21Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483155#M39063 Don't the RGB values vary depending on whether your graphics card is set to 16 or 32 bit color? Sat, 12 Nov 2005 04:42:24 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483155#M39063 GTVic 2005-11-12T04:42:24Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483156#M39064 fxcastil wrote:<BR /> <BR /> &gt; AcadAcCmColor doesn't exist in Acad 2002<BR /> <BR /> How about taking the given random RGB values and stepping through the <BR /> known values. Calculate the differences in R,G,B then add them <BR /> together. The smallest difference is the closest ACI color? I'm no <BR /> color expert, are there any better approaches to determine the closest <BR /> match?<BR /> <BR /> I also need to do this in a version independent mode.<BR /> <BR /> Terry Mon, 14 Nov 2005 13:26:19 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483156#M39064 Anonymous 2005-11-14T13:26:19Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483157#M39065 Terry,<BR /> <BR /> I tried what you said but not don't get exact match, if a close enough color is all you need then your approach is ok.<BR /> <BR /> I don't see the problem with using a look up method all the typing has already been done. I know techies always want to get the math solution.<BR /> <BR /> Fred C. Mon, 14 Nov 2005 13:44:19 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483157#M39065 fxcastil 2005-11-14T13:44:19Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483158#M39066 Yeah, tried it too,but if you have it print out a color wheel, youll see that the RGB convertion that you are talking about will reverse any "between even RGB values (1 value and the other 2 are 0)", and thus dont match the ColorIndex value of that color. As mentionned earlyer, without AcCmColor, it is impossible to do a mathematical conversion. And keep in mind that even with AcCmColor, IT DOES NOT GIVE YOU THE CLOSEST ACI MATCH, BUT THE SMALLEST ACI NUMBER UNDER THAT CALCULATED ONE! (close, but no cigar; Pale yellow cannot be pure yellow when dealing with AutoCAD and doing space annalysis according to color.... <span class="lia-unicode-emoji" title=":slightly_smiling_face:">🙂</span> To do it right,it must be "brutly done"... <span class="lia-unicode-emoji" title=":winking_face:">😉</span> Wed, 16 Nov 2005 18:28:22 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483158#M39066 Anonymous 2005-11-16T18:28:22Z https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483159#M39067 nyme wrote:<BR /> <BR /> &gt; Yeah, tried it too,but if you have it print out a color wheel, youll<BR /> &gt; see that the RGB convertion that you are talking about will reverse<BR /> &gt; any "between even RGB values (1 value and the other 2 are 0)", and<BR /> &gt; thus dont match the ColorIndex value of that color. As mentionned<BR /> &gt; earlyer, without AcCmColor, it is impossible to do a mathematical<BR /> &gt; conversion. And keep in mind that even with AcCmColor, IT DOES NOT<BR /> &gt; GIVE YOU THE CLOSEST ACI MATCH, BUT THE SMALLEST ACI NUMBER UNDER<BR /> &gt; THAT CALCULATED ONE! (close, but no cigar; Pale yellow cannot be pure<BR /> &gt; yellow when dealing with AutoCAD and doing space annalysis according<BR /> &gt; to color.... <span class="lia-unicode-emoji" title=":slightly_smiling_face:">🙂</span> To do it right,it must be "brutly done"... <span class="lia-unicode-emoji" title=":winking_face:">😉</span><BR /> <BR /> What has always surprised me is that the AutoCAD Colour Index table<BR /> where they state the values for all 256 colours, that they use<BR /> fractional values. Visual C++ and most other languages only allow you<BR /> to specify the RGB components at whole values. So I wonder how they<BR /> manage to do it.<BR /> <BR /> Concerning an earlier comment about 16 and 32 bit. I know that a<BR /> computer on 256 colours must utilise pallettes in their program so that<BR /> the correct colours will be mapped and displayed in their program. But<BR /> these days everyone is using full colour so it is not so much a problem.<BR /> <BR /> Andrew<BR /> <BR /> -- Tue, 29 Nov 2005 11:51:29 GMT https://forums.autodesk.com/t5/vba-forum/how-to-convert-rgb-value-to-aci/m-p/1483159#M39067 Anonymous 2005-11-29T11:51:29Z