求帮助，通过lisp代码，获得该lisp文件的地址

zcl_()

大师们，有没有办法能获得本lisp文件的路径的办法。就是通过lisp代码，获得该lisp文件的地址。之前好像在哪个帖子看到过，后来找不到了。。。。

不一样地设计

;;;自动加载路径下的VLX FAS LSP 文件
(foreach n (vl-remove "文件名.lsp" (vl-directory-files "路径" "*.lsp"))
(if (vl-catch-all-error-p (vl-catch-all-apply 'load(list (strcat "路径" n))))
    (princ (strcat "\n" n "加载失败"))
    (princ (strcat "\n" n "加载成功"))
)
)

zcl_()

不一样地设计 发表于 2023-4-25 18:47
;;;自动加载路径下的VLX FAS LSP 文件
(foreach n (vl-remove "文件名.lsp" (vl-directory-files "路径" " ...

如果不知道路径，有办法么？

不一样地设计

http://bbs.mjtd.com/thread-64323-4-1.html

不一样地设计

zcl_() 发表于 2023-4-25 19:37
如果不知道路径，有办法么？

(FINDFILE "名称.LSP")

zcl_()

不一样地设计 发表于 2023-4-25 21:15
(FINDFILE "名称.LSP")

findfile 能找到地址的前提是，文件在cad的支持的搜索路径下。如果不在，还是解决不了。

zcl_()

不一样地设计 发表于 2023-4-25 21:07
http://bbs.mjtd.com/thread-64323-4-1.html

看了这个帖子，感觉思路是对的，可是我win10，也没有弄出来。谢谢！

不一样地设计

那只能查看ap命令，查询历史加载记录