[求助]：怎样设置这个lisp里的读取文件路径

hszt71 · 发表于 2008-3-21 21:04:55

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

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

×

这时一个别人很久以前的lisp文件，可能是cadR12版就有了。文件语句如下：
(setq pt (osnap (getpoint "\n捕捉一个点 :") "end,int"))
(command "ucs" "o" pt)
(setq f (open "/hcad/sld/J647.dat" "r"))
(setq t (read-line f))
  (setq a 4)
(while (/= nb t) (setq t (read-line f)))
(while (/= (substr (setq t (read-line f)) 1 1) "*")
  (command "layer" "s" (if (= (substr t 1 1) " ")
                           (substr t 2 1) (substr t 1 2)) "")
  (command "pline" (substr t 4 11))
  (while (/= (substr t (setq a (+ a 12)) 11) "")
(command (substr t a 11))
  )
(command "")
  (setq a 4)
  )
(close f)
(command "ucs" "")

问题是在语句
(setq f (open "/hcad/sld/J647.dat" "r"))
中如何才能正确读取J647.dat文件
该文件位于软件包目录hcad/sld/之下，我的想法是软件包hcad可能放置的位置可能是任意位置，通过设置cad的选项－文件－支持文件搜索路径来添加该文件夹的放置路径，以便让该lisp语句能正确读取J647.dat文件。
但按照上面的语句设置，只能将hcad文件夹放在c:盘的根目录下才能正确读取J647.dat文件。要不然只能速写完整的绝对路径也可以正确读取，但这样都只能将hcad文件夹放在固定的位置。
请问能不能修改lisp语句来达到上面的目的。
目前使用cad2006及2008

我对lisp来说是个菜鸟，只能看个大概，不懂具体的lisp语句的含意。

zml84 · 发表于 2008-3-22 08:11:47

建议在程序中先搜索 "J647.dat" 文件的位置，获取路径全名后，再行打开操作。

zml84 · 发表于 2008-3-22 08:17:22

建议在程序中先搜索 "J647.dat" 文件的位置，获取路径全名后，再行打开操作。

hszt71 · 发表于 2008-3-22 10:31:43

如何重新写这两句呢？

hszt71 · 发表于 2008-3-22 11:00:24

如何重新写这两句呢？

zxq0220 · 发表于 2008-3-22 14:03:25

楼上回声

(if (setq fnm (findfile "/hcad/sld/J647.dat")) (progn
(setq f (open fnm "r')
……

hszt71 · 发表于 2008-3-22 15:38:25

我自己试了一下，这样也可以
(setq f (open (findfile "hcad/sld/J647.dat") "r"))

jyzas · 发表于 2013-8-11 08:04:41

用全路径不行吗？？

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

[求助] [求助]：怎样设置这个lisp里的读取文件路径

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

相关帖子