liminnet 发表于 2008-6-16 15:35:00

liminnet 发表于 2008-6-17 19:54:00

caoyin 发表于 2008-6-18 09:38:00

;;只要稍微动变通一下脑筋<br/>(defun c:zt (/ aa)<br/>&nbsp; (if (setq aa (ssget))<br/>&nbsp;&nbsp;&nbsp; (command "_.chprop" aa ""<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "_la" (getvar "clayer")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "_c"&nbsp; (getvar "cecolor")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "_lt" (getvar "celtype") "")<br/>&nbsp; )<br/>&nbsp; (print)<br/>)<br/>

liminnet 发表于 2008-6-18 09:56:00

tender138 发表于 2018-7-12 15:05:23

不错，留个记号
页: [1]
查看完整版本: 置入当前层(加上置入当前颜色和线型)