VL程序所在路径

sieben · 发表于 2004-10-13 11:42:00

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

alin · 发表于 2004-10-13 18:22:00

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

copy


(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)
)

复制代码