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

[求助]怎样获取程序运行的当前路径
www.dimcax.com
[求助]怎样获取程序运行的当前路径
比如说我有一个程序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有没有呢?
d
app.path 是cad程序本身的路径
搜索路径如下
(vlax-get (vlax-get (vlax-get (vlax-get-acad-object) 'preferences) 'files) 'supportpath )
dcl的不必一定在搜索目录下
你写上完整路径即可
"coll.dcl" -> "d:\\coll.dcl"
原创加密lisp真正的破解.原创lisp操作cad内置对话框.原创lisp直接调用win32 api.原创lisp开发小助手(代码自动生成器).原创vba语句->lisp语句解释器.原创lisp音乐播放器.原创lisp直接使用vba对话框.
请non兄指教：cad命令行中运行shell弹出对话框中的路径是怎么回事？
新手上路，请多指点。
d
我知道绝对路径可以,关键是我这个是跟vb程序一起打包后到其它电脑上安装的,所以要用相对路径.
d