天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]:怎样设置这个lisp里的读取文件路径-这时一个别人很久以前的lisp文件,可能是cadR12版就有了。文件语句如下:(setq pt...

这篇博客探讨了一个关于LISP程序在CAD环境中读取文件的问题。作者指出,一个旧的LISP程序尝试从/hcad/sld/目录下读取J647.dat文件,但只能在C盘根目录下工作。为了使程序能在任意位置找到文件,作者考虑通过修改CAD的文件搜索路径。然而,目前的方法限制了hcad文件夹必须在固定位置。博客内容寻求修改LISP语句以解决这个问题,同时作者表示自己对LISP不熟悉,希望得到帮助。
摘要由CSDN通过智能技术生成

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

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

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

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

| 没有账号? 请 注册

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值