急求关于LISP代码加载多个LSP文件方法

HARLEYDONG · 发表于 2008-12-2 00:46:00

小弟现要用如下文件：

(load "D:***.lsp")
(load "D:***.lsp")
(load "D:***.lsp")

要加载多个当前文件夹的多个LSP文件，但是不能写入盘符路径，直接引用（就是当前文件夹内的文件），

以前好像有见过，但是现在用起来怎么也不成功，

望高手指点，小弟坐等！！！

yshf · 发表于 2008-12-2 08:05:00

(load "D:\\***.lsp")
(load "D:\\***.lsp")
(load "D:\\***.lsp")

HARLEYDONG · 发表于 2008-12-2 08:50:00

谢谢楼上的大虾，可能是我没有说清楚，我想问的是

(load " :\\***.lsp")
(load " :\\***.lsp")
(load " :\\***.lsp")

不用盘符的方法，引用当前文件夹内的LSP文件，望高手们来帮小弟看看，给点意见

谢谢!!!

Andyhon · 发表于 2008-12-2 09:24:00

Try

(foreach fileOK '("MyLispA" "MyLispB" "MyLispC" "....")
(if (findfile (StrCat FileOK ".Lsp")) (load FileOK))
)

HARLEYDONG · 发表于 2008-12-2 10:09:00

楼上的兄弟，可以小弟水平较低，刚调试了，不能成功，烦请大虾指点...

小弟需要加载的三个LSP文件名称为:

quickdraw.lsp

onn.lsp

filelist.lsp

nonsmall · 发表于 2008-12-2 10:19:00

选项中添加一个文件支持搜索路径

然后用(findfile)

HARLEYDONG · 发表于 2008-12-2 10:24:00

谢谢各位大虾，小弟现在明白了，谢谢！！！

leimw · 发表于 2018-12-17 19:14:04

请问你是如何做的？请教下

664571221 · 发表于 2023-5-1 16:11:37

HARLEYDONG 发表于 2008-12-2 10:24
谢谢各位大虾，小弟现在明白了，谢谢！！！

你明白了能不能分享一下代码呢

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