437271963 发表于 2016-2-27 19:08:20

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

tangjunasd58 发表于 2016-2-28 10:37:53

rhf看看






水仙的错 发表于 2016-2-28 20:47:43

很好的插件

davide888 发表于 2016-2-29 11:18:39

回复看看      

lisp爱好者 发表于 2016-2-29 11:24:59

过来看看，谢

roro 发表于 2016-3-4 13:06:14

蛮好的！

shh1980 发表于 2016-3-10 20:04:36

回复一下，向高手学习！

wxplodder 发表于 2016-3-11 10:48:24

正需要，谢谢

dabingrain 发表于 2016-3-26 17:43:32

恢复看看，恢复看看

onlooker 发表于 2016-3-28 09:00:43

看看啊，如何呢
页: 1 2 3 4 5 6 7 [8] 9 10
查看完整版本: 将对象所在图层及颜色设为当前