图层开始 图层结束

自贡黄明儒

基本上每个lisp爱好者都写过图层工具，结果使用中才发现没用多大价值。
图层开始 与 图层结束 是成对出现的，正如(ACET-UNDO-BEGIN)(ACET-UNDO-END)编组成对出现一样。
下面的开始与结束，以前不安装ET也能使用。但是AutoCAD中表现并不好，似乎不起作用一样，使人怀疑人生，是不是bug待大家讨论，但在bricscad下表现就很好。有了这个开始与结束，能很大程序上简化代码。
;;1.2  图层开始
(defun _StartLayer ()
  (acet-layerp-mode T)
  (acet-layerp-mark T)
  (command "_.Layer" "U" "*" "Thaw" "*" "")
)

;;1.1 [功能] 图层结束
(defun _EndLayer ()
  (command "_.layerp")
  (acet-layerp-mark nil)
)

magicheno

学习学习了~~~~

czb203

感谢大佬的分享，谢谢～

sunwei2009

学习学习了