需要有关写行的帮助
我说30个变量，我想写这些值没有引号。*值之间只有逗号
(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
)
)
)
如何删除引号
"Euro_7x50,EU7X50,8"
"Hol_2.5x25,HZ2.5X25,31"
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 也许可以尝试用vl princ to string替换vl-prin1-to-string 非常感谢现在我好像很好 如果所有的斧头？值是字符串为什么不只是（写文件的x行）
只有我，但当我被教编程的时候，你会使用像X Y I J K这样的变量作为数字，所以我会这样做（写文件的行ans），这里有很多像我一样的老学生，他们第一眼就会把X看成一个数字。 因为我不知道，但这对你的评论很好，我们必须记住这一点
页:
[1]