分享一个关图层的LISP

hcb262

(defun c:hc () ; 设置选中对象图层为当前图层
(setq e1 (entget (car (entsel "n选择一个对象："))))
; (entget (entlast))
(setq layer1 (assoc 8 e1))
(setq layername (cdr layer1))
(command "-layer" "s" layername "")
(prin1 layername)
)

(defun c:gc () ; 关闭选中对象图层
(setq e1 (entget (car (entsel "n选择一个对象："))))
; (entget (entlast))
(setq layer1 (assoc 8 e1))
(setq layername (cdr layer1))
(command "-layer" "off" layername "")
(princ)
)

希望大家多多交流。。。那样我们才都会进步。。。

liuht441802

图层控制的很多，有的好用，有的不好用

liuht441802

最好上图，说清楚

LIAOYAO

楼上灌水的质量很低哈！

8609808

喜欢这种简单明了的

999zxcvbnm999

好好学习，向楼主致敬:)