bjbjbjbj 发表于 2008-10-9 16:14:00

CAD颜色对话框的256色值如何转化为RGB

<p>本人正在编一个程序，需要调用颜色对话框，选择颜色，并让该颜色显示在VB的界面上，但颜色对话框选中的颜色为256色的值，而VB的颜色为RGB，不知该如何转化？或者有什么其他办法实现该功能？</p><p>请各位高手帮忙啊！</p><p>本人使用的CAD版本是CAD2002，颜色对话框可以用color调用出来</p>

王咣生 发表于 2008-10-9 19:51:00

<p></p><p>例如:&nbsp;(ACItoRGB 123)</p><p>lisp程序</p><p>;;;<br/>(defun ACItoRGB (aci)<br/>&nbsp; (if (and (&gt;= aci 0) (&lt;= 255))<br/>&nbsp;&nbsp;&nbsp; (nth aci RGB_list)<br/>&nbsp; )<br/>)</p><p>(setq RGB_list '(<br/>&nbsp;&nbsp; (0 0 0)<br/>&nbsp;&nbsp; (255 0 0)<br/>&nbsp;&nbsp; (255 255 0)<br/>&nbsp;&nbsp; (0 255 0)<br/>&nbsp;&nbsp; (0 255 255)<br/>&nbsp;&nbsp; (0 0 255)<br/>&nbsp;&nbsp; (255 0 255)<br/>&nbsp;&nbsp; (255 255 255)<br/>&nbsp;&nbsp; (128 128 128)<br/>&nbsp;&nbsp; (192 192 192)<br/>&nbsp;&nbsp; (255 0 0)<br/>&nbsp;&nbsp; (255 127 127)<br/>&nbsp;&nbsp; (165 0 0)<br/>&nbsp;&nbsp; (165 82 82)<br/>&nbsp;&nbsp; (127 0 0)<br/>&nbsp;&nbsp; (127 63 63)<br/>&nbsp;&nbsp; (76 0 0)<br/>&nbsp;&nbsp; (76 38 38)<br/>&nbsp;&nbsp; (38 0 0)<br/>&nbsp;&nbsp; (38 19 19)<br/>&nbsp;&nbsp; (255 63 0)<br/>&nbsp;&nbsp; (255 159 127)<br/>&nbsp;&nbsp; (165 41 0)<br/>&nbsp;&nbsp; (165 103 82)<br/>&nbsp;&nbsp; (127 31 0)<br/>&nbsp;&nbsp; (127 79 63)<br/>&nbsp;&nbsp; (76 19 0)<br/>&nbsp;&nbsp; (76 47 38)<br/>&nbsp;&nbsp; (38 9 0)<br/>&nbsp;&nbsp; (38 23 19)<br/>&nbsp;&nbsp; (255 127 0)<br/>&nbsp;&nbsp; (255 191 127)<br/>&nbsp;&nbsp; (165 82 0)<br/>&nbsp;&nbsp; (165 124 82)<br/>&nbsp;&nbsp; (127 63 0)<br/>&nbsp;&nbsp; (127 95 63)<br/>&nbsp;&nbsp; (76 38 0)<br/>&nbsp;&nbsp; (76 57 38)<br/>&nbsp;&nbsp; (38 19 0)<br/>&nbsp;&nbsp; (38 28 19)<br/>&nbsp;&nbsp; (255 191 0)<br/>&nbsp;&nbsp; (255 223 127)<br/>&nbsp;&nbsp; (165 124 0)<br/>&nbsp;&nbsp; (165 145 82)<br/>&nbsp;&nbsp; (127 95 0)<br/>&nbsp;&nbsp; (127 111 63)<br/>&nbsp;&nbsp; (76 57 0)<br/>&nbsp;&nbsp; (76 66 38)<br/>&nbsp;&nbsp; (38 28 0)<br/>&nbsp;&nbsp; (38 33 19)<br/>&nbsp;&nbsp; (255 255 0)<br/>&nbsp;&nbsp; (255 255 127)<br/>&nbsp;&nbsp; (165 165 0)<br/>&nbsp;&nbsp; (165 165 82)<br/>&nbsp;&nbsp; (127 127 0)<br/>&nbsp;&nbsp; (127 127 63)<br/>&nbsp;&nbsp; (76 76 0)<br/>&nbsp;&nbsp; (76 76 38)<br/>&nbsp;&nbsp; (38 38 0)<br/>&nbsp;&nbsp; (38 38 19)<br/>&nbsp;&nbsp; (191 255 0)<br/>&nbsp;&nbsp; (223 255 127)<br/>&nbsp;&nbsp; (124 165 0)<br/>&nbsp;&nbsp; (145 165 82)<br/>&nbsp;&nbsp; (95 127 0)<br/>&nbsp;&nbsp; (111 127 63)<br/>&nbsp;&nbsp; (57 76 0)<br/>&nbsp;&nbsp; (66 76 38)<br/>&nbsp;&nbsp; (28 38 0)<br/>&nbsp;&nbsp; (33 38 19)<br/>&nbsp;&nbsp; (127 255 0)<br/>&nbsp;&nbsp; (191 255 127)<br/>&nbsp;&nbsp; (82 165 0)<br/>&nbsp;&nbsp; (124 165 82)<br/>&nbsp;&nbsp; (63 127 0)<br/>&nbsp;&nbsp; (95 127 63)<br/>&nbsp;&nbsp; (38 76 0)<br/>&nbsp;&nbsp; (57 76 38)<br/>&nbsp;&nbsp; (19 38 0)<br/>&nbsp;&nbsp; (28 38 19)<br/>&nbsp;&nbsp; (63 255 0)<br/>&nbsp;&nbsp; (159 255 127)<br/>&nbsp;&nbsp; (41 165 0)<br/>&nbsp;&nbsp; (103 165 82)<br/>&nbsp;&nbsp; (31 127 0)<br/>&nbsp;&nbsp; (79 127 63)<br/>&nbsp;&nbsp; (19 76 0)<br/>&nbsp;&nbsp; (47 76 38)<br/>&nbsp;&nbsp; (9 38 0)<br/>&nbsp;&nbsp; (23 38 19)<br/>&nbsp;&nbsp; (0 255 0)<br/>&nbsp;&nbsp; (127 255 127)<br/>&nbsp;&nbsp; (0 165 0)<br/>&nbsp;&nbsp; (82 165 82)<br/>&nbsp;&nbsp; (0 127 0)<br/>&nbsp;&nbsp; (63 127 63)<br/>&nbsp;&nbsp; (0 76 0)<br/>&nbsp;&nbsp; (38 76 38)<br/>&nbsp;&nbsp; (0 38 0)<br/>&nbsp;&nbsp; (19 38 19)<br/>&nbsp;&nbsp; (0 255 63)<br/>&nbsp;&nbsp; (127 255 159)<br/>&nbsp;&nbsp; (0 165 41)<br/>&nbsp;&nbsp; (82 165 103)<br/>&nbsp;&nbsp; (0 127 31)<br/>&nbsp;&nbsp; (63 127 79)<br/>&nbsp;&nbsp; (0 76 19)<br/>&nbsp;&nbsp; (38 76 47)<br/>&nbsp;&nbsp; (0 38 9)<br/>&nbsp;&nbsp; (19 38 23)<br/>&nbsp;&nbsp; (0 255 127)<br/>&nbsp;&nbsp; (127 255 191)<br/>&nbsp;&nbsp; (0 165 82)<br/>&nbsp;&nbsp; (82 165 124)<br/>&nbsp;&nbsp; (0 127 63)<br/>&nbsp;&nbsp; (63 127 95)<br/>&nbsp;&nbsp; (0 76 38)<br/>&nbsp;&nbsp; (38 76 57)<br/>&nbsp;&nbsp; (0 38 19)<br/>&nbsp;&nbsp; (19 38 28)<br/>&nbsp;&nbsp; (0 255 191)<br/>&nbsp;&nbsp; (127 255 223)<br/>&nbsp;&nbsp; (0 165 124)<br/>&nbsp;&nbsp; (82 165 145)<br/>&nbsp;&nbsp; (0 127 95)<br/>&nbsp;&nbsp; (63 127 111)<br/>&nbsp;&nbsp; (0 76 57)<br/>&nbsp;&nbsp; (38 76 66)<br/>&nbsp;&nbsp; (0 38 28)<br/>&nbsp;&nbsp; (19 38 33)<br/>&nbsp;&nbsp; (0 255 255)<br/>&nbsp;&nbsp; (127 255 255)<br/>&nbsp;&nbsp; (0 165 165)<br/>&nbsp;&nbsp; (82 165 165)<br/>&nbsp;&nbsp; (0 127 127)<br/>&nbsp;&nbsp; (63 127 127)<br/>&nbsp;&nbsp; (0 76 76)<br/>&nbsp;&nbsp; (38 76 76)<br/>&nbsp;&nbsp; (0 38 38)<br/>&nbsp;&nbsp; (19 38 38)<br/>&nbsp;&nbsp; (0 191 255)<br/>&nbsp;&nbsp; (127 223 255)<br/>&nbsp;&nbsp; (0 124 165)<br/>&nbsp;&nbsp; (82 145 165)<br/>&nbsp;&nbsp; (0 95 127)<br/>&nbsp;&nbsp; (63 111 127)<br/>&nbsp;&nbsp; (0 57 76)<br/>&nbsp;&nbsp; (38 66 76)<br/>&nbsp;&nbsp; (0 28 38)<br/>&nbsp;&nbsp; (19 33 38)<br/>&nbsp;&nbsp; (0 127 255)<br/>&nbsp;&nbsp; (127 191 255)<br/>&nbsp;&nbsp; (0 82 165)<br/>&nbsp;&nbsp; (82 124 165)<br/>&nbsp;&nbsp; (0 63 127)<br/>&nbsp;&nbsp; (63 95 127)<br/>&nbsp;&nbsp; (0 38 76)<br/>&nbsp;&nbsp; (38 57 76)<br/>&nbsp;&nbsp; (0 19 38)<br/>&nbsp;&nbsp; (19 28 38)<br/>&nbsp;&nbsp; (0 63 255)<br/>&nbsp;&nbsp; (127 159 255)<br/>&nbsp;&nbsp; (0 41 165)<br/>&nbsp;&nbsp; (82 103 165)<br/>&nbsp;&nbsp; (0 31 127)<br/>&nbsp;&nbsp; (63 79 127)<br/>&nbsp;&nbsp; (0 19 76)<br/>&nbsp;&nbsp; (38 47 76)<br/>&nbsp;&nbsp; (0 9 38)<br/>&nbsp;&nbsp; (19 23 38)<br/>&nbsp;&nbsp; (0 0 255)<br/>&nbsp;&nbsp; (127 127 255)<br/>&nbsp;&nbsp; (0 0 165)<br/>&nbsp;&nbsp; (82 82 165)<br/>&nbsp;&nbsp; (0 0 127)<br/>&nbsp;&nbsp; (63 63 127)<br/>&nbsp;&nbsp; (0 0 76)<br/>&nbsp;&nbsp; (38 38 76)<br/>&nbsp;&nbsp; (0 0 38)<br/>&nbsp;&nbsp; (19 19 38)<br/>&nbsp;&nbsp; (63 0 255)<br/>&nbsp;&nbsp; (159 127 255)<br/>&nbsp;&nbsp; (41 0 165)<br/>&nbsp;&nbsp; (103 82 165)<br/>&nbsp;&nbsp; (31 0 127)<br/>&nbsp;&nbsp; (79 63 127)<br/>&nbsp;&nbsp; (19 0 76)<br/>&nbsp;&nbsp; (47 38 76)<br/>&nbsp;&nbsp; (9 0 38)<br/>&nbsp;&nbsp; (23 19 38)<br/>&nbsp;&nbsp; (127 0 255)<br/>&nbsp;&nbsp; (191 127 255)<br/>&nbsp;&nbsp; (82 0 165)<br/>&nbsp;&nbsp; (124 82 165)<br/>&nbsp;&nbsp; (63 0 127)<br/>&nbsp;&nbsp; (95 63 127)<br/>&nbsp;&nbsp; (38 0 76)<br/>&nbsp;&nbsp; (57 38 76)<br/>&nbsp;&nbsp; (19 0 38)<br/>&nbsp;&nbsp; (28 19 38)<br/>&nbsp;&nbsp; (191 0 255)<br/>&nbsp;&nbsp; (223 127 255)<br/>&nbsp;&nbsp; (124 0 165)<br/>&nbsp;&nbsp; (145 82 165)<br/>&nbsp;&nbsp; (95 0 127)<br/>&nbsp;&nbsp; (111 63 127)<br/>&nbsp;&nbsp; (57 0 76)<br/>&nbsp;&nbsp; (66 38 76)<br/>&nbsp;&nbsp; (28 0 38)<br/>&nbsp;&nbsp; (33 19 38)<br/>&nbsp;&nbsp; (255 0 255)<br/>&nbsp;&nbsp; (255 127 255)<br/>&nbsp;&nbsp; (165 0 165)<br/>&nbsp;&nbsp; (165 82 165)<br/>&nbsp;&nbsp; (127 0 127)<br/>&nbsp;&nbsp; (127 63 127)<br/>&nbsp;&nbsp; (76 0 76)<br/>&nbsp;&nbsp; (76 38 76)<br/>&nbsp;&nbsp; (38 0 38)<br/>&nbsp;&nbsp; (38 19 38)<br/>&nbsp;&nbsp; (255 0 191)<br/>&nbsp;&nbsp; (255 127 223)<br/>&nbsp;&nbsp; (165 0 124)<br/>&nbsp;&nbsp; (165 82 145)<br/>&nbsp;&nbsp; (127 0 95)<br/>&nbsp;&nbsp; (127 63 111)<br/>&nbsp;&nbsp; (76 0 57)<br/>&nbsp;&nbsp; (76 38 66)<br/>&nbsp;&nbsp; (38 0 28)<br/>&nbsp;&nbsp; (38 19 33)<br/>&nbsp;&nbsp; (255 0 127)<br/>&nbsp;&nbsp; (255 127 191)<br/>&nbsp;&nbsp; (165 0 82)<br/>&nbsp;&nbsp; (165 82 124)<br/>&nbsp;&nbsp; (127 0 63)<br/>&nbsp;&nbsp; (127 63 95)<br/>&nbsp;&nbsp; (76 0 38)<br/>&nbsp;&nbsp; (76 38 57)<br/>&nbsp;&nbsp; (38 0 19)<br/>&nbsp;&nbsp; (38 19 28)<br/>&nbsp;&nbsp; (255 0 63)<br/>&nbsp;&nbsp; (255 127 159)<br/>&nbsp;&nbsp; (165 0 41)<br/>&nbsp;&nbsp; (165 82 103)<br/>&nbsp;&nbsp; (127 0 31)<br/>&nbsp;&nbsp; (127 63 79)<br/>&nbsp;&nbsp; (76 0 19)<br/>&nbsp;&nbsp; (76 38 47)<br/>&nbsp;&nbsp; (38 0 9)<br/>&nbsp;&nbsp; (38 19 23)<br/>&nbsp;&nbsp; (0 0 0)<br/>&nbsp;&nbsp; (51 51 51)<br/>&nbsp;&nbsp; (102 102 102)<br/>&nbsp;&nbsp; (153 153 153)<br/>&nbsp;&nbsp; (204 204 204)<br/>&nbsp;&nbsp; (255 255 255)<br/>&nbsp;&nbsp;)<br/>)<br/></p>

bjbjbjbj 发表于 2008-10-9 21:07:00

很感谢！你太强了，居然能把他们排列出来。真的感谢。试出来我也上传下

bjbjbjbj 发表于 2008-10-10 13:35:00

搞定了。谢谢
页: [1]
查看完整版本: CAD颜色对话框的256色值如何转化为RGB