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

Lispboy

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

=================================
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. )
    

(defun c:xdtb_menu_copytools ()<br />   (XD::ODCL:MENU<br />     1<br />     '(" 拷贝移动工具集 " 240 360 3 100 26 10 20000)<br />     '(("button" "自由拷贝" "XDTB_FreeCopy")<br />       ("button" "增强拷贝" "_XDTB_ECopy")<br />       ("button" "间距拷贝" "_XDTB_GCopy")<br />       ("button" "随块拷贝" "_XDTB_CopyWithBlk")<br />       ("button" "旋转拷贝" "_XDTB_RotCopy")<br />       ("button" "顶点拷贝" "_XDTB_VertCopy")<br />       ("button" "区域拷贝" "_XDTB_RegionCOPY")<br />       ("button" "自由移动" "XDTB_FreeMove")<br />       ("button" "增强移位" "_XDTB_XMove")<br />      )<br />   )<br />   (princ)<br /> )<br />

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

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. )
    

(defun c:xdtb_menu_copytools ()<br />   (XD::ODCL:MENU<br />     1<br />     '(" 拷贝移动工具集 " 180 360 2 100 26 10 20000)<br />     '(("button" "自由拷贝" "XDTB_FreeCopy")<br />       ("button" "增强拷贝" "_XDTB_ECopy")<br />       ("button" "间距拷贝" "_XDTB_GCopy")<br />       ("button" "随块拷贝" "_XDTB_CopyWithBlk")<br />       ("button" "旋转拷贝" "_XDTB_RotCopy")<br />       ("button" "顶点拷贝" "_XDTB_VertCopy")<br />       ("button" "区域拷贝" "_XDTB_RegionCOPY")<br />       ("button" "自由移动" "XDTB_FreeMove")<br />       ("button" "增强移位" "_XDTB_XMove")<br />      )<br />   )<br />   (princ)<br /> )<br />

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

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

renyonghua2014

赞！！非常感谢楼主。我平时最常用的也就20个左右，定制适合自己的插件才是最好的，
一直没有时间整，本来想利用国庆假抽空做一下，没想到版主先给了框架，真心感谢。

longer88

非常感谢。。。

lj524917100

能否开放XD::ODCL:MENU源码，3q

spp_wall

不错！！！！不错！！！

newer

lj524917100 发表于 2018-9-18 09:02
能否开放XD::ODCL:MENU源码，3q

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

renyonghua2014

楼主，我执行后怎么菜单不出现啊？是我哪儿整的不对？？

newer

renyonghua2014 发表于 2018-9-18 10:26
楼主，我执行后怎么菜单不出现啊？是我哪儿整的不对？？

以后遇到这样的，就去安装最新的XDRX API 或者 晓东通用LISP函数库

lj524917100

newer 发表于 2018-9-18 10:25
加载 晓东通用LISP函数库 就可以使用

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

renyonghua2014

楼主，谢回复。电脑有装2018-9-17 最新API。我再检查看看问题出在哪儿了。

newer

lj524917100 发表于 2018-9-18 10:47
我就是加载LISP函数库有问题，安装晓东工具箱从来没有成功过，系统win7x64，cad2014，一加载lisp函数库就 ...

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

newer

renyonghua2014 发表于 2018-9-18 10:52
楼主，谢回复。电脑有装2018-9-17 最新API。我再检查看看问题出在哪儿了。

最新的API是9月18日的，你可以看下 xd::odcl:menu 是否定义了

lj524917100

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

!xd::begin 显示nil

marting

lj524917100 发表于 2018-9-18 14:27
!xd::begin 显示nil

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

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

lj524917100

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