请问如何在加载lisp时读取所加载lisp的存放路径

kele99kele

如题
比如我要做的是test.lsp
在将test.lisp采用拖入窗口或append方式加载的时候，
需要做一个support路径，将test.lsp所在目录作为cad
的搜索支持目录，那么我在test.lisp里面采用什么函
数能够将变量x赋值为test.lsp的所在目录呢？将x插
入搜索支持目录的方法见下面代码，我现在的目的是将
“D:\\nice”作为变量赋值给“x”达到能够随意拷贝
不受存放位置限制的目的

2. (defun nice_makpath ()
   
3.   (setq oldacad (getenv "ACAD")) (princ)
   
4.   (if (wcmatch oldacad "*D:\\nice\\support*") ()
   
5.     (progn
   
6.       (vl-load-com)
   
7.       (vl-mkdir "D:\\nice")
   
8.       (vl-mkdir "D:\\nice\\support")
   
9.       (setq path "D:\\nice;D:\\nice\\support")
   
10.       (setenv "ACAD" (strcat oldacad ";" path))
    
11.     )   
    
12.   )
    
13.   (princ)
    
14. )

(defun nice_makpath ()<br />   (setq oldacad (getenv "ACAD")) (princ)<br />   (if (wcmatch oldacad "*D:\\nice\\support*") ()<br />     (progn<br />       (vl-load-com)<br />       (vl-mkdir "D:\\nice")<br />       (vl-mkdir "D:\\nice\\support")<br />       (setq path "D:\\nice;D:\\nice\\support")<br />       (setenv "ACAD" (strcat oldacad ";" path))<br />     )    <br />   )<br />   (princ)<br /> )

kele99kele

没有大神感兴趣么来自: Android客户端

楚留香

2.   (setq lisploadpath1 (vl-registry-read
   
3. (strcat "HKEY_CURRENT_USER\"
   
4.                 (vlax-product-key)
   
5.                 "\\Profiles\"
   
6.                 (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))
   
7.                 "\\Dialogs\\Appload"
   
8.         )
   
9.         "MainDialog"
   
10.       ))                    
    
11. ;取得最后lisp程序加载地址

  (setq lisploadpath1 (vl-registry-read<br /> (strcat "HKEY_CURRENT_USER\"<br />                 (vlax-product-key)<br />                 "\\Profiles\"<br />                 (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))<br />                 "\\Dialogs\\Appload"<br />         )<br />         "MainDialog"<br />       ))                    <br /> ;取得最后lisp程序加载地址

kele99kele

楚留香 发表于 2015-8-11 21:35

这个程序我已经该写过了，但是感觉局限有点大，再讨论下通过内存加载的方式加载的lisp或vlx的路径获得

2. (defun c:tt ()
   
3.   (setq
   
4.           nice_path (vl-registry-read
   
5.                         (strcat "HKEY_CURRENT_USER\"
   
6.                                 (vlax-product-key)
   
7.                                 "\\Profiles\"
   
8.                                 (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))
   
9.                                 "\\Dialogs\\Appload"
   
10.                         )
    
11.                         "MainDialog"
    
12.     )
    
13.                 nice_path (strcat nice_path ";" nice_path "nice\\support")
    
14.         )
    
15. )

(defun c:tt ()<br />   (setq<br />           nice_path (vl-registry-read<br />                         (strcat "HKEY_CURRENT_USER\"<br />                                 (vlax-product-key)<br />                                 "\\Profiles\"<br />                                 (vla-get-activeprofile (vla-get-profiles (vla-get-preferences (vlax-get-acad-object))))<br />                                 "\\Dialogs\\Appload"<br />                         )<br />                         "MainDialog"<br />     )<br />                 nice_path (strcat nice_path ";" nice_path "nice\\support")<br />         )<br /> )

楚留香

内存方式加载暂时还没有好的办法；遍历注册表或许可以，但是没有深入研究过！

434939575

这个好，谢谢！

USER2128

同求相关程序，望大神出手

流动的清泉

源文件 就不错了，我就满足了