Autolisp如何将多个数据作为一行写入txt格式的文件

zxc001975cvb · 发表于 2020-3-19 16:38:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我想把几个数据作为一行写入txt格式的文件，然后再读出来，并分别把数据赋给各自的变量，请问如何实现：

例如：数据： “aw”  “s “  45  78  写入文件的一行

      读出后： stra="qw"
                  strb="s"
                  ic=45
                  ir=78

pxr201419 · 发表于 2020-3-19 20:10:20

;;;写入文件
(setq fL (open "d:/123.txt" "w"))
(write-line (apply 'strcat (apply 'append (mapcar '(lambda(x)(list (vl-princ-to-string x) "\t")) (list "qw" "a" 45.3 78)))) fl)
(close fl)

;;;从文件读出并赋值
(setq fL (open "d:/123.txt" "r"))
(mapcar '(lambda(x y)(set x (if (= (type y) 'sym) (strcase (vl-princ-to-string y) t) y))) '(stra strb ic ir) (read (strcat "(" (read-line fl) ")")))
(close fl)

chrive · 发表于 2020-3-19 23:31:02

跟着学习哦

zxc001975cvb · 发表于 2020-3-20 08:23:00

pxr201419, 非常感谢

aisong220 · 发表于 2020-3-21 00:08:26

APPLE2020 · 发表于 2020-7-17 08:26:21

学习一波，谢谢

账号		自动登录	找回密码
密码			立即注册

[求助] Autolisp如何将多个数据作为一行写入txt格式的文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分