lisp能否实现用户工具栏整合？
如图，自己用lisp编写了程序，自己加载工具栏
。。。
(if (not (menugroup "LvbTOOLBAR")); 判断cad是否加载LvbTOOLBAR工具栏
(progn ; 如果没加载，则自动执行下面程序
(alert "\n程序自动创建\"LvbTOOLBAR\"工具栏，请稍后")
(setq file (open "C:\\Program Files\\Lvb工具箱\\LvbTOOLBAR.mnu" "W")) ; 在cad搜索目录创建一个菜单mnu文件,写状态打开
(foreach x '("***MENUGROUP=LvbTOOLBAR\n\n***TOOLBARS\n**LvbTOOLBAR" ; 下面定义工具栏内容，最好采用cad自带图标
"ID_ZCT001 "
"ID_ZCT011 ^C^Ctcc"
"ID_ZCT012 ^C^Crrr"
。。。
等等，用网上已有的源码修改的。使用中功能越做越多，图标越来越多，工具栏太长了，我又不想弄成2栏，现在想把几个按钮合一，采用下拉或侧拉方式，请问lisp是否可以实现，若无法实现，请大神告诉我，我就不折腾了。谢谢大神们。
注册 发表于 2021-5-26 20:09
能否实现图片下面的效果？
你这是工具栏形式的下拉菜单吧，我也喜欢这种样式的办法，之前找过很久，也是没有办法。
哪位大侠可以实现，能出个手。 本帖最后由 注册 于 2021-5-26 20:12 编辑
能否实现图片下面的效果？
想看楼主的源码 lucas_3333 发表于 2014-4-9 08:51 static/image/common/back.gif
想看楼主的源码
这里有langjs大侠的源码，非常值得学习：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860 zyhandw 发表于 2014-4-9 10:02 static/image/common/back.gif
这里有langjs大侠的源码，非常值得学习：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860
我当时就是参考这个的。。现在我想弄成工具栏整合版的。没一点思路，搜了半天也没有。是不是lisp实现不了啊？ 本帖最后由 Gu_xl 于 2014-4-9 12:20 编辑
lvbin2ooo 发表于 2014-4-9 11:58 static/image/common/back.gif
我当时就是参考这个的。。现在我想弄成工具栏整合版的。没一点思路，搜了半天也没有。是不是lisp实现不了 ...
参阅帮助中关于菜单按钮定义章节中定制用户定义的弹出按钮内容！
弹出式按钮定义示例：
ID__46 _OtherIcon, 测量工具集.AC_SURVEY_CONTROL)]
红色部分是弹出的按钮名称！ Gu_xl 发表于 2014-4-9 12:06 static/image/common/back.gif
参阅帮助中关于菜单按钮定义章节中定制用户定义的弹出按钮内容！
弹出式按钮定义示例：
ID__46 ...
非常感谢。今天才看到。我赶紧试试。谢谢~ lvbin2ooo 发表于 2014-5-4 23:31 static/image/common/back.gif
非常感谢。今天才看到。我赶紧试试。谢谢~
折腾到1点多了。。还是没弄出来，麻烦Gu大神给点代码，帮帮忙吧。就用http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860里头，把ID_ZCT012和ID_ZCT013合到一个弹出式按钮里头。非常感谢。 Gu_xl 发表于 2014-4-9 12:06 static/image/common/back.gif
参阅帮助中关于菜单按钮定义章节中定制用户定义的弹出按钮内容！
弹出式按钮定义示例：
ID__46 ...
折腾到1点多了。。还是没弄出来，麻烦Gu大神给点代码，帮帮忙吧。就用http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860里头，把ID_ZCT012和ID_ZCT013合到一个弹出式按钮里头。非常感谢。 工具栏是可以采用抽屉式下拉的。下面给出个菜单文件mnu的例子
***MENUGROUP=TH++
***POP1
[--]
[批量打印 DY]^C^CDY
[图纸改名 GM]^C^CGM
[图纸目录 ML]^C^CML
[图纸封面 ML]^C^CFM
[明细表汇总MHZ]^C^CMHZ
[炸开属性块SXK]^C^CSXK
[--]
[相同刷 XT]^C^CXT
[递增刷 DZ]^C^CDZ
[计算刷 JS]^C^CJS
[--]
[删除重复 SCF]^C^CSCF
[连续复制 FZ]^C^CFZ
[线型比例 XBL]^C^CXBL
[绘制云线 YUN]^C^CYUN
[图层归类 GL]^C^CGL
[小菜选择易 SS]^C^CSS
[截面特性 TX]^C^CTX
[单位换算 HS]^C^CHS
[重量计算 ZJ]^C^CZJ
[--]
[文本下划线XHX]^C^CXHX
[字体统一 ZT]^C^CZT
[查找和替换CTH]^C^CCTH
[表格转EXCELCE]^C^CCE
[--]
[单向标注整理 ZL]^C^CZL
[视图标注整理SZL]^C^CSZL
[剖切线绘制 PQ]^C^CPQ
[假尺寸检查JCC]^C^CJCC
[引线标注 YB]^C^CYB
[--]
[快速建块 QK]^C^CQK
[图块改名 RK]^C^CRK
[图块拉伸 KLS]^C^CKLS
[图块统计 KTJ]^C^CKTJ
[--]
[软件信息 RJXX]^C^CRJXX
***TOOLBARS
**TH++
ID_TH00
ID_TH01
ID_TH02
ID_TH03
ID_TH04
ID_TH05
ID_TH06
**TH++01
ID_TH001
ID_TH011 ^C^CDY
ID_TH012 ^C^CGM
ID_TH013 ^C^CML
ID_TH016 ^C^CFM
ID_TH014 ^C^CMHZ
ID_TH015 ^C^CSXK
**TH++02
ID_TH002
ID_TH021 ^C^CXT
ID_TH022 ^C^CDZ
ID_TH023 ^C^CJS
**TH++03
ID_TH003
ID_TH031 ^C^CSCF
ID_TH032 ^C^CFZ
ID_TH035 ^C^CXBL
ID_TH036 ^C^CYUN
ID_TH033 ^C^CGL
ID_TH039 ^C^CSS
ID_TH034 ^C^CTX
ID_TH037 ^C^CHS
ID_TH038 ^C^CZJ
**TH++04
ID_TH004
ID_TH041 ^C^CXHX
ID_TH042 ^C^CZT
ID_TH043 ^C^CCTH
ID_TH044 ^C^CCE
**TH++05
ID_TH005
ID_TH052 ^C^CZL
ID_TH051 ^C^CSZL
ID_TH054 ^C^CPQ
ID_TH053 ^C^CJCC
ID_TH055 ^C^CYB
**TH++06
ID_TH006
ID_TH064 ^C^CQK
ID_TH061 ^C^CRK
ID_TH062 ^C^CKLS
ID_TH065 ^C^CKTJ
ID_TH063 ^C^CRJXX
***HELPSTRINGS
ID_TH011 [批量打印 DY]
ID_TH012 [图纸改名 GM]
ID_TH013 [图纸目录 ML]
ID_TH016 [图纸封面 FM]
ID_TH014 [明细表汇总MHZ]
ID_TH015 [炸开属性块SXK]
ID_TH021 [相同刷 XT]
ID_TH022 [递增刷 DZ]
ID_TH023 [计算刷 JS]
ID_TH031 [删除重复 SCF]
ID_TH032 [连续复制 FZ]
ID_TH033 [图层归类 GL]
ID_TH034 [截面特性 TX]
ID_TH035 [线型比例 XBL]
ID_TH036 [绘制云线 YUN]
ID_TH037 [单位换算 HS]
ID_TH038 [重量计算 ZJ]
ID_TH039 [小菜选择易 SS]
ID_TH041 [文本下划线XHX]
ID_TH042 [字体统一 ZT]
ID_TH043 [查找和替换CTH]
ID_TH044 [表格转EXCELCE]
ID_TH052 [单向标注整理 ZL]
ID_TH051 [视图标注整理SZL]
ID_TH054 [剖切线绘制 PQ]
ID_TH053 [假尺寸检查JCC]
ID_TH055 [引线标注 YB]
ID_TH061 [图块改名 RK]
ID_TH062 [图块拉伸 KLS]
ID_TH063 [软件信息 RJXX]
ID_TH064 [快速建块 QK]
ID_TH065 [图块统计 KTJ]^
[*]关闭
[*]上传附件
langjs 发表于 2014-5-7 15:00 static/image/common/back.gif
工具栏是可以采用抽屉式下拉的。下面给出个菜单文件mnu的例子
***MENUGROUP=TH++
感谢分享。。。看来就是这样的。谢谢。
页:
[1]
2