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

zdqwy19

wzh 发表于 2007-11-22 14:47
;;;获取当前LSP程序加载的路径(defun GetLspPath()  (setq lsppath     (vl-regi ...

在win7不好用，错误: 参数类型错误: stringp (3)

teykmcqh

正在查找这方面的内容，试试看一下啦

温柔/mg一剑

高手 学习了，谢谢！

LLXXZZ

zdqwy19 发表于 2011-11-24 14:59
在win7不好用，错误: 参数类型错误: stringp (3)

win7的注册表，貌似是不同了。。。。
我也没有测试成功。

h008

这个问题 论坛里的 yunlong300 肯定会！！！

他的程序就解决了！

不知道这高人是怎么做到的

jyzas

FILENAME有bug,如果不同目录者有该文件，要取哪个路径？？

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）