surveynet 发表于 2007-11-22 10:46:00

zmzk 发表于 2020-2-23 15:11:19

请问 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)))
)

cable2004 发表于 2020-2-23 17:42:06

（GetLspPath）

surveynet 发表于 2007-11-22 10:47:00

wzh 发表于 2007-11-22 14:47:00

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

助淫为乐 发表于 2007-11-22 18:18:00

助淫为乐 发表于 2007-11-22 18:21:00

sailorcwx 发表于 2007-11-22 20:34:00

<p>高手</p>

jaminth 发表于 2007-11-23 07:49:00

高手,又学了一招!@

fawn_lgc 发表于 2007-11-23 09:51:00

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

助淫为乐 发表于 2007-11-23 17:24:00

助淫为乐 发表于 2007-11-23 17:27:00

页: [1] 2 3 4
查看完整版本: [求助]如何获得我的lisp程序的路径？