[讨论]如何知道LISP本身的路径？

oyxx1023

在CAD里加载了一个LISP程序，如何得到这个LISP所在目录？我想让它加载后，自动把它所在的目录添加到CAD的支持路径里？

meflying

呵呵,,,这个用LISP好象做不到...我也曾经有这样的要求,最后还是没有找到办法

didini

看看秋风的那片lisp安装文件的制作二，其中有说明，或许对你有启发！

alin

用DosLIB或WinAPI

dos_lisplist

---

Returns a list of loaded AutoLISP/Visual LISP files.

Syntax

(dos_lisplist [T])

Parameters

T	If specified, fully qualified paths are returned. Otherwise, just the filenames are returned.

Returns

A list of string identifying the loaded LISP files if successful. nil on error.

Example

Command: (dos_lisplist) ("acetutil.fas" "acetauto.LSP" "acettest.fas" "dwfout.lsp" "acad2000.FAS" "acad2000doc.FAS" "acad.mnl" "acetmain.mnl") Command: (dos_lisplist t) ("C:\\Program Files\\AutoCAD 2002\\express\\acetutil.fas" "C:\\Program Files\\AutoCAD 2002\\express\\acetauto.LSP" "C:\\Program Files\\AutoCAD 2002\\support\\acettest.fas" "C:\\Program Files\\AutoCAD 2002\\support\\legacy\\dwfout\\dwfout.lsp" "C:\\Program Files\\AutoCAD 2002\\support\\acad2000.FAS" "C:\\Program Files\\AutoCAD 2002\\support\\acad2000doc.FAS" "C:\\Program Files\\AutoCAD 2002\\Support\\acad.mnl" "C:\\Program Files\\AutoCAD 2002\\express\\acetmain.mnl")

hoprich123

如果你知道LISP文件名称，用“findfile"函数可以查出路径.然后用"setenv"改写CAD支持路径。

meflying

如果不在支持路径,findfile是找不到的

oyxx1023

是啊。用DOSLIB倒是可以考虑一下，就是不知道R14可以不。

onej

有个想法：创建一个文件，FINDFIL，路径应该是了吧。

onej

自我更正，错误。

dlczb

(setq oldacad (getenv "ACAD"))              ；cad原有的搜索路径

(setq path (D:\addacad))                       ；要增加的搜索路径

(setenv "ACAD" (strcat oldacad ";" path))   ；向cad增加的搜索路径