设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2142|回复: 17

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

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2018-9-26 03:04:21 | 显示全部楼层 |阅读模式
  • 插件名称 : 组管理工具
  • 作  者 : Lispboy
  • 运行环境 :XDRX API OpenDCL 晓东工具箱 
  • 发布时间 :2018-09-26
  • 命令名称 :xdtb_grp_edit
  • 插件介绍 :组管理工具
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱XDRX API 的插件,请下载最新版本的 晓东工具箱XDRX API开发环境 一键安装
2、在ACAD中如何加载插件,请看 论坛插件使用方法
3、如果您有要求需要定制插件,请到 编程申请 论坛发帖求助

插件详细内容

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

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

x
本帖最后由 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" 执行的命令函数名

  1. (defun c:xdtb_grp_edit ()
  2.   (XD::ODCL:MENU
  3.     1
  4.     '(" 组管理工具集 " 240 240 2 100 26 10 20000)
  5.     '(("button" "组 制 作" "_XGroupMake")
  6.       ("button" "两组合并" "_XGroupMerge")
  7.       ("button" "去组定义" "_XGroupDel")
  8.       ("button" "组删实体" "_XGroupDelEnt")
  9.       ("button" "组移实体" "_XGroupRemoveEnt")
  10.       ("button" "组添实体" "_XGroupAddEnt")
  11.       ("button" "组转选集" "_XDTB_GROUP2SS")
  12.       ("button" "组转图块" "_XDTB_TxtGrpToBlk")
  13.       ("button" "组选开关" "_XGroupOnOf")
  14.       ("button" "临时关组" "_XGroupSOnOf")
  15.       ("button" "组管理器" "_GROUP")
  16.      )
  17.   )
  18.   (princ)
  19. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1227个

财富等级: 财源广进

发表于 2018-9-26 07:38:51 | 显示全部楼层
感谢感谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 3529个

财富等级: 富可敌国

发表于 2018-9-26 10:36:13 | 显示全部楼层
感谢提供!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1970个

财富等级: 堆金积玉

发表于 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  

点评

加载最新版本的API里面的 晓东通用LISP函数库,就可以使用了。  详情 回复 发表于 2018-9-26 14:24
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 12个

财富等级: 恭喜发财

发表于 2018-9-26 13:43:11 | 显示全部楼层
感谢感谢!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 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函数库,就可以使用了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-9-26 14:55:40 | 显示全部楼层
这个很实用,不怕命令长了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 233个

财富等级: 日进斗金

发表于 2018-9-26 15:14:12 | 显示全部楼层
这个不错 可以自己diy一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1932个

财富等级: 堆金积玉

发表于 2018-9-27 00:17:55 | 显示全部楼层
谢谢分享这好程序
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3个

财富等级: 恭喜发财

发表于 2018-10-10 11:08:58 | 显示全部楼层
谢谢,很有用啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2018-10-10 15:15:45 | 显示全部楼层
厉害了,专属制作。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-10-15 10:20:29 | 显示全部楼层
请教比如用这个写成 "菜单.lsp",放到硬盘“CAD工具”这个目录里,并在"\CAD工具\lsp\" 目录下存放CAD工具LSP文件,可以在 "菜单.lsp"这个菜单文件里设置每个命令是"\CAD工具\lsp\" 目录下那个文件,并自动加载执行这个命令吗?

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

点评

1、菜单是菜单,你点击按钮后,它会去执行一个命令或者函数,而这个函数是否已经加载,这个菜单不管。 2、你要保证这些工具和函数加载。加载的方法很多,如果你用XDRX API,因为API是自动加载的,API加载的时候会去  详情 回复 发表于 2018-10-15 11:15
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 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文件里面,就自动加载了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-10-15 21:25:49 来自手机 | 显示全部楼层
明白了,谢谢您帮我解答!明白如何用了。
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2019-12-8 21:51:03 | 显示全部楼层
程序是不会写,这个菜单可以玩玩
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2021-9-22 00:44 , Processed in 1.918778 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表