可以任意自定义的，切换不闪的工具箱界面工具

kozmosovia

ButtonTextMenu是一个可自定义的工具箱界面工具，支持多达上百个命令的切换、管理和调用。在命令组织上，采取了分类分组的方式，可以自定义分类名称，分类数量可以几十个。同时，每个分类下可以最多承载50个LISP命令或者LISP函数调用。ButtonTextMenu使用单一界面来实现命令调用和自定义，通过切换开关和按钮，可以轻松实现实时的自定义或者调整。

支持ACAD和ZWCAD，调用方式一样

详细信息：https://www.yuque.com/kozjonoyeoh/vldcl/gweoiv451vtpm4ec

kozmosovia

也是醉了，在线文件没加载完就被自动删除了，已修正好了。

kozmosovia

1028695446 发表于 2025-6-4 08:44
请问是不是每次都要在线加载一次呢

暂时缺少配置导出的按钮呢，然后保存设置，保存的是TXT文档，然后 ...

不需要，代码里有判断，如果已经加载过了，会不再加载。
配置导出没有必要，而且导出后文件也不是拿来给用户做修改的，只是为了将来快速调用。
如果需要自己定义命令和分类关系，可以根据简单的规则自行定义分类名称以及分类内命令显示和调用名称。然后使用【导入INI】功能导入。个别的功能，可以实时在界面手动添加、修改并保存。

kozmosovia

zgs378530220 发表于 2025-6-4 00:01
哪里下载啊

这段代码在线加载：

2. ((lambda (/ OA OB)
   
3.    (vl-load-com)
   
4.    (and  (null Q#0)
   
5.   (setq OA "https://gitee.com/kozmos/tachyoncloud/raw/master/StableVLX/LoadVLDCL"
   
6.         OB (vlax-create-object "winhttp.winhttprequest.5.1")
   
7.   )
   
8.   (progn (vlax-invoke OB "open" "get" OA :vlax-true)
   
9.          (vlax-invoke OB "send")
   
10.          (vlax-invoke OB "WaitforResponse" 1000)
    
11.          (eval (read (vlax-get OB "ResponseText")))
    
12.          (setq OB (vlax-release-object OB))
    
13.   )
    
14.    )
    
15. )
    
16. )

((lambda (/ OA OB)<br />    (vl-load-com)<br />    (and  (null Q#0)<br />   (setq OA "https://gitee.com/kozmos/tachyoncloud/raw/master/StableVLX/LoadVLDCL"<br />         OB (vlax-create-object "winhttp.winhttprequest.5.1")<br />   )<br />   (progn (vlax-invoke OB "open" "get" OA :vlax-true)<br />          (vlax-invoke OB "send")<br />          (vlax-invoke OB "WaitforResponse" 1000)<br />          (eval (read (vlax-get OB "ResponseText")))<br />          (setq OB (vlax-release-object OB))<br />   )<br />    )<br /> )<br /> )

下文没句号。

来支持一下。。。。。

magicheno

好高级的玩意

1028695446

下载试试看，切换分类确实不会闪，就是配置文件不利于编辑，希望支持非模态模式的

liuyj

用了vldcl，试用期一过就用不了了吧？

zgs378530220

哪里下载啊

kozmosovia

liuyj 发表于 2025-6-3 23:54
用了vldcl，试用期一过就用不了了吧？

VLDCL自身没有试用期

ghgh0130

感谢楼主分享。

e719

我是不是来晚了？