[VLISP程序]：调用Windows系统调色板

eachy

2. 
   
3. ;;test OK with XP
   
4. ;;返回值, 0 取消，整数值 OLEcolor
   
5. (defun xd-getcolor (/ x erg)
   
6.   (if (setq x (vlax-create-object "MSComDlg.CommonDialog"))
   
7.     (progn
   
8.       (vlax-put-property x "Action" 3)
   
9.       (read (variant-value
   
10.               (vlax-variant-change-type
    
11.                 (setq erg (vlax-get-property x "Color"))
    
12.                 vlax-vbstring
    
13.               )
    
14.             )
    
15.       )
    
16.     )
    
17.   )
    
18. )

<br /> ;;test OK with XP<br /> ;;返回值, 0 取消，整数值 OLEcolor<br /> (defun xd-getcolor (/ x erg)<br />   (if (setq x (vlax-create-object "MSComDlg.CommonDialog"))<br />     (progn<br />       (vlax-put-property x "Action" 3)<br />       (read (variant-value<br />               (vlax-variant-change-type<br />                 (setq erg (vlax-get-property x "Color"))<br />                 vlax-vbstring<br />               )<br />             )<br />       )<br />     )<br />   )<br /> )

相关连接
http://www.xdcad.net/forum/showt ... 2298647#post2298647