[求助]為何物件刪了，層仍在？

ljs026

请教大大们！为何物件删了，层仍在？出现找不到未被参考的 图层的讯息
(defun c:kill (/ ceng ss ll ask)
(setvar "CMDECHO" 0)
(setq ask (getint "\n 1.根据实体选择层 2.已知层名:<1>"))
(if (= nil ask)
(setq ask 1)
)
(if (= ask 1)
(progn
(setq ceng
(cdr
(assoc 8
(entget (car (entsel "\n请选择要删除层的实体:")))))))
(progn
(setq ceng (getstring "\n请输入要删除的层名:"))))
(setq ss (ssget "X"(list (cons 8 ceng))))
(if ss
(progn
(setq ll (sslength ss))
(princ (strcat ceng
"\n图层现有"
(itoa ll)
"个图形实体,你确信要删除该层吗(Y/N)<Y>"
)
)
(initget 0 "Yes No")
(if (or (= "Yes" (setq key (getkword))) (= key nil))
(command "erase" ss "" "purge" "la" ceng "n")
)
)
(progn
(command "purge" "la" ceng "n")
(princ "\n该图层没有图形实体!")
)
)
(princ)
)

meflying

发了帖子,就应该对回复仔细阅读,再有问题,最好在后面继续跟帖,不要总发新的(注意2楼的) http://bbs.mjtd.com/forum.php?mod=viewthread&tid=25640