程式问题!!!!!急

lovelilin · 发表于 2004-7-16 12:37:00

如下程式所示: (setq dat_file (findfile "BIG50RGB.dat"))
(setq ff (open dat_file "r"))
(setq data (read-line ff))
(close ff)
要是我的CAD环境搜寻路径没有此档案能不能在搜寻档案第一个路径下产生此档案

meflying · 发表于 2004-7-16 13:11:00

再急也应该把标点写上吧，最后那句话实在看不明白。。。

如果dat_file使用全路径，就可以不管搜索路径了

lovelilin · 发表于 2004-7-16 13:26:00

(setq dat_file (findfile "BIG50RGB.dat"))
(setq ff (open dat_file "r"))
(setq data (read-line ff))
(close ff)
不好意思,我的意思是这样子的. 要是上面的程式所要找的文件BIG50RGB.dat,在CAD搜寻路径下没有此档案, 有没有办法自动在CAD搜寻路径下自动产生一个BIG50RGB.dat档案.

meflying · 发表于 2004-7-16 14:05:00

(if (not (setq dat_file (findfile "big50rgb.dat")))
(progn
(setq dat_file "big50rgb.dat")
(setq ff (open dat_file "w"))
...
(close ff)
)
(progn
(setq ff (open dat_file "r"))
(setq data (read-line ff))
(close ff)
)
)

lovelilin · 发表于 2004-7-16 15:36:00

现在我改过的程式如下但是执行时还是不对 (if (not (setq dat_file (findfile "Big5orGB.dat")))
(progn
(setq dat_file "Big50rGB.dat")
(setq ff (open dat_file "w"))
(write-line "0 " ff)
(setq data (read-line ff))
(close ff)
) (progn
(setq ff (open dat_file "r"))
(setq data (read-line ff))
(close ff)
(princ)
)) 当执行到(setq data (read-line ff))时就停止了

龙龙仔 · 发表于 2004-7-16 16:55:00

(if (not (setq DAT_FILE (findfile "Big5orGB.dat")))
(progn
(setq DAT_FILE "Big50rGB.dat")
(setq FF (open DAT_FILE "w"))
(write-line "0 " FF)
(close FF)
(setq FF (open DAT_FILE "r"))
(setq DATA (read-line FF))
(close FF)
)
(progn
(setq FF (open DAT_FILE "r"))
(setq DATA (read-line FF))
(close FF)
(princ)
)
)

lovelilin · 发表于 2004-7-16 18:49:00

真是感谢各位

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