(XD::ODCL:GetColorValue)返回ODCL颜色对话框的颜色号

Lispboy

1. ;|
   
2. 返回ODCL颜色对话框的颜色号
   
3. |;
   
4. (defun XD::ODCL:GetColorValue (ctrl / clr1 inx)
   
5.   (setq inx (dcl_ComboBox_GetCurSel ctrl))
   
6.   (setq clr (dcl_ComboBox_GetLBText ctrl inx))
   
7.   (cond
   
8.     ((= "红" clr)
   
9.       1
   
10.     )
    
11.     ((= "黄" clr)
    
12.       2
    
13.     )
    
14.     ((= "绿" clr)
    
15.       3
    
16.     )
    
17.     ((= "青" clr)
    
18.       4
    
19.     )
    
20.     ((= "蓝" clr)
    
21.       5
    
22.     )
    
23.     ((= "洋红" clr)
    
24.       6
    
25.     )
    
26.     ((= "白" clr)
    
27.       7
    
28.     )
    
29.     ((= "ByBlock" clr)
    
30.       0
    
31.     )
    
32.     ((= "ByLayer" clr)
    
33.       256
    
34.     )
    
35.     (t
    
36.       (if (setq clr1 (XD::String:RegExpS "[0-9]+$" clr ""))
    
37.         (progn
    
38.           (atoi (car clr1))
    
39.         )
    
40.         256
    
41.       )
    
42.     )
    
43.   )
    
44. )

;|<br /> 返回ODCL颜色对话框的颜色号<br /> |;<br /> (defun XD::ODCL:GetColorValue (ctrl / clr1 inx)<br />   (setq inx (dcl_ComboBox_GetCurSel ctrl))<br />   (setq clr (dcl_ComboBox_GetLBText ctrl inx))<br />   (cond<br />     ((= "红" clr)<br />       1<br />     )<br />     ((= "黄" clr)<br />       2<br />     )<br />     ((= "绿" clr)<br />       3<br />     )<br />     ((= "青" clr)<br />       4<br />     )<br />     ((= "蓝" clr)<br />       5<br />     )<br />     ((= "洋红" clr)<br />       6<br />     )<br />     ((= "白" clr)<br />       7<br />     )<br />     ((= "ByBlock" clr)<br />       0<br />     )<br />     ((= "ByLayer" clr)<br />       256<br />     )<br />     (t<br />       (if (setq clr1 (XD::String:RegExpS "[0-9]+$" clr ""))<br />         (progn<br />           (atoi (car clr1))<br />         )<br />         256<br />       )<br />     )<br />   )<br /> )