[求助]：這個程序為何只能刪除層

ljs026

請問大大，這個程序為何只能刪除層？而不是層和實體同時刪除

刪除一個圖層 無論它是否包含東西

2. 
   
3. (defun c:kill (/ ceng ss ll ask)
   
4.   (setvar "CMDECHO" 0)
   
5.   (setq        ask (getint "\n 1.根據實體選擇層 2.已知層名:<1>")
   
6.   )
   
7.   (if (= nil ask)
   
8.     (setq ask 1)
   
9.   )
   
10.   (if (= ask 1)
    
11.     (progn
    
12.       (setq ceng
    
13.              (cdr
    
14.                (assoc 8
    
15.                       (entget (car (entsel "\n請選擇要刪除層的實體:")))
    
16.                )
    
17.              )
    
18.       )
    
19.     )
    
20.     (progn
    
21.       (setq ceng (getstring "\n請輸入要刪除的層名:"))
    
22.     )
    
23.   )
    
24.   (setq        ss (ssget "X"
    
25.                   (list (cons 8 ceng))
    
26.            )
    
27.   )
    
28.   (if ss
    
29.     (progn
    
30.       (setq ll (sslength ss))
    
31.       (princ (strcat ceng
    
32.                      "\n圖層現有"
    
33.                      (itoa ll)
    
34.                      "個圖形實體,你確信要刪除該層嗎(Y/N)?"
    
35.              )
    
36.       )
    
37.       (initget 1 "Yes No")
    
38.       (if (= "Yes" (getkword))
    
39.         (command "erase" ss "" "purge" "la" ceng "n")
    
40.       )
    
41.     )
    
42.     (progn
    
43.       (command "purge" "la" ceng "n")
    
44.       (princ "\n該圖層沒有圖形實體!")
    
45.     )
    
46.   )
    
47.   (princ)
    
48. )

<br /> (defun c:kill (/ ceng ss ll ask)<br />   (setvar "CMDECHO" 0)<br />   (setq        ask (getint "\n 1.根據實體選擇層 2.已知層名:<1>")<br />   )<br />   (if (= nil ask)<br />     (setq ask 1)<br />   )<br />   (if (= ask 1)<br />     (progn<br />       (setq ceng<br />              (cdr<br />                (assoc 8<br />                       (entget (car (entsel "\n請選擇要刪除層的實體:")))<br />                )<br />              )<br />       )<br />     )<br />     (progn<br />       (setq ceng (getstring "\n請輸入要刪除的層名:"))<br />     )<br />   )<br />   (setq        ss (ssget "X"<br />                   (list (cons 8 ceng))<br />            )<br />   )<br />   (if ss<br />     (progn<br />       (setq ll (sslength ss))<br />       (princ (strcat ceng<br />                      "\n圖層現有"<br />                      (itoa ll)<br />                      "個圖形實體,你確信要刪除該層嗎(Y/N)?"<br />              )<br />       )<br />       (initget 1 "Yes No")<br />       (if (= "Yes" (getkword))<br />         (command "erase" ss "" "purge" "la" ceng "n")<br />       )<br />     )<br />     (progn<br />       (command "purge" "la" ceng "n")<br />       (princ "\n該圖層沒有圖形實體!")<br />     )<br />   )<br />   (princ)<br /> )

eachy

当块内实体含有要删除图层时，图块既不会被选上，图层也不会被Purge。

ljs026

可以修正口馬？另外這一個(princ (strcat ceng
                     "\n圖層現有"
                     (itoa ll)
                     "個圖形實體,你確信要刪除該層嗎(Y/N)?"
如何讓它預設為Y

zxq0220

将
(initget 1 "Yes No")
      (if (= "Yes" (getkword))
        (command "erase" ss "" "purge" "la" ceng "n")
改为
(initget 0 "Yes No")
      (if (or (= "Yes"  (setq key (getkword))) (= key nil))
        (command "erase" ss "" "purge" "la" ceng "n")

ljs026

謝大大