yaozidm124 发表于 2010-12-22 20:41:21

open函数的路径问题

(defun daochu()
(setq file2 (open "c:/1.TXT" "w"))
(write-line (itoa yzh1) file2)
(write-line (itoa yzh2) file2)
(write-line (itoa yzh3) file2)
(write-line (itoa yzh4) file2)
(close file2)
)


加入上面的代码保存为daochu.lsp,但此lsp放在哪里并不知道
我要让程序里的 c:/1.TXT，这个路径文件变成daochu.lsp的当前目录怎么设置？

ZZXXQQ 发表于 2010-12-22 21:34:57

……
(if (setq path (findfile "daochu.lsp")) (progn
(setq fname (strcat(substr path 1 (- (strlen path) 10)) "1.txt"))
……
))
……

yaozidm124 发表于 2010-12-30 13:50:56

用第一行不就可以了么，第二行是干什么的?
页: [1]
查看完整版本: open函数的路径问题