删除所有布局选项卡

ksperopoulos · 发表于 2022-7-6 11:47:25

以下是它所展示的内容：

Lee Mac · 发表于 2022-7-6 11:48:54

好的，那么列表中带“nil”的是你的问题

alanjt · 发表于 2022-7-6 11:53:56

这些来自旧的Express工具LMan（层状态管理器），然后与原始（核心）层状态合并。

我已经好几年没用这个了，但我就是没法删除它。

copy

;;; Delete all LMAN groups
;;; From Tom Stoeckel <tom.stoeckel@autodesk.com>
(defun c:killstates (/ lyr ent)
 (while (setq lyr (tblnext "layer" (not lyr)))
   (setq ent (entget (tblobjname "layer" (cdr (assoc 2 lyr))) '("RAK")))
   (if (and ent (assoc -3 ent))
     (progn
       (setq ent (subst '(-3 ("RAK")) (assoc -3 ent) ent))
       (entmod ent)
     ) ;progn
   ) ;if
 );while
 (princ)
)

ksperopoulos · 发表于 2022-7-6 11:56:29

alanjt公司-

你无法放下过去，这让我摆脱了我一直试图摆脱的讨厌的层状态。非常感谢。李，谢谢你。

alanjt · 发表于 2022-7-6 12:02:34

很乐意帮忙。

[编程交流] 删除所有布局选项卡

发表回复

精选推荐