[LISP]怎样设置路径?

青青20

请教高手:在LISP程序中,怎样设置路径?

alin

什么路径？

青青20

如D:\XLISP\目录下(有lisp程序和程序要用到的图快和数据文件等....)


在LISP语言中设置路径,所有的东西都到D:\XLISP\目录下调用,请不要在外面环境中设置.可行吗?

cqnj023

在lisp中用D:\\XLISP\\或D:/XLISP/

王咣生

方法一: (defun qf_getFolder (msg / WinShell shFolder path catchit)
(vl-load-com)
(setq winshell (vlax-create-object "Shell.Application"))
(setq shFolder (vlax-invoke-method WinShell 'BrowseForFolder 0 msg 1))
(setq
catchit (vl-catch-all-apply
'(lambda ()
(setq shFolder (vlax-get-property shFolder 'self))
(setq path (vlax-get-property shFolder 'path))
)
)
)
(if (vl-catch-all-error-p catchit)
nil
path
)
);_defun 调用: (setq path (qf_getFolder "选择一个文件夹")) 方法二: 加载 调用: (setq path (AEXP_BROWSEFOLDER "选择一个文件夹"))

青青20

谢谢你,我会仔细阅读这段程序.我常使用LISP和DCL编程,从未涉及ActiveX,不过最近准备补上.我最近在编一组程序:通过LISP读一个自动化采集系统生成的文本数据文件,


程序开始是调用一个样板图DWG(预设了一系列环境等),然后点击下拉菜单(自设)运行LISP程序,程序已基本完成,首先要OPEN样板图DWG;然后点击下拉菜单......能否OPEN样板图DWG做在程序中?如果(command "open" ...)的话也不行,这里有二种情况;1、新打开CAD2、本身用户图纸画到一半.所以我又想是否有设路径的语句，我不用OPEN而在程序中设置一系列环境等，前提是要存在这样的语句或方法。


最后再次感谢楼上的二位朋友！！！工作顺利