[求助]為何不能刪除層？

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)?"
)
)
(initget 1 "Yes No")
(if (= "Yes" (getkword))
(command "erase" ss "" "purge" "la" ceng "n")
)
)
(progn
(command "purge" "la" ceng "n")
(princ "\n该图层没有图形实体!")
)
)
(princ)
)

王咣生

各图层间可能有相互关联的实体. 比如参考块实体.



这要看你的数据了! 你可以贴也你的试验数据dwg.


大家结合你的程序可以知道原因了?

meflying

不删除对象而删除层?这可能吗?

ljs026

是同时删除，不是只删层不删除对象

f5612140

存档后再开档purge

meflying

ljs026发表于2004-9-3 13:46:00是同时删除，不是只删层不删除对象

"这个程序为何只能删除层？" 是针对你这句话,这种情况不可能发生,就是说你说的问题根本就不可能存在

ljs026

我找到问题了！是因为不能删除当前层啦！另外图层现有"(itoa ll)"个图形实体,你确信要删除该层吗(Y/N)?"
如何让它预设为Y？

hoprich123

用initget 和 getkword配合完成。

ljs026

请问如何配合？请大大帮改一下好吗？

hoprich123

(initget "Y y N n")


(setq key(getkword (strcat "文档中有" (itoa ll) "个实体,确定要删除此层吗(Y/N)&lt;Y&gt;")))


(if (null key)(setq key "Y"))


(if (= (strcase key) "Y)


                                         (progn


                                                                                         删除图层动作


                                                )


)