[LISP]怎样设置路径?

青青20 · 发表于 2004-9-6 19:54:00

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

alin · 发表于 2004-9-6 19:57:00

什么路径？

青青20 · 发表于 2004-9-6 20:08:00

如D:\XLISP\目录下(有lisp程序和程序要用到的图快和数据文件等....)
在LISP语言中设置路径,所有的东西都到D:\XLISP\目录下调用,请不要在外面环境中设置.可行吗?

cqnj023 · 发表于 2004-9-6 20:42:00

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

王咣生 · 发表于 2004-9-6 21:29:00

方法一:
(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 "选择一个文件夹"))
方法二:
加载

请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:ivxmkelp3rh.arx
下载次数:0 文件大小:7.5 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

调用:
(setq path (AEXP_BROWSEFOLDER "选择一个文件夹"))

青青20 · 发表于 2004-9-7 00:49:00

谢谢你,我会仔细阅读这段程序.我常使用LISP和DCL编程,从未涉及ActiveX,不过最近准备补上.我最近在编一组程序:通过LISP读一个自动化采集系统生成的文本数据文件,
程序开始是调用一个样板图DWG(预设了一系列环境等),然后点击下拉菜单(自设)运行LISP程序,程序已基本完成,首先要OPEN样板图DWG;然后点击下拉菜单......能否OPEN样板图DWG做在程序中?如果(command "open" ...)的话也不行,这里有二种情况;1、新打开CAD2、本身用户图纸画到一半.所以我又想是否有设路径的语句，我不用OPEN而在程序中设置一系列环境等，前提是要存在这样的语句或方法。
最后再次感谢楼上的二位朋友！！！工作顺利

[LISP]怎样设置路径?

发表回复

精选推荐