为什么加了个if会出错？（新手请教）

dash

2. (defun c:DAOWST        ()
   
3.   
   
4.   (setq ent (entsel "请选择要删除的对象类型:"))
   
5.   (while (not ent)
   
6.     (princ "请选择对象")
   
7.     (setq ent (entsel))
   
8.   )
   
9.   (setq entpl (entget (car ent)))
   
10.   (setq dType (assoc 0 entpl))
    
11. 
    
12. 
    
13.      (setq ss1 (ssget "X" (list dType)))
    
14. 
    
15.       (princ (strcat "\n找到" (rtos (sslength ss1)) "个对象\n"))
    
16. 
    
17. 
    
18.       (while (/= (sslength ss1) 0)
    
19.         (setq name (ssname ss1 0))
    
20.         (ssdel name ss1)
    
21.         (entdel name)
    
22.       )
    
23.       (princ "已全部删除")
    
24.     (princ)
    
25. )
    
26. 
    
27. (prompt "\n功能：删除同类型的所有对象。\n")
    
28. (prompt "运行 'DAOWST' 开始\n")
    
29. (princ)
    

(defun c:DAOWST        ()<br />   <br />   (setq ent (entsel "请选择要删除的对象类型:"))<br />   (while (not ent)<br />     (princ "请选择对象")<br />     (setq ent (entsel))<br />   )<br />   (setq entpl (entget (car ent)))<br />   (setq dType (assoc 0 entpl))<br /> <br /> <br />      (setq ss1 (ssget "X" (list dType)))<br /> <br />       (princ (strcat "\n找到" (rtos (sslength ss1)) "个对象\n"))<br /> <br /> <br />       (while (/= (sslength ss1) 0)<br />         (setq name (ssname ss1 0))<br />         (ssdel name ss1)<br />         (entdel name)<br />       )<br />       (princ "已全部删除")<br />     (princ)<br /> )<br /> <br /> (prompt "\n功能：删除同类型的所有对象。\n")<br /> (prompt "运行 'DAOWST' 开始\n")<br /> (princ)<br />

以上可以使用。
以下的就不行了

2. (defun c:DAOWST        ()
   
3. 
   
4.   (setq ent (entsel "请选择要删除的对象类型:"))
   
5.   (while (not ent)
   
6.     (princ "请选择对象")
   
7.     (setq ent (entsel))
   
8.   )
   
9.   (setq entpl (entget (car ent)))
   
10.   (setq dType (assoc 0 entpl))
    
11. 
    
12.   (setq cho (getstring "\n真的要删除？(y/n)\n"))
    
13.   (if (= (strcase cho T) "y")
    
14.     (
    
15.      (setq ss1 (ssget "X" (list dType)))
    
16. 
    
17.       (princ (strcat "\n找到" (rtos (sslength ss1)) "个对象\n"))
    
18. 
    
19. 
    
20.       (while (/= (sslength ss1) 0)
    
21.         (setq name (ssname ss1 0))
    
22.         (ssdel name ss1)
    
23.         (entdel name)
    
24.       )
    
25.       (princ "已全部删除")
    
26.     )
    
27.     (princ "操作取消")
    
28.   )
    
29. 
    
30.   (princ)
    
31. )
    
32. 
    
33. (prompt "\n功能：删除同类型的所有对象。\n")
    
34. (prompt "运行 'DAOWST' 开始\n")
    
35. (princ)

(defun c:DAOWST        ()<br /> <br />   (setq ent (entsel "请选择要删除的对象类型:"))<br />   (while (not ent)<br />     (princ "请选择对象")<br />     (setq ent (entsel))<br />   )<br />   (setq entpl (entget (car ent)))<br />   (setq dType (assoc 0 entpl))<br /> <br />   (setq cho (getstring "\n真的要删除？(y/n)\n"))<br />   (if (= (strcase cho T) "y")<br />     (<br />      (setq ss1 (ssget "X" (list dType)))<br /> <br />       (princ (strcat "\n找到" (rtos (sslength ss1)) "个对象\n"))<br /> <br /> <br />       (while (/= (sslength ss1) 0)<br />         (setq name (ssname ss1 0))<br />         (ssdel name ss1)<br />         (entdel name)<br />       )<br />       (princ "已全部删除")<br />     )<br />     (princ "操作取消")<br />   )<br /> <br />   (princ)<br /> )<br /> <br /> (prompt "\n功能：删除同类型的所有对象。\n")<br /> (prompt "运行 'DAOWST' 开始\n")<br /> (princ)

出现这样的提示：错误: 函数错误: <Selection set: 65445>
请指点。

龙龙仔

(if (= (strcase CHO t) "y")
    (progn ;;少了

BDYCAD

是呀 : D

SWAYWOOD

呵呵，以前也犯过这种错误

dash

原来是这样啊，谢谢，谢谢。