晒晒你的工具菜单(晓东工具箱菜单系统自定义版)(20140115更新)

429014673

eachy 发表于 2014-1-11 19:47
这个程序中没有控制，在 ODCL 中设定最小宽度和最大宽度并且设定为不可缩放即可

增加了窄版定义, 见 menu 文件说明???????没更新？？？？

st788796

测试在只有一个TAB0的时候就不出现"标签"列按钮，比一楼演示窄了一个竖条

st788796

sachindkini 发表于 2014-1-11 20:59
Dear sir,
error
autocad cad 2014 64 bit

you only to load xdtb_menutool.lsp，not xdtb_menucontrol.vlx.
BTW ，ALL files have to puts to support path

守仁格竹GM

st788796 发表于 2014-1-12 00:25
you only to load xdtb_menutool.lsp，not xdtb_menucontrol.vlx.
BTW ，ALL files have to puts to s ...

{:soso_e113:}兄弟英语不错啊

xiaodao520

测试未成功…………

xiaodao520

st788796 发表于 2014-1-12 00:18
测试在只有一个TAB0的时候就不出现"标签"列按钮，比一楼演示窄了一个竖条

是吗？这个优化不错，我这边测试并未成功

st788796

("TAB0" ("TAB0" "通用") ("TAB1" "建筑") ("TAB2" "其它"))  ;_根据Tab启用情况增减, 不启用Tab时仅保留("TAB0")

xiaodao520

st788796 发表于 2014-1-12 11:13
("TAB0" ("TAB0" "通用") ("TAB1" "建筑") ("TAB2" "其它"))  ;_根据Tab启用情况增减, 不启用Tab时仅保留(" ...

测试了，当只保留一个TAB0时，整个菜单的宽度并未相应缩小，而是未显示左侧的标签栏而已，建议优化，菜单自适应缩放。。。。

神秘将军

支持eachy老师:D

st788796

xiaodao520 发表于 2014-1-12 12:53
测试了，当只保留一个TAB0时，整个菜单的宽度并未相应缩小，而是未显示左侧的标签栏而已，建议优化，菜单 ...

我测试出来后是这样滴
这个菜单不应在使用中切换启用 TAB，而且 这个控件在修改宽度后需要关闭然后再 Show 才有效果

xiaodao520

我测试的情况如下

sachindkini

st788796 发表于 2014-1-12 00:25
you only to load xdtb_menutool.lsp，not xdtb_menucontrol.vlx.
BTW ，ALL files have to puts to s ...

Command: AP APPLOAD xdtb_menu.lsp successfully loaded.
Command:
Command:
Command:  APPLOAD
xdtb_menucontrol.VLX successfully loaded.
Command: ; error: bad argument type: stringp nil
Command:
Command:  APPLOAD
xdtb_menutool.LSP successfully loaded.
Command:

429014673

eachy大师，增加同一命令对侧边栏进行开关

eachy

429014673 发表于 2014-1-16 08:45
eachy大师，增加同一命令对侧边栏进行开关

TAB标签应该在 Menu  中定义使用或不使用，没必要单独开关
可以把 xdtb_menutool 命令做成循环开关命令

st788796

1. (defun c:XDTB_MenuOnOff        ()
   
2.   (if (and xdcad_mainmenu (dcl_form_isactive xdcad_mainmenu))
   
3.     (dcl_form_close xdcad_mainmenu)
   
4.     (dcl_form_show xdcad_mainmenu)
   
5.   )
   
6.   (princ)
   
7. )

(defun c:XDTB_MenuOnOff        ()<br />   (if (and xdcad_mainmenu (dcl_form_isactive xdcad_mainmenu))<br />     (dcl_form_close xdcad_mainmenu)<br />     (dcl_form_show xdcad_mainmenu)<br />   )<br />   (princ)<br /> )