[求助]如何获得我的lisp程序的路径？

zmzk

请问 wzh朋友的程序怎么用？唤起命令是什么啊？

2. ;;;获取当前LSP程序加载的路径
   
3. (defun GetLspPath()
   
4.   (setq lsppath
   
5.      (vl-registry-read
   
6. "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
   
7. (substr
   
8.    (vl-registry-read
   
9.      "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"
   
10.      "MRUList"
    
11.    )
    
12.    1
    
13.    1
    
14. )
    
15.      )
    
16.   )
    
17.   (setenv "ACAD" (strcat (getenv "ACAD") ";" (vl-filename-directory lsppath)))
    
18. )

;;;获取当前LSP程序加载的路径<br /> (defun GetLspPath()<br />   (setq lsppath<br />      (vl-registry-read<br /> "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"<br /> (substr<br />    (vl-registry-read<br />      "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\lsp"<br />      "MRUList"<br />    )<br />    1<br />    1<br /> )<br />      )<br />   )<br />   (setenv "ACAD" (strcat (getenv "ACAD") ";" (vl-filename-directory lsppath)))<br /> )

cable2004

（GetLspPath）

wzh

;;;获取当前LSP程序加载的路径
(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
 )
     )
  )
  (setenv "ACAD" (strcat (getenv "ACAD") ";" (vl-filename-directory lsppath)))
)

sailorcwx

高手

jaminth

高手,又学了一招!@

fawn_lgc

请问，你是在哪里学的的啊？