;;文件读取样例
(defun c:loadd()
(vl-load-com)
;以读的方式打开文件 "c:/lj.txt" lj.txt的内容“h:”
(setq wjm "c:/lj.txt")
(if (findfile wjm)
;如果文件存在,就打开文件并读出第一行内容之后关闭
(progn
;读取文件中的一行,将读出来的值赋予panfu
(setq fff (open wjm "r")
panfu (read-line fff)
)
;关闭文件
(close fff)
(if (/= panfu nil)
(progn
;将变量panfu的内容与/cx/H7.dvb连接成一个字符串
(setq zfc (strcat panfu "/cx/H7.dvb"))
;加载VBA工程h:/cx/H7.dvb
(command "_vbaload" zfc)
)
)
)
;如果文件不存在就退出
(vl-exit-with-error (alert "c:/lj.txt不存在, 程序将结束!"))
)
(princ)
)
本文如未解决您的问题请添加抖音号:51dongshi(抖音搜索懂视),直接咨询即可。