快速定制自己的菜单（三）-- 组管理工具快捷菜单

Lispboy · 发表于 2018-9-26 03:04:21

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

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

×

本帖最后由 Lispboy 于 2018-9-26 03:06 编辑

以 “组管理工具集” 工具集为例

=================================
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 ---- 菜单高（如果按钮多，以实际的按钮总高决定）
2 ----  二列按钮
100 ---- 单个按钮宽
26 ---- 单个按钮高
10 ---- 按钮文字高

items ----- 表，三个字符串组成，
         "button" 表示按钮，
         "组制作" 按钮显示的命令名，
         "XGroupMake" 执行的命令函数名

(defun c:xdtb_grp_edit ()
(XD::ODCL:MENU
1
'(" 组管理工具集 " 240 240 2 100 26 10 20000)
'(("button" "组制作" "_XGroupMake")
("button" "两组合并" "_XGroupMerge")
("button" "去组定义" "_XGroupDel")
("button" "组删实体" "_XGroupDelEnt")
("button" "组移实体" "_XGroupRemoveEnt")
("button" "组添实体" "_XGroupAddEnt")
("button" "组转选集" "_XDTB_GROUP2SS")
("button" "组转图块" "_XDTB_TxtGrpToBlk")
("button" "组选开关" "_XGroupOnOf")
("button" "临时关组" "_XGroupSOnOf")
("button" "组管理器" "_GROUP")
)
)
(princ)
)

longer88 · 发表于 2018-9-26 07:38:51

感谢感谢！

cfc123456 · 发表于 2018-9-26 10:36:13

感谢提供！

sachindkini · 发表于 2018-9-26 13:38:21

Dear Sir,
Very Interesting Thanks for Sharing
Can u Share (XD::ODCL:MENU) for study
i search at website but not found any where

lixiaolin · 发表于 2018-9-26 13:43:11

感谢感谢！

newer · 发表于 2018-9-26 14:24:19

sachindkini 发表于 2018-9-26 13:38
Dear Sir,
Very Interesting Thanks for Sharing
Can u Share (XD::ODCL:MENU) for study

加载最新版本的API里面的晓东通用LISP函数库，就可以使用了。

czm980251042 · 发表于 2018-9-26 14:55:40

这个很实用，不怕命令长了

abenmao168 · 发表于 2018-9-26 15:14:12

这个不错可以自己diy一下

evayleung · 发表于 2018-9-27 00:17:55

谢谢分享这好程序

的大 · 发表于 2018-10-10 11:08:58

谢谢，很有用啊

changhui1122 · 发表于 2018-10-10 15:15:45

厉害了，专属制作。

tht-0 · 发表于 2018-10-15 10:20:29

请教比如用这个写成 "菜单.lsp"，放到硬盘“CAD工具”这个目录里，并在"\CAD工具\lsp\" 目录下存放CAD工具LSP文件，可以在 "菜单.lsp"这个菜单文件里设置每个命令是"\CAD工具\lsp\" 目录下那个文件，并自动加载执行这个命令吗？

不知道我的问题说明白了吗？？

Lisphk · 发表于 2018-10-15 11:15:44

tht-0 发表于 2018-10-15 10:20
请教比如用这个写成 "菜单.lsp"，放到硬盘“CAD工具”这个目录里，并在"\CAD工具\lsp\" 目录下存放CAD工具L ...

1、菜单是菜单，你点击按钮后，它会去执行一个命令或者函数，而这个函数是否已经加载，这个菜单不管。
2、你要保证这些工具和函数加载。加载的方法很多，如果你用XDRX API，因为API是自动加载的，API加载的时候会去找SYS目录下XDRX.RX文件，自动加载里面列的LISP文件，所以你可以把你的LISP文件名写到这个XDRX.RX文件里面，就自动加载了。

tht-0 · 发表于 2018-10-15 21:25:49

明白了，谢谢您帮我解答！明白如何用了。
来自: 微社区

xhuotc · 发表于 2019-12-8 21:51:03

程序是不会写，这个菜单可以玩玩

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

[工具] 快速定制自己的菜单（三）-- 组管理工具快捷菜单

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

点评

点评