请问，还有像飞诗那种管理插件的程序，实现按需加载的。

wy92160410

请问，还有像飞诗那种管理插件的程序，实现按需加载的。

收集的插件比较多，不可能全部随软件启动，希望在输入到某个插件的命令时，再加载此插件。

菜卷鱼

假如是一个个加载，也不太现实，建议按文件夹加载

1. (defun c:ps1(/ dir ffs)
   
2. (setq dir "E:\\Users\\Desktop\\Ps1")
   
3. (setq ffs (vl-directory-files  dir "*.lsp" 1))
   
4. (mapcar '(lambda(x) (print (load (strcat dir "\\"  x)))) ffs)
   
5. (princ "\n加载完成")
   
6. (princ)
   
7. )
   
8. (defun c:ps2(/ dir ffs)
   
9. (setq dir "E:\\Users\\Desktop\\Ps2")
   
10. (setq ffs (vl-directory-files  dir "*.lsp" 1))
    
11. (mapcar '(lambda(x) (print (load (strcat dir "\\"  x)))) ffs)
    
12. (princ "\n加载完成")
    
13. (princ)
    
14. )
    

(defun c:ps1(/ dir ffs)<br /> (setq dir "E:\\Users\\Desktop\\Ps1")<br /> (setq ffs (vl-directory-files  dir "*.lsp" 1))<br /> (mapcar '(lambda(x) (print (load (strcat dir "\\"  x)))) ffs)<br /> (princ "\n加载完成")<br /> (princ)<br /> )<br /> (defun c:ps2(/ dir ffs)<br /> (setq dir "E:\\Users\\Desktop\\Ps2")<br /> (setq ffs (vl-directory-files  dir "*.lsp" 1))<br /> (mapcar '(lambda(x) (print (load (strcat dir "\\"  x)))) ffs)<br /> (princ "\n加载完成")<br /> (princ)<br /> )<br />

czb203

有免费版的，百度下

czb203

飞诗不就很好用吗

zhangcan0515

有的，自己搞个面板用啥功能往上添加功能就可以了

wy92160410

czb203 发表于 2023-7-18 13:03
飞诗不就很好用吗

我的飞诗用不起了 提示注册

wy92160410

zhangcan0515 发表于 2023-7-18 13:10
有的，自己搞个面板用啥功能往上添加功能就可以了

能麻烦发个参考下吗 不会编程，只能参考着现成的简单改一下。

zhangcan0515

wy92160410 发表于 2023-7-18 13:35
能麻烦发个参考下吗 不会编程，只能参考着现成的简单改一下。

论坛很多面板，搜一下就出来了。

liuhe

我倒是弄过工具选项板的东西，但是你现需要自己弄一点编程，用于启动插件

sandyvs

http://bbs.mjtd.com/thread-180374-1-1.html这样也可以