急求关于lisp代码加载多个lsp文件方法
 

急求关于lisp代码加载多个lsp文件方法
www.dimcax.com
急求关于lisp代码加载多个lsp文件方法
小弟现要用如下文件：
(load "d:***.lsp")
(load "d:***.lsp")
(load "d:***.lsp")

要加载多个当前文件夹的多个lsp文件，但是不能写入盘符路径，直接引用（就是当前文件夹内的文件），
以前好像有见过，但是现在用起来怎么也不成功，
望高手指点，小弟坐等！！！
d
(load "d:\\***.lsp")
(load "d:\\***.lsp")
(load "d:\\***.lsp")
d
谢谢楼上的大虾，可能是我没有说清楚，我想问的是
(load " :\\***.lsp")
(load " :\\***.lsp")
(load " :\\***.lsp")
不用盘符的方法，引用当前文件夹内的lsp文件，望高手们来帮小弟看看，给点意见
谢谢!!!
d
try
(foreach fileok '("mylispa" "mylispb" "mylispc" "....")
(if (findfile (strcat fileok ".lsp")) (load fileok))
)
d
楼上的兄弟，可以小弟水平较低，刚调试了，不能成功，烦请大虾指点...
小弟需要加载的三个lsp文件名称为:
quickdraw.lsp
onn.lsp
filelist.lsp

d
选项中添加一个文件支持搜索路径
然后用(findfile)
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.:43797405email:nonsmall@163.com对lisp开发研究有兴趣可以找我