[求助]：求帮忙检查程序错误(已经解决)

kevinchan

已经解决.....

david96007

写半径

2. 
   
3. (defun c:Wt ()
   
4.   (setvar "cmdecho" 0)
   
5.   (setq ffn (getfiled "写出文件" "" "txt" 1))
   
6.   (setq ff (open ffn "w"))
   
7.   (close ff)
   
8.   (princ "\n请选择欲输出的圆...")
   
9.   (setq ss (ssget))
   
10.   (setq i 0)
    
11.   (setvar "pdmode" 33)
    
12.   (repeat (sslength ss)
    
13.     (setq ssn (ssname ss i))
    
14.     (setq endata (entget ssn))
    
15.     (setq ff (open ffn "a"))
    
16.     (foreach n (cdr (assoc 10 endata))
    
17.       (princ (strcat (rtos n 2 9) " ") ff)
    
18.     )
    
19.     (princ (rtos (cdr (assoc 40 endata)) 2 9) ff)
    
20.     (princ "\n" ff)
    
21.     (close ff)
    
22.     (setq i (1+ i))
    
23.   )
    
24.   (princ (strcat "\n写出文件 " ffn))
    
25.   (prin1)
    
26. )
    

<br /> (defun c:Wt ()<br />   (setvar "cmdecho" 0)<br />   (setq ffn (getfiled "写出文件" "" "txt" 1))<br />   (setq ff (open ffn "w"))<br />   (close ff)<br />   (princ "\n请选择欲输出的圆...")<br />   (setq ss (ssget))<br />   (setq i 0)<br />   (setvar "pdmode" 33)<br />   (repeat (sslength ss)<br />     (setq ssn (ssname ss i))<br />     (setq endata (entget ssn))<br />     (setq ff (open ffn "a"))<br />     (foreach n (cdr (assoc 10 endata))<br />       (princ (strcat (rtos n 2 9) " ") ff)<br />     )<br />     (princ (rtos (cdr (assoc 40 endata)) 2 9) ff)<br />     (princ "\n" ff)<br />     (close ff)<br />     (setq i (1+ i))<br />   )<br />   (princ (strcat "\n写出文件 " ffn))<br />   (prin1)<br /> )<br />

kevinchan

楼上的大哥写的不错.优化了很多,谢谢!