分享一个自动加载插件的插件

lianglia2008

分享一个自己常用的插件吧，只需要把它跟别的插件放到一块，然后把它加载到cad自动启动，打开cad就可以自动加载了，另外分享一下自己常用的插件截图，插件论坛都有，有朋友懒得找了，我就再分享一下

插件安装方法：
    1、把需要安装的CAD插件文件放在此文件夹内（支持插件格式有：LSP VLX FAS ARX DLL）
    2、把 kk-Autoload.lsp 拖入CAD绘图区就会把文件夹内所有插件进行安装
    提示：需卸载插件时把文件夹内的对应的文件删除即可。


插件作者分享的网址
【新提醒】【kk-Autoload】修复bug 2024.12.30 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!

lxl217114

爱分享是好事
作者就在论坛，也发了分享的帖子

http://bbs.mjtd.com/thread-186351-1-1.html

http://bbs.mjtd.com/thread-188455-1-1.html

qifeifei

lianglia2008 发表于 2025-9-9 08:37
这就不知道了，大佬，反正我用的少还行

2. ;; loading.lsp - 自动加载当前文件夹内所有LSP文件
   
3. ;; 功能: 自动加载当前文件夹内所有LSP文件，除了loading.lsp自身
   
4. ;; 日期: 2025/9/5
   
5. 
   
6. (defun c:LOADALL (/ current-dir file-list file-path)
   
7.   (princ "\n=== 自动加载LSP文件系统 ===")
   
8.   
   
9.   ;; 获取当前LSP文件所在目录
   
10.   (setq current-dir (vl-filename-directory (findfile "loading.lsp")))
    
11.   (princ (strcat "\n[INFO] 当前目录: " current-dir))
    
12.   
    
13.   ;; 获取目录中所有文件
    
14.   (setq file-list (vl-directory-files current-dir "*.lsp" 1))
    
15.   (princ (strcat "\n[INFO] 找到 " (itoa (length file-list)) " 个LSP文件"))
    
16.   
    
17.   ;; 遍历并加载所有LSP文件（除了loading.lsp自身）
    
18.   (foreach file file-list
    
19.     (if (/= (strcase file) "LOADING.LSP")
    
20.       (progn
    
21.         (setq file-path (strcat current-dir "\" file))
    
22.         (princ (strcat "\n[INFO] 正在加载: " file))
    
23.         (load file-path)
    
24.       )
    
25.       (princ (strcat "\n[INFO] 跳过自身: " file))
    
26.     )
    
27.   )
    
28.   
    
29.   (princ "\n=== 所有LSP文件加载完成 ===")
    
30.   (princ)
    
31. )
    
32. 
    
33. ;; 自动执行加载
    
34. (c:LOADALL)
    
35. 
    
36. (princ "\n已加载 loading.lsp - 输入 LOADALL 可重新加载所有LSP文件")
    
37. (princ)

;; loading.lsp - 自动加载当前文件夹内所有LSP文件<br /> ;; 功能: 自动加载当前文件夹内所有LSP文件，除了loading.lsp自身<br /> ;; 日期: 2025/9/5<br /> <br /> (defun c:LOADALL (/ current-dir file-list file-path)<br />   (princ "\n=== 自动加载LSP文件系统 ===")<br />   <br />   ;; 获取当前LSP文件所在目录<br />   (setq current-dir (vl-filename-directory (findfile "loading.lsp")))<br />   (princ (strcat "\n[INFO] 当前目录: " current-dir))<br />   <br />   ;; 获取目录中所有文件<br />   (setq file-list (vl-directory-files current-dir "*.lsp" 1))<br />   (princ (strcat "\n[INFO] 找到 " (itoa (length file-list)) " 个LSP文件"))<br />   <br />   ;; 遍历并加载所有LSP文件（除了loading.lsp自身）<br />   (foreach file file-list<br />     (if (/= (strcase file) "LOADING.LSP")<br />       (progn<br />         (setq file-path (strcat current-dir "\" file))<br />         (princ (strcat "\n[INFO] 正在加载: " file))<br />         (load file-path)<br />       )<br />       (princ (strcat "\n[INFO] 跳过自身: " file))<br />     )<br />   )<br />   <br />   (princ "\n=== 所有LSP文件加载完成 ===")<br />   (princ)<br /> )<br /> <br /> ;; 自动执行加载<br /> (c:LOADALL)<br /> <br /> (princ "\n已加载 loading.lsp - 输入 LOADALL 可重新加载所有LSP文件")<br /> (princ)

lianglia2008

qifeifei 发表于 2025-9-8 21:45
太厉害了 非常感谢你的分享 有没有加入容错呢；即使错误也要继续加载完剩下的

这就不知道了，大佬，反正我用的少还行

qifeifei

太厉害了 非常感谢你的分享 有没有加入容错呢；即使错误也要继续加载完剩下的

张向华

多谢分享好东西

不一样地设计

多谢分享多谢分享

菜鸟初来乍到

感谢大佬的分享，明经有你更精彩

by361973435

感谢大神分享,厉害

luoyiandy

感谢分享，顶一下

glcxpa

多谢分享好东西