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

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

欢欢大家的使用!QQ:125664903

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

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

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

这个不错，谢谢分享

账号		自动登录	找回密码
密码			注册