[求助]如何自动添加所加载的LISP程序所在目录到搜索目录下！

120120

论坛找了很久也没找到。有一种可以，但是要LSP格式才行，如果是VLX格式就不行！

Momo1984

请问楼主，LSP的怎么添加呢？？

Momo1984

有人知道的吗？？

尘缘一生

顶起来，同求啊。。。。。。。。。。。。。。。

yxp

测试了一下，lisp 加载的办法太多，还真没有统一的办法
1 lisp文件拖入绘图区加载
2 点击菜单工具加载
3 用第三方vbs代码加载
4 直接粘贴 lisp 代码到命令行加载

第一种可以读系统变量获取加载路径；

1. (getvar "lastprompt")

(getvar "lastprompt")

第一、第二种可以读 注册表获取路径；

1. (defun Auto_get_path( / ss)
   
2. (setq reg (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\"
   
3.     (getvar "CPROFILE") "\\Dialogs\\Appload")
   
4.   paths (getenv "ACAD"))
   
5. (if (= "0" (vl-registry-read reg "SaveHistory"))
   
6.   (progn
   
7.     (vl-registry-write reg "SaveHistory" "1")
   
8.     (princ "\n加载路径获取失败，请重新加载")
   
9.     (princ)
   
10.   )
    
11.   (setq sr (strcat reg "\\History")
    
12.     n (atoi (vl-registry-read sr "NumHistory"))
    
13.     ss (vl-registry-read sr (strcat (itoa n) "History"))
    
14.   )
    
15. )
    
16. )

(defun Auto_get_path( / ss)<br /> (setq reg (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\"<br />     (getvar "CPROFILE") "\\Dialogs\\Appload")<br />   paths (getenv "ACAD"))<br /> (if (= "0" (vl-registry-read reg "SaveHistory"))<br />   (progn<br />     (vl-registry-write reg "SaveHistory" "1")<br />     (princ "\n加载路径获取失败，请重新加载")<br />     (princ)<br />   )<br />   (setq sr (strcat reg "\\History")<br />     n (atoi (vl-registry-read sr "NumHistory"))<br />     ss (vl-registry-read sr (strcat (itoa n) "History"))<br />   )<br /> )<br /> )

第三种可以用 vbs 获取路径

1. Dim STR , ARR
   
2.   SET ARR = WScript.Arguments
   
3.     For Each S1 In ARR
   
4.        STR = STR & "" & S1
   
5.     Next
   
6. Set objCAD = GetObject(, "AutoCAD.Application")
   
7. If Err Then '如果AutoCAD应用程序没有启动
   
8.     Err.Clear
   
9.     MsgBox " 未打开CAD程序:"
   
10.         Else
    
11.                 Set ThisDrawing = objCAD.activedocument
    
12.                 Set ws = CreateObject("WScript.Shell")
    
13.                 ws.appactivate "AutoCAD" '此处改为窗口标题固定的前缀
    
14.                 Set WS = Nothing
    
15.                 STR = replace (STR , "\" ,"/")
    
16.                 ThisDrawing.SendCommand ("(load """ & STR & """)" & vbCr)
    
17.                 Set ARR = Nothing
    
18.                 Set STR = Nothing
    
19.                 Set ThisDrawing = Nothing
    
20.                 Set objCAD = Nothing
    
21. End If

Dim STR , ARR <br />   SET ARR = WScript.Arguments<br />     For Each S1 In ARR<br />        STR = STR & "" & S1<br />     Next<br /> Set objCAD = GetObject(, "AutoCAD.Application")<br /> If Err Then '如果AutoCAD应用程序没有启动<br />     Err.Clear<br />     MsgBox " 未打开CAD程序:"<br />         Else<br />                 Set ThisDrawing = objCAD.activedocument<br />                 Set ws = CreateObject("WScript.Shell")<br />                 ws.appactivate "AutoCAD" '此处改为窗口标题固定的前缀<br />                 Set WS = Nothing<br />                 STR = replace (STR , "\" ,"/")<br />                 ThisDrawing.SendCommand ("(load """ & STR & """)" & vbCr)<br />                 Set ARR = Nothing<br />                 Set STR = Nothing<br />                 Set ThisDrawing = Nothing<br />                 Set objCAD = Nothing<br /> End If

第四种本身就没有路径，因为它不是一个文件。

陈伟

(vl-load-com)
(defun set_path (/ str n1 n2)
(while (/= 0 (getvar "cmdactive")) (command))
(princ "\n")
(setq str (getvar "lastprompt"))
(if (wcmatch (strcase str) "*(LOAD \"*")
(setq n1 (vl-string-search "(LOAD \"" str)
n2 (vl-string-search "\")" str)
str (substr str (+ n1 8) (- n2 n1 7))
)
(setq str
(vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\*"
(substr (vl-registry-read "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\*" "MRUList") 1 1)
)
)
)
(setenv "ACAD" (strcat (getenv "ACAD") ";" (vl-filename-directory str)))
)
(set_path)
(setq set_path nil)