[编程交流] 需要有关写行的帮助

(setq ax1 (strcat "Euro" "," "EU7X50" "," euro))
(setq ax2 (strcat "Hol2.5x25" "," "HZ2.5X25" "," hz))
(defun c:writeacc (/ cfgfname SymList)
(vl-load-com)
(setq cfgfname "RaportACCESORI.txt")
(setq SymList '(ax1 ax2 ax3 ax4 ax5 ax6 ax7 ax8 ax9 ax10 ax11 ax12 ax13 ax14 ax15 ax16 ax17 ax18 ax19 ax20 ax21 ax22 ax23 ax24 ax25 ax26 ax27 ax28 ax29 ax30))
(LM:WriteConfig cfgfname (mapcar 'eval SymList))
 (princ)
)
(princ)
;=========================================================================================
 (defun LM:WriteConfig ( filename lst / ofile )
 (setq filename "RaportACCESORI.txt")
(if (setq ofile (open filename "a")) 
   (progn
       (foreach x lst (write-line (vl-prin1-to-string x) ofile))
             (setq ofile (close ofile))
       T
     )
   )
 )

[color="red"]"Euro_7x50,EU7X50,8"[/color]
[color="red"]"Hol_2.5x25,HZ2.5X25,31"[/color]
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil
nil