lisp能否实现用户工具栏整合？

lvbin2ooo

如图，自己用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   [_Toolbar(\"Lvb工具箱\", _Floating, _Hide, 10, 340, 1)]"
  "ID_ZCT011   [_Button(\"汇总厂家单图纸\", \"RCDATA_16_IMGATT\", \"RCDATA_16_IMGATT\")]^C^Ctcc"
  "ID_ZCT012   [_Button(\"添加边界\", \"RCDATA_16_REGION\", \"RCDATA_16_REGION\")]^C^Crrr"
。。。
等等，用网上已有的源码修改的。使用中功能越做越多，图标越来越多，工具栏太长了，我又不想弄成2栏，现在想把几个按钮合一，采用下拉或侧拉方式，请问lisp是否可以实现，若无法实现，请大神告诉我，我就不折腾了。谢谢大神们。

nyistjz

注册 发表于 2021-5-26 20:09
能否实现图片下面的效果？

你这是工具栏形式的下拉菜单吧，我也喜欢这种样式的办法，之前找过很久，也是没有办法。
哪位大侠可以实现，能出个手。

注册

能否实现图片下面的效果？

lucas_3333

想看楼主的源码

zyhandw

lucas_3333 发表于 2014-4-9 08:51
想看楼主的源码

这里有langjs大侠的源码，非常值得学习：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860

lvbin2ooo

zyhandw 发表于 2014-4-9 10:02
这里有langjs大侠的源码，非常值得学习：http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860

我当时就是参考这个的。。现在我想弄成工具栏整合版的。没一点思路，搜了半天也没有。是不是lisp实现不了啊？

Gu_xl

lvbin2ooo 发表于 2014-4-9 11:58
我当时就是参考这个的。。现在我想弄成工具栏整合版的。没一点思路，搜了半天也没有。是不是lisp实现不了 ...

参阅帮助中关于菜单按钮定义章节中定制用户定义的弹出按钮内容！
弹出式按钮定义示例：
ID__46         [_Flyout("AC_SURVEY_KZD", A001, ICON_24_BLANK, _OtherIcon, 测量工具集.AC_SURVEY_CONTROL)]
红色部分是弹出的按钮名称！

lvbin2ooo

Gu_xl 发表于 2014-4-9 12:06
参阅帮助中关于菜单按钮定义章节中定制用户定义的弹出按钮内容！
弹出式按钮定义示例：
ID__46         ...

非常感谢。今天才看到。我赶紧试试。谢谢~

lvbin2ooo

lvbin2ooo 发表于 2014-5-4 23:31
非常感谢。今天才看到。我赶紧试试。谢谢~

折腾到1点多了。。还是没弄出来，麻烦Gu大神给点代码，帮帮忙吧。就用http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860里头，把ID_ZCT012和ID_ZCT013合到一个弹出式按钮里头。非常感谢。

lvbin2ooo

Gu_xl 发表于 2014-4-9 12:06
参阅帮助中关于菜单按钮定义章节中定制用户定义的弹出按钮内容！
弹出式按钮定义示例：
ID__46         ...

折腾到1点多了。。还是没弄出来，麻烦Gu大神给点代码，帮帮忙吧。就用http://bbs.mjtd.com/forum.php?mod=viewthread&tid=92860里头，把ID_ZCT012和ID_ZCT013合到一个弹出式按钮里头。非常感谢。

langjs

工具栏是可以采用抽屉式下拉的。下面给出个菜单文件mnu的例子

***MENUGROUP=TH++

***POP1
               [TH++]
               [--]
               [批量打印     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
               [表格转EXCEL  CE]^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         [_Toolbar("TH++", _Right, _show, 0, 0, 1)]
ID_TH01                [_Flyout("批量", "PLDY","PLDY",_OtherIcon,TH++01)]
ID_TH02         [_Flyout("刷子", "XTS","XTS",_OtherIcon,TH++02)]
ID_TH03         [_Flyout("工具", "LXFZ","LXFZ",_OtherIcon,TH++03)]
ID_TH04         [_Flyout("文本", "WBXHX","WBXHX",_OtherIcon,TH++04)]
ID_TH05         [_Flyout("标注", "BZZL","BZZL",_OtherIcon,TH++05)]
ID_TH06         [_Flyout("图块", "rbtukuai","rbtukuai",_OtherIcon,TH++06)]

**TH++01
ID_TH001        [_Toolbar("批量", _Floating, _Hide, 10, 340, 1)]
ID_TH011        [_Button("批量打印", "PLDY", "PLDY")]^C^CDY
ID_TH012        [_Button("图纸改名", "TZGM", "TZGM")]^C^CGM
ID_TH013        [_Button("图纸目录", "TZML", "TZML")]^C^CML
ID_TH016        [_Button("图纸封面", "FM", "FM")]^C^CFM
ID_TH014        [_Button("明细表汇总", "MXBHZ", "MXBHZ")]^C^CMHZ
ID_TH015        [_Button("炸开属性块", "ZKSXK", "ZKSXK")]^C^CSXK

**TH++02
ID_TH002        [_Toolbar("刷子", _Floating, _Hide, 10, 340, 1)]
ID_TH021        [_Button("相同刷", "XTS", "XTS")]^C^CXT
ID_TH022        [_Button("递增刷", "JYS", "JYS")]^C^CDZ
ID_TH023        [_Button("计算刷", "JSS", "JSS")]^C^CJS

**TH++03
ID_TH003        [_Toolbar("工具", _Floating, _Hide, 10, 340, 1)]
ID_TH031        [_Button("删除重复", "TYHB", "TYHB")]^C^CSCF
ID_TH032        [_Button("连续复制", "LXFZ", "LXFZ")]^C^CFZ
ID_TH035        [_Button("线型比例", "XXBL", "XXBL")]^C^CXBL
ID_TH036        [_Button("绘制云线", "YUN", "YUN")]^C^CYUN
ID_TH033        [_Button("图层归类", "TCGL", "TCGL")]^C^CGL
ID_TH039        [_Button("小菜选择易", "RCDATA_16_SELWP", "RCDATA_16_SELWP")]^C^CSS
ID_TH034        [_Button("截面特性", "JMTX", "JMTX")]^C^CTX
ID_TH037        [_Button("单位换算", "DWHS", "DWHS")]^C^CHS
ID_TH038        [_Button("重量计算", "RCDATA_16_SURPYR", "RCDATA_16_SURPYR")]^C^CZJ

**TH++04
ID_TH004        [_Toolbar("文本", _Floating, _Hide, 10, 340, 1)]
ID_TH041        [_Button("文本下划线", "WBXHX",  "WBXHX")]^C^CXHX
ID_TH042        [_Button("字体统一", "ZTTY", "ZTTY")]^C^CZT
ID_TH043        [_Button("查找和替换", "CZHTH", "CZHTH")]^C^CCTH
ID_TH044        [_Button("表格转EXCEL", "RCDATA_16_LAYNEW", "RCDATA_16_LAYNEW")]^C^CCE

**TH++05
ID_TH005        [_Toolbar("标注", _Floating, _Hide, 10, 340, 1)]
ID_TH052        [_Button("单向标注整理", "ZL", "ZL")]^C^CZL
ID_TH051        [_Button("视图标注整理", "BZZL", "BZZL")]^C^CSZL
ID_TH054        [_Button("剖切线绘制", "PQ", "PQ")]^C^CPQ
ID_TH053        [_Button("假尺寸检查", "BZBS", "BZBS")]^C^CJCC
ID_TH055        [_Button("引线标注", "YB", "YB")]^C^CYB

**TH++06
ID_TH006        [_Toolbar("图块", _Floating, _Hide, 10, 340, 1)]
ID_TH064        [_Button("快速建块", "QKUAI", "QKUAI")]^C^CQK
ID_TH061        [_Button("图块改名", "rbtukuai", "rbtukuai")]^C^CRK
ID_TH062        [_Button("图块拉伸", "TKLS", "TKLS")]^C^CKLS
ID_TH065        [_Button("图块统计", "TJK", "TJK")]^C^CKTJ
ID_TH063        [_Button("软件信息", "RJXX", "RJXX")]^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        [表格转EXCEL  CE]
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]^

	关闭 上传附件

lvbin2ooo

langjs 发表于 2014-5-7 15:00
工具栏是可以采用抽屉式下拉的。下面给出个菜单文件mnu的例子

***MENUGROUP=TH++

感谢分享。。。看来就是这样的。谢谢。