请大佬帮助：拼凑个自动加载程序，不知道哪里出问题了？?

fengyu6913

从网上找的加载子函数，想拼凑个自动加载程序，卡住了，也不知道哪里出问题了

请大佬帮忙看下问题出在哪里了？



(defun c:tt () (c:lispautoload))  ;;  长命令简化“调用”方法

(defun c:lispautoload ( / x )

  (setq path_root  "H:\\00. CAD相关\\1.加载\\")  ;;设置根路径

  (setq path0     (strcat  path_root     "0. 快捷"))
  (setq path1     (strcat  path_root     "1. 绘图"))
  (setq path2     (strcat  path_root     "2. 变量"))
  (setq path3     (strcat  path_root     "3. 标注"))
  (setq path4     (strcat  path_root     "4. 方字"))
  (setq path5     (strcat  path_root     "5. 座标"))

  (CQ-AUTOLOADFILE   path0)
  (CQ-AUTOLOADFILE   path1)
  (CQ-AUTOLOADFILE   path2)
  (CQ-AUTOLOADFILE   path3)
  (CQ-AUTOLOADFILE   path4)
  (CQ-AUTOLOADFILE   path5)
)
;;以下子程序是是论坛还是群里找到的
(DEFUN   CQ-AUTOLOADFILE(   PATH      /   FILENAME   I   INF   SELF   )      
   (setq   FILENAME   (MAPCAR   'STRCASE   (APPLY   'APPEND   (MAPCAR   '(LAMBDA   (X   )
                          (VL-DIRECTORY-FILES   PATH   X   )   )   '("*.VLX"   "*.FAS"   "*.LSP"   )   )   )   ))   
   (setq   SELF   (STRCASE   (STRCAT   (VL-FILENAME-BASE   (VL-BB-REF   'FILEPATH   )   )
                          (VL-FILENAME-EXTENSION   (VL-BB-REF   'FILEPATH   )   )   )   ))   
   (setq   FILENAME   (VL-REMOVE   SELF   FILENAME   ))   
   (setq   I   0)   
   (FOREACH   X   FILENAME      
      (if   (VL-CATCH-ALL-ERROR-P   (setq      INF
                          (VL-CATCH-ALL-APPLY   'LOAD   (LIST   (STRCAT   PATH   "/"   X   )   )   ))   )   
         (PROGN      
            (setq   I   (1+   I   ))
            (PRINC   (STRCAT   "\n("   (ITOA   I   )   ")   "   X   "   加载失败!   "   (VL-CATCH-ALL-ERROR-MESSAGE   INF   )   )   )   
         )
      )  
      (PRINC   )
   )   
   (PRINC   )      
)

lostbalance

CQ-AUTOLOADFILE那个不明白为什么会写的这么复杂。
第1步是找到了路径下所有的程序文件；
第2步和第3步完全没看明白是想干嘛，另外出错就是在第2步，第3步没测试。
后面是加载程序文件。

简单来说，把第2步和第3步删掉，程序就能用了，也就是下面这些删掉
   (setq   SELF   (STRCASE   (STRCAT   (VL-FILENAME-BASE   (VL-BB-REF   'FILEPATH   )   )
                          (VL-FILENAME-EXTENSION   (VL-BB-REF   'FILEPATH   )   )   )   ))   
   (setq   FILENAME   (VL-REMOVE   SELF   FILENAME   ))   

当然了，删掉后，可以在清理一下这个函数的废弃变量名。

xyp1964

1. (defun c:tt () (c:lispAutoLoad)) ; 长命令简化“调用”方法
   
2. (defun c:lispAutoLoad (/ root)
   
3.   (defun autoloadfile (path / lst)
   
4.     (setq lst (mapcar '(lambda (x) (vl-directory-files path x 1))'("*.vlx" "*.fas" "*.lsp")))
   
5.     (mapcar '(lambda (x) (load (strcat path "\\" x))) (apply 'append lst))
   
6.   )
   
7.   (setq root "H:\\00.CAD相关\\1.加载\\") ;设置根路径
   
8.   (foreach a '("0.快捷" "1.绘图" "2.变量" "3.标注" "4.方字" "5.座标");子目录
   
9.     (autoloadfile (strcat root a))
   
10.   )
    
11.   (princ)
    
12. )

(defun c:tt () (c:lispAutoLoad)) ; 长命令简化“调用”方法<br /> (defun c:lispAutoLoad (/ root)<br />   (defun autoloadfile (path / lst)<br />     (setq lst (mapcar '(lambda (x) (vl-directory-files path x 1))'("*.vlx" "*.fas" "*.lsp")))<br />     (mapcar '(lambda (x) (load (strcat path "\\" x))) (apply 'append lst))<br />   )<br />   (setq root "H:\\00.CAD相关\\1.加载\\") ;设置根路径<br />   (foreach a '("0.快捷" "1.绘图" "2.变量" "3.标注" "4.方字" "5.座标");子目录<br />     (autoloadfile (strcat root a))<br />   )<br />   (princ)<br /> )

xxyyzzlg

本想取代之前的自动加载加载程序，遇到了些问题。
之前能正常加载部分函数，如黄大师之前分享的，
用这个方法加载会出现出错提示。
错误: LOAD 失败: D:\11\1.绘图\21.绘图\明经常用函数.lsp

而同路径下的某些程序却能正常加载。  想不通哪里出了问题。

qazxswk

想自动加载插件？你只要把代码复制到acad20**.lsp文件里，启动CAD就可以自动加载了。20**是你的CAD版本号。

C哩C哩

用别人写好的就可以吧，kk开头那个挺好用

fengyu6913

插件经常有变动，几台机子要同步挺麻烦的，就想着放移动硬盘里
用时直接能把整个文件夹里的自动加载

kozmosovia

fengyu6913 发表于 2024-9-4 12:33
插件经常有变动，几台机子要同步挺麻烦的，就想着放移动硬盘里
用时直接能把整个文件夹里的自动加载

要多台电脑都同步，不如直接全部从web加载，将来只需要更新web上的lsp，保证每次加载的都是最新的

fengyu6913

问题已解决，感谢大佬们相助

fengyu6913

xyp1964 发表于 2024-9-5 13:49

xyp1964 大神出现了，这个代码好精简

学习了！

yk1216

膜拜大神了