将对象所在图层及颜色设为当前

437271963

2. (defun c:tes ( / a62 a8 ent1)
   
3. (if (null vlax-dump-object) (vl-load-com) )
   
4. (if (setq ent1 (entsel "\n请选择对象"))
   
5.   (progn
   
6.    (setq ent1 (vlax-ename->vla-object (car ent1)))
   
7.    (setq a8 (vla-get-layer ent1));图层
   
8.    (setq a62 (vla-get-color ent1));颜色
   
9.    (setq a62 (rtos a62 2 0))
   
10.    (setvar "CECOLOR" a62);颜色
    
11.    (setvar "Clayer" a8);图层
    
12.   )
    
13. )
    
14. (princ)
    
15. );如果用VLA的话，程序应当比较短

(defun c:tes ( / a62 a8 ent1)<br /> (if (null vlax-dump-object) (vl-load-com) )<br /> (if (setq ent1 (entsel "\n请选择对象"))<br />   (progn<br />    (setq ent1 (vlax-ename->vla-object (car ent1)))<br />    (setq a8 (vla-get-layer ent1));图层<br />    (setq a62 (vla-get-color ent1));颜色<br />    (setq a62 (rtos a62 2 0))<br />    (setvar "CECOLOR" a62);颜色<br />    (setvar "Clayer" a8);图层<br />   )<br /> )<br /> (princ)<br /> );如果用VLA的话，程序应当比较短

tangjunasd58

rhf看看

水仙的错

很好的插件

davide888

回复看看      

lisp爱好者

过来看看，谢

roro

蛮好的！

shh1980

回复一下，向高手学习！

wxplodder

正需要，谢谢

dabingrain

恢复看看，恢复看看

onlooker

看看啊，如何呢