设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1594|回复: 52

给论坛插件定制自己的快捷非模式对话框菜单(一)

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2018-9-18 00:29:39 | 显示全部楼层 |阅读模式
  • 插件名称 : 拷贝工具
  • 作  者 : Lispboy
  • 运行环境 :XDRX API OpenDCL 晓东工具箱 
  • 发布时间 :2018-09-18
  • 命令名称 :xdtb_menu_copytools
  • 插件介绍 :给论坛插件增加快捷非模式对话框菜单
  • 备  注 : (点击图片可以放大)
(点击图片可以放大)

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

插件详细内容

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

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

x
本帖最后由 newer 于 2018-9-18 00:47 编辑

以 “拷贝移动工具集” 工具集为例

=================================
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_FreeCopy" 执行的命令函数名

  1. (defun c:xdtb_menu_copytools ()
  2.   (XD::ODCL:MENU
  3.     1
  4.     '(" 拷贝移动工具集 " 240 360 3 100 26 10 20000)
  5.     '(("button" "自由拷贝" "XDTB_FreeCopy")
  6.       ("button" "增强拷贝" "_XDTB_ECopy")
  7.       ("button" "间距拷贝" "_XDTB_GCopy")
  8.       ("button" "随块拷贝" "_XDTB_CopyWithBlk")
  9.       ("button" "旋转拷贝" "_XDTB_RotCopy")
  10.       ("button" "顶点拷贝" "_XDTB_VertCopy")
  11.       ("button" "区域拷贝" "_XDTB_RegionCOPY")
  12.       ("button" "自由移动" "XDTB_FreeMove")
  13.       ("button" "增强移位" "_XDTB_XMove")
  14.      )
  15.   )
  16.   (princ)
  17. )


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

搜狗截图20180918003311.png

  1. (defun c:xdtb_menu_copytools ()
  2.   (XD::ODCL:MENU
  3.     1
  4.     '(" 拷贝移动工具集 " 180 360 2 100 26 10 20000)
  5.     '(("button" "自由拷贝" "XDTB_FreeCopy")
  6.       ("button" "增强拷贝" "_XDTB_ECopy")
  7.       ("button" "间距拷贝" "_XDTB_GCopy")
  8.       ("button" "随块拷贝" "_XDTB_CopyWithBlk")
  9.       ("button" "旋转拷贝" "_XDTB_RotCopy")
  10.       ("button" "顶点拷贝" "_XDTB_VertCopy")
  11.       ("button" "区域拷贝" "_XDTB_RegionCOPY")
  12.       ("button" "自由移动" "XDTB_FreeMove")
  13.       ("button" "增强移位" "_XDTB_XMove")
  14.      )
  15.   )
  16.   (princ)
  17. )


关于下载或你自己的其他LISP文件,自动启动的方式,1、在API环境下,编辑SYS目录下的xdrx.rx文件,一行一个LISP文件名
2、
LISP文件保存到API或工具箱的LISP目录下面,这样启动CAD后,会自动加载这些LISP。

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




评分

参与人数 1D豆 +5 收起 理由
renyonghua2014 + 5 好主题奖!

查看全部评分

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

已领礼包: 418个

财富等级: 日进斗金

发表于 2018-9-18 01:34:02 | 显示全部楼层
赞!!非常感谢楼主。我平时最常用的也就20个左右,定制适合自己的插件才是最好的,
一直没有时间整,本来想利用国庆假抽空做一下,没想到版主先给了框架,真心感谢。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1227个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 3343个

财富等级: 富可敌国

发表于 2018-9-18 09:02:56 | 显示全部楼层
能否开放XD::ODCL:MENU源码,3q

点评

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

使用道具 举报

已领礼包: 127个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-9-18 10:25:09 | 显示全部楼层
lj524917100 发表于 2018-9-18 09:02
能否开放XD::ODCL:MENU源码,3q

加载 晓东通用LISP函数库 就可以使用

点评

我就是加载LISP函数库有问题,安装晓东工具箱从来没有成功过,系统win7x64,cad2014,一加载lisp函数库就提示:晓东通用LISP函数库Build 2018.09.18加载完毕... Application Error: 93 :- Automation 错误。 加载应  详情 回复 发表于 2018-9-18 10:47
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 418个

财富等级: 日进斗金

发表于 2018-9-18 10:26:57 | 显示全部楼层
楼主,我执行后怎么菜单不出现啊?是我哪儿整的不对??

点评

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-9-18 10:45:43 | 显示全部楼层
renyonghua2014 发表于 2018-9-18 10:26
楼主,我执行后怎么菜单不出现啊?是我哪儿整的不对??

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

使用道具 举报

已领礼包: 3343个

财富等级: 富可敌国

发表于 2018-9-18 10:47:40 | 显示全部楼层
newer 发表于 2018-9-18 10:25
加载 晓东通用LISP函数库 就可以使用

我就是加载LISP函数库有问题,安装晓东工具箱从来没有成功过,系统win7x64,cad2014,一加载lisp函数库就提示:晓东通用LISP函数库Build 2018.09.18加载完毕...
Application Error: 93 :- Automation 错误。 加载应用程序时出现问题

点评

出来这个提示 晓东通用LISP函数库Build 2018.09.18加载完毕...,一般来说就加载成了, 你看下函数是否有定义,命令行输入:!xd::begin 回车  详情 回复 发表于 2018-9-18 11:26
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 418个

财富等级: 日进斗金

发表于 2018-9-18 10:52:21 | 显示全部楼层
楼主,谢回复。电脑有装2018-9-17 最新API。我再检查看看问题出在哪儿了。

点评

你可以看下 xd::odcl:menu 是否定义了  详情 回复 发表于 2018-9-18 11:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-9-18 11:26:14 | 显示全部楼层
lj524917100 发表于 2018-9-18 10:47
我就是加载LISP函数库有问题,安装晓东工具箱从来没有成功过,系统win7x64,cad2014,一加载lisp函数库就 ...

出来这个提示 晓东通用LISP函数库Build 2018.09.18加载完毕...,一般来说就加载成了,
你看下函数是否有定义,命令行输入:!xd::begin 回车

点评

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

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2018-9-18 11:27:02 | 显示全部楼层
renyonghua2014 发表于 2018-9-18 10:52
楼主,谢回复。电脑有装2018-9-17 最新API。我再检查看看问题出在哪儿了。

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

使用道具 举报

已领礼包: 3343个

财富等级: 富可敌国

发表于 2018-9-18 14:27:49 | 显示全部楼层
newer 发表于 2018-9-18 11:26
出来这个提示 晓东通用LISP函数库Build 2018.09.18加载完毕...,一般来说就加载成了,
你看下函数是否有 ...

!xd::begin 显示nil

点评

执行下 (vl-load-com) (load "xd-lisp-lib.vlx") 看看还有错误提示没,如果还有,换个CAD的安装盘重新装下,别用那些简化的什么版本。或者你装个其他版本的CAD,比如2019,2012装下试试  详情 回复 发表于 2018-9-18 14:50
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 20个

财富等级: 恭喜发财

发表于 2018-9-18 14:50:19 | 显示全部楼层
本帖最后由 marting 于 2018-9-18 14:51 编辑

执行下
(vl-load-com)
(load "xd-lisp-lib.vlx")

看看还有错误提示没,如果还有,换个CAD的安装盘重新装下,别用那些简化的什么版本。或者你装个其他版本的CAD,比如2019,2012装下试试最重要的,你一定要用最新版本的API,通用LISP函数库

点评

命令: (vl-load-com) 命令: (load "xd-lisp-lib.vlx") 晓东通用LISP函数库Build 2018.09.18加载完毕... 执行!xd::begin 还是显示 nil  详情 回复 发表于 2018-9-18 15:00
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3343个

财富等级: 富可敌国

发表于 2018-9-18 15:00:48 | 显示全部楼层
marting 发表于 2018-9-18 14:50
执行下
(vl-load-com)
(load "xd-lisp-lib.vlx")

命令: (vl-load-com)
命令: (load "xd-lisp-lib.vlx")
晓东通用LISP函数库Build 2018.09.18加载完毕...
执行!xd::begin 还是显示 nil

点评

按marting说的做完,!XD::List:Even 下这个,看有定义没 命令: !XD::List:Even #  详情 回复 发表于 2018-9-18 16:12
没 automation 错误提示了?  详情 回复 发表于 2018-9-18 16:02
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-3-3 00:04 , Processed in 0.092783 second(s), 43 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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