lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]：怎样设置这个lisp里的读取文件...

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

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

x

这时一个别人很久以前的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语句的含意。

广告位，后台可以设置，支持js

您好，您暂时不能浏览帖子的全部内容，请 登录

| 没有账号？ 请 注册