好的,那么列表中带“nil”的是你的问题 这些来自旧的Express工具LMan(层状态管理器),然后与原始(核心)层状态合并。
我已经好几年没用这个了,但我就是没法删除它。
;;; 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)
)
alanjt公司-
你无法放下过去,这让我摆脱了我一直试图摆脱的讨厌的层状态。非常感谢。李,谢谢你。 很乐意帮忙。
页:
1
[2]