如何获得当前加载的isp文件的路径

xiaoyingzi · 发表于 2012-8-21 10:26

本帖最后由 xiaoyingzi 于 2012-8-22 19:38 编辑

想通过拖拽lisp到acad窗口的方式来安装自己的工具箱，但如何获得此时这个lisp文件的路径
搜索了一下论坛，有几种方法：
1
(defun GetLspPath()
  (setq lsppath
   (vl-registry-read
"HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
(substr
(vl-registry-read
   "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
   "MRUList"
)
1
1
)
   )
  )
(vl-filename-directory lsppath)
)
这种貌似只能针对appload加载的，对拖拽的无效，且在win7下也无效，据说注册表路径不对

方法二
在LSP文件中放置读取LASTPROMPT变量的代码，但对于太深的路径貌似无效

方法三
通过执行 COPYHIST 命令，然后再读取剪切板，然后再找到路径

不知道大家有什么好的方法

davide888 · 发表于 2013-11-3 16:01

xiaoyingzi 发表于 2012-8-22 19:30
发现这个用appload加载时，在winxp及win下都有效
(vl-registry-read
(strcat "HKEY_CURRENT_USER\ ...

谢谢

819534890 · 发表于 2019-3-20 12:56

arx能够读取加载的lisp列表，可以用arx做个函数让lisp调用来获得已加载的lisp程序

革天明 · 发表于 2012-8-21 10:39

还有一种是打开特定的DWG文件
另外推荐使用秋枫大侠的程序制作软件，加上WINRAR自解压EXE可以做出外观挺漂亮的软件

Andyhon · 发表于 2012-8-21 10:43

(Last (dos_lisplist T)) ; Required DosLIB

smartstar · 发表于 2012-8-21 12:34

加个关注！

xiaoyingzi · 发表于 2012-8-22 19:30

发现这个用appload加载时，在winxp及win下都有效
(vl-registry-read
   (strcat "HKEY_CURRENT_USER\\"
            (vlax-product-key)
            "\\Profiles\\"
            (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))
            "\\Dialogs\\Appload"
      )
      "MainDialog"
)

xiaoyingzi · 发表于 2012-8-22 19:34

本帖最后由 xiaoyingzi 于 2012-8-22 19:48 编辑

win7下直接不能用拖拽lisp到cad窗口的方式加载了

朽木大师 · 发表于 2013-4-22 09:42

关注中，WIN7中没找到好的办法吗？

jyzas · 发表于 2013-8-12 07:35

拖拽lisp到cad窗口的方式加载是否有效？？？

illcyt · 发表于 2013-9-22 17:57

你好，正在研究这个问题，请问有没有找到合适的解决办法，谢谢

账号		自动登录	找回密码
密码			注册

如何获得当前加载的isp文件的路径

本帖被以下淘专辑推荐:

相关帖子

点评