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

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

;定义选中对象图层为当前图层
(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:15

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

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

短小精悍，不错
页: [1]
查看完整版本: 打开选中对象所在的图层为当前图层