[求助]：如何让lsp增加自己所在的文件夹到搜索路径中去？

fsxm

过了几天上来为什么还没有一个如意的程序出来呢？？？
难道真的不能在lisp中实现吗？？？

wujimmy

我的那个不行吗?
基本上应该是可以的,只要是用appload 加载的都可以的

fsxm

谢谢楼上！试了还是不行啊？是不是版本问题呢？我是2002的
   (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)
   )
这个值每次都是“参数类型错误”！！

wujimmy

你用regmon : http://update.coralqq.com/1exe1/regmon.rar
要注意选择好关键字
看一下,加载的时候,是哪个键值产生变化
我的CAD版本是2002,系统是XP,可能跟系统有关系

fsxm

最初由 wujimmy 发布
[B]你用regmon : http://update.coralqq.com/1exe1/regmon.rar
要注意选择好关键字
看一下,加载的时候,是哪个键值产生变化
我的CAD版本是2002,系统是XP,可能跟系统有关系 [/B]

非常感谢你哦!!
你的代码在win2000上我用了很好!win98上我还是没找到那个键值
在(addSupportPath dir pos )中
没有子函数parse
只能让pos=nil不如简化一下:
我简化了一下就成下面的了:

2. 
   
3. (princ "\n本Lisp加载的目录是:")
   
4. (princ (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. )
    
18. (setenv        "ACAD"
    
19.         (strcat (getenv "ACAD") ";" (vl-filename-directory lsppath))
    
20. )
    
21. (princ)
    

<br /> (princ "\n本Lisp加载的目录是:")<br /> (princ (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 /> )<br /> (setenv        "ACAD"<br />         (strcat (getenv "ACAD") ";" (vl-filename-directory lsppath))<br /> )<br /> (princ)<br />

不过如果编绎了还是不好用!因为这里只能对最后下一个lsp起效!

xyz518mm

我想如果要去找路径,不如先看一下在CAD 中使用 "APPLOAD" 加载后
出现在 "载入应用程式" 清单中的资料
虽然有 eachy 版主提供 dos_lisplist  这类函数可以取出
但也要设定加载目录位置后才可以使用.

如果有人知道用哪个函数取出这
"载入应用程式" 清单中的资料
那就方便多了~

aliu22

(defun addSupportPath (dir / tmp c)
  (setq c (getenv "ACAD"))
  (setq tmp (strcat c dir))
  (setenv "ACAD" tmp)
  (princ)
)
(defun c:add ()
  (addSupportPath ";d:\\myFolder")
)

;;;
;;;功能
;;;添加文件夹到AutoCAD支持搜索路径中的指定位置
这样是最简单的

xmchy

能不能直接加到第一个搜索目录,不管原来有没有那个目录存在?

c3a139

我也有与楼主相同的问题

guankuiwu

我在网上见到过一个，可惜如果能将其子目录也一并添加上就更好了！