VL程序所在路径

sieben

在VB中有Path属性可以获得所运行的程序的位置，在Visual Lisp 也有Path 属性,但只对应于AutoCAD Application ,Document,Xref Blockference .请教有没有办法得到VL中某个命令所在的程序文件（.lsp,.fas,vlx）的路径?

alin

某个命令可能查不到，但已加载的lsp,fas和vlx文件的路径可以用DosLib的命令查出来。 (dos_lisplist t)

2. (defun GetLspPathList (fname / pathlst)
3.    (foreach itm (dos_lisplist t)
4.        (if  (vl-string-search fname itm)
5.            (setq pathlst (cons (vl-filename-directory itm) pathlst))
6.            )
7.        )
8.    (reverse pathlst)
9. )

(defun GetLspPathList (fname / pathlst)    (foreach itm (dos_lisplist t)        (if  (vl-string-search fname itm)            (setq pathlst (cons (vl-filename-directory itm) pathlst))            )        )    (reverse pathlst) )

1. _$ (getlsppathlist "acetutil.fas")
2. ("C:\\Program Files\\AutoCAD 2004\\express")
3. _$

复制代码

sieben

请问dos_lisplist 是什么?

alin

是DosLib里的一个函数，DosLib可到下面链接下载 http://www.mcneel.com/