[求助]一段代码，请大家指正一下

owenshowtime · 发表于 2007-10-28 16:46

我写了一段代码，大部分功能可以实现，可是最后两个关闭文件（close），和删除文件（vl-file-delete）不能执行，但是也不报错，不知道怎么回事。附上代码，请大家指正。
(defun c:tt()
(vl-load-com)
(if (open "c:/HSDTMP.txt" "r") (setq f (open "c:/HSDTMP.txt" "r")) ((alert "请先生成点") (princ)))
(setq jlf (open "c:/QXJL.txt" "w"))
(setq en (vlax-ename->vla-object (car (entsel "\n选择一条曲线:"))))
(while (setq ZBD1 (read-line f))
(setq ZBD2 (read (strcat "(" ZBD1 ")")))
     (setq zjd (vlax-curve-getClosestPointTo en ZBD2 t))
        (setq jl (vlax-curve-getDistAtPoint en zjd))
        (print jl jlf)
        );while
    (close f)
(close jlf)
(vl-file-delete "c:/HSDTMP.txt")
(princ)
(alert "OK")
)

狂刀无痕 · 发表于 2007-10-28 17:51

打开一个，关闭一个。再打开第二个，关闭第二个。。。

owenshowtime · 发表于 2007-10-28 19:36

难道lisp一次只能操作一个文件？可是我要read-line，读取第一个已经存在的文件啊，然后才能运算，把值写进第二个文件啊，这是个循环操作啊。。。应该怎么处理呢？

owenshowtime · 发表于 2007-10-29 08:58

自己顶一下

ZZXXQQ · 发表于 2007-10-29 09:15

将

(if (open "c:/HSDTMP.txt" "r") (setq f (open "c:/HSDTMP.txt" "r")) ((alert "请先生成点") (princ)))

改成

(if (FINDFILE "c:/HSDTMP.txt") (setq f (open "c:/HSDTMP.txt" "r")) ((alert "请先生成点") (princ)))

试试

owenshowtime · 发表于 2007-10-29 09:24

哦，多谢版主！我回去试试，明天来报告结果！谢谢！

icoloe · 发表于 2007-10-29 11:14

mark :)

owenshowtime · 发表于 2007-10-30 08:17

正如版主说得那样，改了那一句就搞定了！再次感谢！

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