请求各位帮修正

Comming

2. 
   
3. 程序不能执行第一种判断,不知那里出错了,请各位帮我修正,谢谢!
   
4. 
   
5. (defun c:dx ()
   
6.   (INITGET "L C")      ;设定输入范围
   
7.   (setq sz (getkword "\n选择参照方式[线型(L)、颜色(C)]:"))
   
8.   (setq sz (strcase sz))
   
9.   (if (setq sz L)
   
10.     (progn
    
11.   (setq en (entsel "\n选择线型参照体:"))
    
12.   (WHILE (= en nil)
    
13.     (setq en (entsel "\n选择线型参照体:"))
    
14.   )
    
15.   (setq endata (entget (car en)))
    
16.   (setq cj (cdr (assoc 6 endata)))
    
17.   (setq ss (ssget (list (cons 6 cj))))
    
18.   (WHILE (= ss nil)
    
19.     (setq ss (ssget (list (cons 6 cj))))
    
20.   )
    
21.   (command "erase" ss "")
    
22.     )   
    
23. ;;;========================================================
    
24. (progn
    
25. 
    
26.   (setq en (entsel "\n选择颜色参照体:"))
    
27.   (WHILE (= en nil)
    
28.     (setq en (entsel "\n选择颜色参照体:"))
    
29.   )
    
30.   (setq endata (entget (car en)))
    
31.   (setq cj (cdr (assoc 62 endata)))
    
32.   (setq ss (ssget (list (cons 62 cj))))
    
33.   (WHILE (= ss nil)
    
34.     (setq ss (ssget (list (cons 62 cj))))
    
35.   )
    
36.   (command "erase" ss "")
    
37. )
    
38.     )
    
39.   )

<br /> 程序不能执行第一种判断,不知那里出错了,请各位帮我修正,谢谢!<br /> <br /> (defun c:dx ()<br />   (INITGET "L C")      ;设定输入范围<br />   (setq sz (getkword "\n选择参照方式[线型(L)、颜色(C)]:"))<br />   (setq sz (strcase sz))<br />   (if (setq sz L)<br />     (progn<br />   (setq en (entsel "\n选择线型参照体:"))<br />   (WHILE (= en nil)<br />     (setq en (entsel "\n选择线型参照体:"))<br />   )<br />   (setq endata (entget (car en)))<br />   (setq cj (cdr (assoc 6 endata)))<br />   (setq ss (ssget (list (cons 6 cj))))<br />   (WHILE (= ss nil)<br />     (setq ss (ssget (list (cons 6 cj))))<br />   )<br />   (command "erase" ss "")<br />     )    <br /> ;;;========================================================<br /> (progn<br /> <br />   (setq en (entsel "\n选择颜色参照体:"))<br />   (WHILE (= en nil)<br />     (setq en (entsel "\n选择颜色参照体:"))<br />   )<br />   (setq endata (entget (car en)))<br />   (setq cj (cdr (assoc 62 endata)))<br />   (setq ss (ssget (list (cons 62 cj))))<br />   (WHILE (= ss nil)<br />     (setq ss (ssget (list (cons 62 cj))))<br />   )<br />   (command "erase" ss "")<br /> )<br />     )<br />   )

Andyhon

  (setq sz (strcase sz))
  (if (setq sz L)
==>
  (setq sz (strcase sz))
  (if (= sz "L")

Comming

Andyhon 发表于 2012-9-15 17:17
(setq sz (strcase sz))
  (if (setq sz L)
==>

(setq sz (strcase sz))
  (if (setq sz "L")
改成这样后按颜色部份不能判断。

yjr111

• (defun c:dx ()
  
•   (INITGET "L C")      ;设定输入范围
  
•   (setq sz (getkword "\n选择参照方式[线型(L)/颜色(C)]:"));;;改为斜杆
  
•   ;;;(setq sz (strcase sz))去除
  
•   (if (= sz "L")
  
•     (progn
  
•   (setq en (entsel "\n选择线型参照体:"))
  
•   (WHILE (= en nil)
  
•     (setq en (entsel "\n选择线型参照体:"))
  
•   )
  
•   (setq endata (entget (car en)))
  
•   (setq cj (cdr (assoc 6 endata)))
  
•   (setq ss (ssget (list (cons 6 cj))))
  
•   (WHILE (= ss nil)
  
•     (setq ss (ssget (list (cons 6 cj))))
  
•   )
  
•   (command "erase" ss "")
  
•     )   
  
• ;;;========================================================
  
• (progn
  
• 
  
•   (setq en (entsel "\n选择颜色参照体:"))
  
•   (WHILE (= en nil)
  
•     (setq en (entsel "\n选择颜色参照体:"))
  
•   )
  
•   (setq endata (entget (car en)))
  
•   (setq cj (cdr (assoc 62 endata)))
  
•   (setq ss (ssget (list (cons 62 cj))))
  
•   (WHILE (= ss nil)
  
•     (setq ss (ssget (list (cons 62 cj))))
  
•   )
  
•   (command "erase" ss "")
  
• )
  
•     )
  
•   )
  
  

Comming

yjr111 发表于 2012-9-15 18:10

(defun c:dx ()

  (INITGET "L C")      ;设定输入范围

可以解释一下为什么(setq sz (strcase sz))去除还可以判断大小写吗

成仔

Comming

yjr111 发表于 2012-9-15 18:10

(defun c:dx ()

  (INITGET "L C")      ;设定输入范围

谢谢你帮我修正了错误,我想再问一个问题,如果线型或颜色是Bylayer或Byblock这两个类型的属性里没有我要搜索的内容,选择集就错误应该怎么处理?