请问如何查询颜色的编号并显示在命令行里

dongya1235

请问CAD有无命令可直接查询实体的颜色编号并显示在命令行里命令哪？如果没有怎么用lisp实现哪？望大师指点。

llsheng_73

(princ(itoa(vla-get-color(vlax-ename->vla-object e))))

dongya1235

不会用哪，完整的程序是怎么补全的哪？

edata

一行代码。

2. (progn(and(princ"\n选择对象:")(setq e (car(entsel)))(princ"\n颜色编号:") (princ (itoa(vla-get-color(vlax-ename->vla-object e)))))(princ))

(progn(and(princ"\n选择对象:")(setq e (car(entsel)))(princ"\n颜色编号:") (princ (itoa(vla-get-color(vlax-ename->vla-object e)))))(princ))

dongya1235

谢谢，回去试试。

edata

dongya1235 发表于 2013-12-9 11:55
谢谢，回去试试。

2. (defun c:tt(/ e c)
   
3.   (if (setq e (car (entsel "\n选择对象:")))
   
4.     (progn
   
5.       (setq c(vla-get-color (vlax-ename->vla-object e)))
   
6.       (cond
   
7.         ((= c 0)(princ "\n颜色编号:ByBlock"))
   
8.         ((= c 256)(princ "\n颜色编号:ByLayer"))
   
9.         (t(princ "\n颜色编号:")(princ c))
   
10.         )
    
11.       )
    
12.     (princ "\n未选择对象!")
    
13.     )
    
14.   (princ)
    
15.   )

(defun c:tt(/ e c)<br />   (if (setq e (car (entsel "\n选择对象:")))<br />     (progn<br />       (setq c(vla-get-color (vlax-ename->vla-object e)))<br />       (cond<br />         ((= c 0)(princ "\n颜色编号:ByBlock"))<br />         ((= c 256)(princ "\n颜色编号:ByLayer"))<br />         (t(princ "\n颜色编号:")(princ c))<br />         )<br />       )<br />     (princ "\n未选择对象!")<br />     )<br />   (princ)<br />   )

dongya1235

edata 发表于 2013-12-31 18:20

谢谢，很好用。并祝新年快乐！