图层开始图层结束

自贡黄明儒 发表于 2022-11-25 08:55:08

基本上每个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 发表于 2022-11-25 19:26:57