快速定制自己的“菜单” （二）

Lispboy · 发表于 2018-9-18 10:40:36

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有帐号？立即注册

x

本帖最后由 newer 于 2018-9-21 15:09 编辑

以 “表格编辑工具集” 工具集为例

=================================
1、非模式菜单
2、位置在屏幕右上角
3、20秒自动消失，可以修改下面代码的 20000 ，改为你自己希望的时间
4、鼠标移动到菜单，再移出，继续增加20秒
5、菜单显示时候，会自动关闭已经打开的其他非模式OPENDCL对话框

函数：(XD::ODCL:MENU mode setup items)
说下参数：

mode 1:非模式 2：模式

setup ----- 设置选项
" 表格编辑工具集 " 240 360 3 100 26 10 20000

" 拷贝移动工具集 " --- 显示在对话框上面的文字
240 ---- 菜单宽
360 ---- 菜单高（如果按钮多，以实际的按钮总高决定）
3 ---- 三列按钮
100 ---- 单个按钮宽
26 ---- 单个按钮高
10 ---- 按钮文字高

items ----- 表，三个字符串组成，
         "button" 表示按钮，
         "表格分栏" 按钮显示的命令名，
         "XDTB_TABLEDiv" 执行的命令函数名

(defun c:xdtb_menu_tbledit ()
(XD::ODCL:MENU
1
'(" 表格编辑工具集 " 240 360 3 100 26 10 20000)
'(("button" "表格分栏" "_XDTB_TABLEDiv")
("button" "表格拆分" "_XDTB_TABLEBrk")
("button" "表格合并" "_XDTB_TABLEMerge")
("button" "表复制列" "_XDTB_TABLECopyL")
("button" "表删除列" "_XDTB_TABLEDelLE")
("button" "表格替换" "_XDTB_Table_Replace")
("button" "表格对齐" "_XDTB_TABLE_ALIGN")
("button" "自动尺寸" "_XDTB_TABLEFITSIZE")
("button" "去除格式" "_XDTB_TABLEUNFORMAT")
)
)
(princ)
)

大家可以举一反三，修改中文和后面引号的英文，可以加入你喜欢的工具，你可以定制个快捷的简化命令，弹出你定制的菜单。
如果按下面的写，就是1列对话框，菜单宽120

表格编辑菜单-2.png

(defun c:xdtb_menu_tbledit ()
(XD::ODCL:MENU
1
'(" 表格编辑工具集 " 120 360 1 100 26 10 20000)
'(("button" "表格分栏" "_XDTB_TABLEDiv")
("button" "表格拆分" "_XDTB_TABLEBrk")
("button" "表格合并" "_XDTB_TABLEMerge")
("button" "表复制列" "_XDTB_TABLECopyL")
("button" "表删除列" "_XDTB_TABLEDelLE")
("button" "表格替换" "_XDTB_Table_Replace")
("button" "表格对齐" "_XDTB_TABLE_ALIGN")
("button" "自动尺寸" "_XDTB_TABLEFITSIZE")
("button" "去除格式" "_XDTB_TABLEUNFORMAT")
)
)
(princ)
)

关于下载或你自己的其他LISP文件，自动启动的方式，

1、在API环境下，编辑SYS目录下的xdrx.rx文件，一行一个LISP文件名

搜狗截图20180921150913.png

2、LISP文件保存到API或工具箱的LISP目录下面，这样启动CAD后，会自动加载这些LISP。

提醒，现在API和工具箱安装时候会删除目录，所以，你编辑的XDRX.RX文件，做个备份，以后更新API和工具箱后，拷贝回来。

uualice · 发表于 2019-5-28 14:28:18

可以用，谢谢分享！！！DIY 其乐无穷！！省得再去记那些快捷命令了，随点随用！！！

再见熊猫衣服 · 发表于 2018-9-18 12:18:32

有这个东西了，相当于菜鸟也可以自己制作属于私人的工具箱了，对吧？
可以自定义工具箱面板、快捷键，还可以自己添加其他lsp工具。

再见熊猫衣服 · 发表于 2018-9-18 12:20:11

AIP，希望早日支持浩辰CAD，国产CAD做的不错的，支持国产吧。。
让用浩辰的人，也可以用上晓东工具箱。

依然小小鸟 · 发表于 2018-9-18 12:36:34

再见熊猫衣服发表于 2018-9-18 12:20
AIP，希望早日支持浩辰CAD，国产CAD做的不错的，支持国产吧。。
让用浩辰的人，也可以用上晓东工具箱。

明经过来的支持你一下

newer · 发表于 2018-9-18 14:15:42

再见熊猫衣服发表于 2018-9-18 12:18
有这个东西了，相当于菜鸟也可以自己制作属于私人的工具箱了，对吧？
可以自定义工具箱面板、快捷键，还可 ...

说的好，能组织自己的工具了

hejiho · 发表于 2018-9-20 09:43:41

好的，谢谢分享方法

evayleung · 发表于 2018-9-20 09:52:36

支持支持，谢谢分享、、、

renyonghua2014 · 发表于 2018-9-22 08:34:41

楼主，我在开源函数库内怎么找不到这个函数啊？作者谁啊？函数：(XD::ODCL:MENU mode setup items)
能给我解惑吗？

newer · 发表于 2018-9-27 01:47:22

renyonghua2014 发表于 2018-9-22 08:34
楼主，我在开源函数库内怎么找不到这个函数啊？作者谁啊？函数：(XD::ODCL:MENU mode setup items)
能给我 ...

加载晓东通用LISP函数库

knife0930 · 发表于 2018-9-27 09:30:17

老大，能给一下函数 XD::ODCL:MENU吗？

renyonghua2014 · 发表于 2018-12-1 23:36:08

版主，这个菜单我的CAD上原来一直调不出来，今天重装了CAD，一下子出来了，但却在晓东工具箱右边显示一条窄窄的竖条，要拖拽出来才能使用，见图。版主看看是什么原因。

我个人觉得，函数的参数中应该加上输入坐标值。不知是否正确？

newer · 发表于 2018-12-2 00:05:34

renyonghua2014 发表于 2018-12-1 23:36
版主，这个菜单我的CAD上原来一直调不出来，今天重装了CAD，一下子出来了，但却在晓东工具箱右边显示一条窄 ...

出不来，你就反复点这个按钮

搜狗截图20181202000427.png

renyonghua2014 · 发表于 2018-12-2 00:15:36

谢谢版主，辛苦了。我试试。我建一个两列或一列的试试.

WZY5357 · 发表于 2018-12-6 15:56:48

谢谢楼主，很有用

137407536 · 发表于 2018-12-20 14:55:51

显示时间那块，能不能加多个设置只要点击按钮就会关闭？不点击依旧按设定的毫秒消失

帐号		自动登录	找回密码
密码			立即注册

[工具] 快速定制自己的“菜单” （二）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评

点评