关于LSP自动抓取文件路径的问题!!!

lovelilin · 发表于 2004-7-9 19:00:00

各位高手们现在我想写一个程式是读取一个文件中的一个字符，但是文件路径要能自动获得不知用什么方法可以做到。比如像读取CAD安装目录下的一个文件，有时我的CAD是安装在C盘，有时是安装在D盘的所以文件的路径不能定死，不知怎么办了。

xazhji · 发表于 2004-7-9 22:10:00

很简单，你可以用判断语句，非A即B

秋枫 · 发表于 2004-7-10 00:25:00

CAD安装文件夹可以从注册表中读取。利用vl-registry...系列函数

lovelilin · 发表于 2004-7-10 07:57:00

秋风兄能否举个例子小弟水平有限呀

meflying · 发表于 2004-7-10 08:35:00

看看这里，是否有你要的。。。这里好象没有CAD的安装目录，试试这样
(vl-filename-directory (findfile "acad.exe"))

秋枫 · 发表于 2004-7-10 09:25:00

飞兄的方法简单。另提供一个文档中没提过的函数：复制代码

aaddff · 发表于 2004-7-10 09:35:00

高！

xazhji · 发表于 2004-7-10 23:26:00

(findfile ....) ?

wmz · 发表于 2004-7-11 08:46:00

不相信吗?请看:
(defun c:fPath()
(setq fPath (car (FNSPLITL (findfile "ACAD.EXE"))))
)
返回"D:\\acad2000"

meflying · 发表于 2004-7-11 08:56:00

表示什么？不行、不屑还是不好？