10明经币求助，这段代码哪里错了

tryhi

这段是读取CAD图形中所有文字的LISP函数
原文在http://bbs.mjtd.com/forum.php?mod=viewthread&tid=90717
超版写的，里面有点错误我找出来，但还是出错

1. 
   
2. (setq ss (ssget '((0 . "*text"))))
   
3. (if ss
   
4. (progn
   
5. (setq fn "c:\\text.txt")
   
6. (setq f (open fn "w"))
   
7. (repeat
   
8. (setq n (sslength ss))
   
9. (setq en (ssname ss (setq n (1- n))))
   
10. (setq txt (cdr (assoc 1 (setq enl (entget en)))))
    
11. (setq xy (cdr (assoc 10 enl)))
    
12. (write-line (strcat (vl-princ-tostring xy) "  " txt) f)
    
13. )
    
14. (close f)
    
15. (startapp "notepad.exe" fn)
    
16. )
    
17. )
    

<br /> (setq ss (ssget '((0 . "*text"))))<br /> (if ss<br /> (progn<br /> (setq fn "c:\\text.txt")<br /> (setq f (open fn "w"))<br /> (repeat<br /> (setq n (sslength ss))<br /> (setq en (ssname ss (setq n (1- n))))<br /> (setq txt (cdr (assoc 1 (setq enl (entget en)))))<br /> (setq xy (cdr (assoc 10 enl)))<br /> (write-line (strcat (vl-princ-tostring xy) "  " txt) f)<br /> )<br /> (close f)<br /> (startapp "notepad.exe" fn)<br /> )<br /> )<br />

目前测试(vl-princ-tostring xy)这句出错

-----------------------------------
续，[xyp1964]e派帮忙找到了问题，应该是vl-princ-to-string

bmy07

第一次看到这个函数就觉得奇怪，少了个-

tryhi

问题解决，多谢[xyp1964]e派

2. (setq ss (ssget '((0 . "*text"))))
   
3. (if ss
   
4. (progn
   
5. (setq fn "c:\\text.txt")
   
6. (setq f (open fn "w"))
   
7. (repeat
   
8. (setq n (sslength ss))
   
9. (setq en (ssname ss (setq n (1- n))))
   
10. (setq txt (cdr (assoc 1 (setq enl (entget en)))))
    
11. (setq xy (cdr (assoc 10 enl)))
    
12. (write-line (strcat (vl-princ-to-string xy) "  " txt) f)
    
13. )
    
14. (close f)
    
15. (startapp "notepad.exe" fn)
    
16. )
    
17. )
    

(setq ss (ssget '((0 . "*text"))))<br /> (if ss<br /> (progn<br /> (setq fn "c:\\text.txt")<br /> (setq f (open fn "w"))<br /> (repeat<br /> (setq n (sslength ss))<br /> (setq en (ssname ss (setq n (1- n))))<br /> (setq txt (cdr (assoc 1 (setq enl (entget en)))))<br /> (setq xy (cdr (assoc 10 enl)))<br /> (write-line (strcat (vl-princ-to-string xy) "  " txt) f)<br /> )<br /> (close f)<br /> (startapp "notepad.exe" fn)<br /> )<br /> )<br />

叮咚

1. (defun c:aa()
   
2. (setq ss (ssget '((0 . "*text"))))
   
3. (if ss
   
4. (progn
   
5. (setq fn "c:\\text.txt")
   
6. (setq f (open fn "w"))
   
7. (setq n (sslength ss) i 0)
   
8. (repeat n
   
9. (setq en (ssname ss i))
   
10. (setq txt (cdr (assoc 1 (setq enl (entget en)))))
    
11. (setq xy (cdr (assoc 10 enl)))
    
12. (write-line (strcat (vl-princ-to-string xy) "??" txt) f)
    
13. (setq i (1+ i))
    
14. )
    
15. (close f)
    
16. (startapp "notepad.exe" fn)
    
17. )
    
18. )
    
19. (princ)
    
20. )

(defun c:aa()<br /> (setq ss (ssget '((0 . "*text"))))<br /> (if ss<br /> (progn<br /> (setq fn "c:\\text.txt")<br /> (setq f (open fn "w"))<br /> (setq n (sslength ss) i 0)<br /> (repeat n<br /> (setq en (ssname ss i))<br /> (setq txt (cdr (assoc 1 (setq enl (entget en)))))<br /> (setq xy (cdr (assoc 10 enl)))<br /> (write-line (strcat (vl-princ-to-string xy) "??" txt) f)<br /> (setq i (1+ i))<br /> )<br /> (close f)<br /> (startapp "notepad.exe" fn)<br /> )<br /> )<br /> (princ)<br /> )

zkyzzy

(vl-load-com)
(setq ss (ssget '((0 . "*text"))))
(if ss
(progn
(setq fn "c:\\text.txt")
(setq f (open fn "w"))
(repeat
(setq n (sslength ss))
(setq en (ssname ss (setq n (1- n))))
(setq txt (cdr (assoc 1 (setq enl (entget en)))))
(setq xy (cdr (assoc 10 enl)))
(write-line (strcat (vl-princ-to-string xy) "  " txt) f)
)
(close f)
(startapp "notepad.exe" fn)
)
)