打开选中对象所在的图层为当前图层

k1nger · 发表于 2011-1-22 12:22

;定义选中对象图层为当前图层
(defun c:layyy (/ n1 n2 n3 n4)
   (setq n1 (car (setq n (entsel "\n 请选择要设为目前层上的物体:"))))
   (setq n3 (assoc 8 (setq n2 (entget n1))))
   (setq n4 (cdr n3))
   (command "layer" "set" n4 ""))

461045462 · 发表于 2011-1-22 20:24

谢谢楼主源码的提供
学习学习

注册 · 发表于 2012-3-24 21:29

短小精悍，不错

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