[求助]怎样获取程序运行的当前路径

05625lcc

比如说我有一个程序coll.lsp,

(defun c:coll (/ a o2 o3 bd jj_c bt_zt) ;系统参数输入
(command "undo" "m")
 (if (> (setq id (load_dialog "coll.dcl")) 0);;;;此处coll.dcl文件与coll.lsp文件处于同一目录下,

;;;;但不在cad的搜索路径中,程序运行中找不到
  (if (new_dialog "coll" id) (progn
   (showsld)    ;建立对话框

..........

请教高手怎样办,我知道vb里面有一个app.path,那么autolisp有没有呢?

nonsmall

app.path 是CAD程序本身的路径

搜索路径如下

(Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'Preferences) 'Files) 'SupportPath )

DCL的不必一定在搜索目录下

你写上完整路径即可

"coll.dcl" -> "D:\\coll.dcl"

dinosaurhxe

请non兄指教：CAD命令行中运行Shell弹出对话框中的路径是怎么回事？

05625lcc

我知道绝对路径可以,关键是我这个是跟vb程序一起打包后到其它电脑上安装的,所以要用相对路径.

nonsmall

05625lcc发表于2009-3-19 9:56:00我知道绝对路径可以,关键是我这个是跟vb程序一起打包后到其它电脑上安装的,所以要用相对路径.

安装的话可以直接修改其他电脑上的搜索路径

添加你程序安装的路径即可

lyf995

怎样获取安装程序的路径？能不能来个具体的样例？

psyco

这个问题解决了吗？

psyco

@nonsmall 读写文件时候是不是也必须是绝对路径啊 ？

wangph

不一定是绝对路径，但要把程序路径添加为cad的搜索路径

seu旺旺仙贝

谢谢l......................................................