18hzt 发表于 2006-7-5 17:36:00

打开你选择图元所在的图层

<P>欢欢大家的使用!QQ:125664903</P>

peridot 发表于 2006-7-17 16:07:00

在哪呢???

hhak003 发表于 2008-5-24 21:19:00

我怎么好像没看见有啊！！！

zhengchaunti 发表于 2008-8-10 22:56:00

我怎么好像没看见有啊！！！

freefeng 发表于 2008-8-18 18:29:00

我怎么好像没看见有啊！！！!!!

polyfan 发表于 2008-11-9 17:59:00

传说中的神龙见首不见尾？

linheyuanpcb 发表于 2008-11-11 09:13:00

&nbsp;(defun C:TL(/ e n) ;点选变到当前层<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ "\n改变当前层.\n")<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq e (car (entsel "选择目标层上任一对象:")))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (if e<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq e (entget e))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq n (cdr (assoc 8 e)))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "CLAYER" n)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; );end if e<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ (strcat "当前层为 " n "."))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (princ)<br/>&nbsp;)

kingsow 发表于 2009-4-11 13:31:00

这个不错，谢谢分享
页: [1]
查看完整版本: 打开你选择图元所在的图层