马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
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
您好,您暂时不能浏览帖子的全部内容,请 登录
| 没有账号? 请 注册