分享一个自动加载安装LSP,VLX,FAS,ARX文件的函数

LPACMQ

因受[风之影][解析]二次开发安装程序的启发，故得此函数。
详情见大神剖析；
[风之影][解析]二次开发安装程序 http://bbs.mjtd.com/forum.php?mo ... 819&fromuid=7304201

操作演示;

1.安装方式一: 双击SETUP.DWG自动加载到自动开启的CAD程序版本中;
2.安装方式二: 启动CAD 打开SETUP.DWG 文件,程序自动加载;

3.用户可自定义“文件支持搜索路径”和“自动加载路径”;
;;函数名：cq-add-path
;;功  能：为添加文件支持搜索路径，可以是单个或多个，按字符串列表形式组合，每一个文件夹名以空格隔开。

;;函数名：Cq-add-autorun
;;功  能：添加文件自动加载路径，启动CAD自动加载该路径下的全部LISP、VLX 、ARX文件，可以是单个或多个(文件夹必须是支持搜索路径)，按字符串列表形式组合，每一个文件夹名以空格隔开。

;;打开acaddoc.lsp文件，见如下代码:

      (cq-add-path '( "stand" "For AutoCAD 2000" "Autorun_file" )) ;;;添加文件支持搜索路径。
      (Cq-add-autorun '("Autorun_file")) ;;;添加文件自动加载路径,必须是支持搜索路径。

代码回帖可见；

---

1. (defun Cq-setup (/ curDir)
   
2.   (if (equal (strcase (getvar "DWGNAME")) "SETUP.DWG")
   
3.     (progn
   
4.       (setq curDir    (getvar "DWGPREFIX"))
   
5.       (load (strcat curDir "Cq-add-path.VLX"))
   
6.       (load (strcat curDir "Cq-add-autorun.VLX"))
   
7.       
   
8.       (cq-add-path '( "stand" "For AutoCAD 2000" "Autorun_file" ));;;添加文件支持搜索路径。
   
9.       (Cq-add-autorun  '("Autorun_file")) ;;;添加文件自动加载路径,必须是支持搜索路径。
   
10. 
    
11.     )
    
12.   )
    
13. )
    
14. 
    
15. (Cq-setup)
    
16. (princ)
    
17. 
    
18. (if (and (vl-registry-read "HKEY_CURRENT_USER\\Cq-add-path" "") (not (equal (strcase (getvar "DWGNAME")) "SETUP.DWG")) )
    
19.     (progn
    
20.      (load "Cq-add-autorun.VLX")
    
21.       (Cq-add-autorun  '("Autorun_file"))
    
22.     );progn
    
23. );if
    

(defun Cq-setup (/ curDir)<br />   (if (equal (strcase (getvar "DWGNAME")) "SETUP.DWG")<br />     (progn<br />       (setq curDir    (getvar "DWGPREFIX"))<br />       (load (strcat curDir "Cq-add-path.VLX"))<br />       (load (strcat curDir "Cq-add-autorun.VLX"))<br />       <br />       (cq-add-path '( "stand" "For AutoCAD 2000" "Autorun_file" ));;;添加文件支持搜索路径。<br />       (Cq-add-autorun  '("Autorun_file")) ;;;添加文件自动加载路径,必须是支持搜索路径。<br /> <br />     )<br />   )<br /> )<br /> <br /> (Cq-setup)<br /> (princ)<br /> <br /> (if (and (vl-registry-read "HKEY_CURRENT_USER\\Cq-add-path" "") (not (equal (strcase (getvar "DWGNAME")) "SETUP.DWG")) )<br />     (progn <br />      (load "Cq-add-autorun.VLX")<br />       (Cq-add-autorun  '("Autorun_file"))<br />     );progn<br /> );if<br />

bh5280

sdbaijiao

我是菜鸟，向大师学习来的。

hzj526

楼主不错，升华了下

fl202

就连下载个图片演示.rar 都收费， 遇见这样的楼主我也是醉了。

以下内容仅楼主可见：
我******

LPACMQ

fl202 发表于 2015-5-13 09:10
就连下载个图片演示.rar 都收费， 遇见这样的楼主我也是醉了。

因为发帖的规则，我还不是很清楚，不好意思哈！

mycad

顶一下！！！！！！

花心小兔001

不错的东西，顶一个

chcumt

不错的东西

tangjunasd58

有这么好用吗