请帮我看看哪里错误 LISP

jltx123456

你可是老会员了．．．

nzl1116

(open "ffn" "w") 加了多余的双引号

zhongys

(ssget  '((0 . "*TEXT,ATTDEF")))

ZZXXQQ

错误百出

2. (defun C:lsp46 ()
   
3.   (setq ffn (getfiled "寫出檔案" "" "txt" 1))
   
4.   (princ "\n選取圖面文字........")
   
5.   (setq ss (ssget '((0 . "TEXT"))))
   
6.   (setq ff (open ffn "w"))
   
7.   (setq i 0)
   
8.   (repeat (sslength ss)
   
9.     (princ(strcat(cdr(assoc 1 (entget(ssname ss i)))) "\n") ff)
   
10.     (setq i (1+ i))
    
11.   )
    
12.   (close ff)
    
13.   (princ (strcat "\n 寫出檔案:" ffn))
    
14.   (prin1)
    
15. )
    

(defun C:lsp46 ()<br />   (setq ffn (getfiled "寫出檔案" "" "txt" 1))<br />   (princ "\n選取圖面文字........")<br />   (setq ss (ssget '((0 . "TEXT"))))<br />   (setq ff (open ffn "w"))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (princ(strcat(cdr(assoc 1 (entget(ssname ss i)))) "\n") ff)<br />     (setq i (1+ i))<br />   )<br />   (close ff)<br />   (princ (strcat "\n 寫出檔案:" ffn))<br />   (prin1)<br /> )<br />