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

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)
)

柔柔

purge能做到彻底清理吗？
要彻底清理，程序要大大的改进
要搜索所有图块和组，分解－>修改对象属性－>重新组合－>清理
要是清理有这么便当，还会懂脑筋编程？