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

zijie87

要注明出处，别整的跟你写的一样

lianglia2008

lxl217114 发表于 2025-9-9 09:41
爱分享是好事
作者就在论坛，也发了分享的帖子

感谢大佬，大佬不分享我还不知道作者也在咱们论坛呢

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-9 10:35

厉害了，大佬，这是加入容错后的吗

23410997

感谢大佬的分享

liwen888888

多谢分享好东西

下文没句号。

lxl217114 发表于 2025-9-9 09:41
爱分享是好事
作者就在论坛，也发了分享的帖子

多谢分享好东西，多谢分享好东西