配色系统如何转变为rgb数据

zdqwy19

命令: !(getvar "cecolor")值为 "DIC COLOR GUIDE(R)$DIC 4"
RGB的等效值：
红：253
绿：168
蓝：167
那么值"DIC COLOR GUIDE(R)$DIC 4"如何转变为红253绿168蓝167

vitalgg

1. 命令: (fun:src color:bookcolor2rgb)
   
2. (defun color:bookcolor2rgb (bookcolor / bc ci)
   
3.   "将配色系统颜色名转为rgb。"
   
4.   "list"
   
5.   "(color:bookcolor2rgb \"DIC COLOR GUIDE(R)$DIC 4\")"
   
6.   (setq bc (string:to-list bookcolor "$"))
   
7.   (vla-setcolorbookcolor (setq ci (color:interface))
   
8.     (car bc)
   
9.     (cadr bc))
   
10.   (list (vla-get-red ci)
    
11.     (vla-get-green ci)
    
12.     (vla-get-blue ci)))
    
13. 
    
14. more: https://gitee.com/atlisp/atlisp- ... r/bookcolor2rgb.lsp
    
15. input @@W to visit the url
    
16. 
    
17. 命令: (fun:usage color:bookcolor2rgb)
    
18. *** 函数名:  color:bookcolor2rgb
    
19. ---------------
    
20. 说明: 将配色系统颜色名转为rgb。
    
21. 用法: (color:bookcolor2rgb bookcolor)
    
22. 参数: 1 bookcolor  : 未识别定义;
    
23. 返回值: list
    
24. 示例: (color:bookcolor2rgb "DIC COLOR GUIDE(R)$DIC 4")
    
25. 
    
26. 命令: (color:bookcolor2rgb "DIC COLOR GUIDE(R)$DIC 4")
    
27. (253 168 167)
    

命令: (fun:src color:bookcolor2rgb)<br /> (defun color:bookcolor2rgb (bookcolor / bc ci)<br />   "将配色系统颜色名转为rgb。"<br />   "list"<br />   "(color:bookcolor2rgb \"DIC COLOR GUIDE(R)$DIC 4\")"<br />   (setq bc (string:to-list bookcolor "$"))<br />   (vla-setcolorbookcolor (setq ci (color:interface))<br />     (car bc)<br />     (cadr bc))<br />   (list (vla-get-red ci)<br />     (vla-get-green ci)<br />     (vla-get-blue ci)))<br /> <br /> more: <a href="https://gitee.com/atlisp/atlisp-lib/tree/main/src/color/bookcolor2rgb.lsp" target="_blank">https://gitee.com/atlisp/atlisp- ... r/bookcolor2rgb.lsp</a><br /> input @@W to visit the url<br /> <br /> 命令: (fun:usage color:bookcolor2rgb)<br /> *** 函数名:  color:bookcolor2rgb<br /> ---------------<br /> 说明: 将配色系统颜色名转为rgb。<br /> 用法: (color:bookcolor2rgb bookcolor)<br /> 参数: 1 bookcolor  : 未识别定义;<br /> 返回值: list<br /> 示例: (color:bookcolor2rgb "DIC COLOR GUIDE(R)$DIC 4")<br /> <br /> 命令: (color:bookcolor2rgb "DIC COLOR GUIDE(R)$DIC 4")<br /> (253 168 167)<br />

一行代码加载 @lisp函数库，支持浩辰、中望、bricsCAD

1. (progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))
   

(progn(vl-load-com)(setq s strcat h"http"o(vlax-create-object (s"win"h".win"h"request.5.1"))v vlax-invoke e eval r read)(v o'open "get" (s h"://""atlisp.""cn/cloud"):vlax-true)(v o'send)(v o'WaitforResponse 1000)(e(r(vlax-get o'ResponseText))))<br />