[LISP函数]：请教一个能在Acad下设置当前路径的函数

小坛子

我需要一个函数，在ACAD下设置当前路径，功能类似VC++的setcurrentpath，这样我所调用的外部程序生成的文件就可以不必给出绝对路径了。
谢谢！

gchen

;|将自己定义的路径加载到ACAD支持路径当中。
参数dir是自己定义的路径名，pos是位置，为0时在最前端，为nil时在最后。|;

2. 
   
3. (defun addSupportPath (dir pos / tmp c)
   
4.   (setq        tmp ""
   
5.         c   -1
   
6.         )
   
7.   (if (not pos)
   
8.     (setq tmp (strcat (getenv "ACAD") ";" dir))
   
9.     (mapcar '(lambda (x)
   
10.                (setq tmp (if (= (setq c (1+ c)) pos)
    
11.                            (strcat tmp ";" dir ";" x)
    
12.                            (strcat tmp ";" x)
    
13.                            )
    
14.                      )
    
15.                )
    
16.             (list (getenv "ACAD") ";")
    
17.             )
    
18.     )
    
19.   (setenv "ACAD" tmp)
    
20.   (princ)
    
21.   )
    

<br /> (defun addSupportPath (dir pos / tmp c)<br />   (setq        tmp ""<br />         c   -1<br />         )<br />   (if (not pos)<br />     (setq tmp (strcat (getenv "ACAD") ";" dir))<br />     (mapcar '(lambda (x)<br />                (setq tmp (if (= (setq c (1+ c)) pos)<br />                            (strcat tmp ";" dir ";" x)<br />                            (strcat tmp ";" x)<br />                            )<br />                      )<br />                )<br />             (list (getenv "ACAD") ";")<br />             )<br />     )<br />   (setenv "ACAD" tmp)<br />   (princ)<br />   )<br />

在把你的程序所在的路径添加为Acad支持路径后，就不需要给出绝对路径了。

小坛子

您的回复对我很有帮助！
也许我没有说清楚，我的意思是：如果我在c:根目录下调用ACAD，
C: 即是ACAD的当前路径，我能否在ACAD执行后再改变它的当前路径，譬如当前路径改为c:\ddd？

gchen

不好意思，误解了你的意思。
你可能是在别的程序中启动ACAD，然后需要获得ACAD.EXE的路径，还需要可以改变它，是
这样吗？这个我就不懂了。
或是把你的目的说得更清楚一些，还有就是你需要什么语言写的函数，lisp或是VB或是VC，我想别的朋友可以帮助你。

e2002

你也可以使用Doslib,来选择一个文件夹,返回值赋予一个变量.