【原创】类似天正屏幕菜单效果======开源

zjh2785

有更新版本，请各位移步
【源码】仿天正屏幕菜单（更新）

发个贴吧，顺便等大神回答我刚发的请求贴，闲来没事做了个类似天正的屏幕菜单，类已经封装好了，见附件
使用的时候直接new一个MyPanel就可以用了。
但目前获取资源中的图标还在做，前面做的一个好像在CAD中不能用，注释掉了。

下面是最终效果：



以下是具体步骤，适合新手
========================================
第一步：用Visual Studio新建一个CAD插件（基础的命令创建方法就不阐述了）
第二部：添加自定义控件类到项目中（下面附件有文件）


第三步：文件-添加-新项目，选择VisualC#下的windows，在右侧选择windows 窗体控件库，项目名称为DockDrag
双击控件进入到代码，实例化一个MyPanel ，在Load下直接添加需要加入的命令，

第四步：添加代码



由于自己本人使用，没有写什么注释，看不懂的新手朋友可以发帖提问，我也是新手，我能力范围内的我会经全力解答。下那个部分压缩吧就可以了
=====================================================================
=====================================================================
=====================================================================

有些朋友说东西不全，这样好了，我把所有其他的代码全部提出来，只留下需要用到的，剩下的代码在窗口中使用就行了
顺便把图标处理好了：


使用方法：

2. using System;
   
3. using System. Drawing;
   
4. using System. Windows. Forms;
   
5. using Autodesk. AutoCAD. Windows;
   
6. using Autodesk. AutoCAD. ApplicationServices;
   
7. using Autodesk. AutoCAD. Runtime;
   
8. using Autodesk. AutoCAD. Geometry;
   
9. using DotNetARX;
   
10. using System. Collections. Generic;
    
11. using System. Runtime. InteropServices;
    
12. 
    
13. namespace CADToolBox
    
14. {
    
15.     public partial class DockDrag : UserControl
    
16.     {
    
17.         //初始化
    
18.         SimplePanel sp;
    
19.         public DockDrag ( )
    
20.         {
    
21.             InitializeComponent( );
    
22.             sp = new SimplePanel(this, Resource1.PanelDefaultIcon, Resource1.PanelClickedIcon );
    
23.             sp. SubButtonClick += new EventHandler(sp_SubButtonClick);
    
24.             sp. SubButtonMouseLeave += new EventHandler(sp_SubButtonMouseLeave);
    
25.         }
    
26. 
    
27.         //因为单击命令后系统焦点在工具条上，
    
28.         //所以执行完命令之后鼠标回到CAD绘图区会出现不能响应的现行，
    
29.         //因此需要手动把焦点设置到CAD
    
30.         [DllImport("user32.dll")]
    
31.         private static extern bool SetForegroundWindow (IntPtr hWnd);
    
32.         private void sp_SubButtonMouseLeave (object sender, EventArgs e)
    
33.         {
    
34.             SimpleButton btn = sender as SimpleButton;
    
35.             if (btn != null)
    
36.             {
    
37.                 Document doc = Autodesk. AutoCAD. ApplicationServices. Application. DocumentManager. MdiActiveDocument;
    
38.                 SetForegroundWindow(doc. Window. Handle);
    
39.             }
    
40.         }
    
41. 
    
42.         //执行命令
    
43.         private void sp_SubButtonClick (object sender, EventArgs e)
    
44.         {
    
45.             SimpleButton btn = sender as SimpleButton;
    
46.             if (btn != null)
    
47.             {
    
48.                 Document doc = Autodesk. AutoCAD. ApplicationServices. Application. DocumentManager. MdiActiveDocument;
    
49.                 doc. SendStringToExecute(btn.Tag.ToString() + "\n", true, false, true);
    
50.             }
    
51.         }
    
52. 
    
53.         //添加命令
    
54.         private void DockDrag_Load (object sender, EventArgs e)
    
55.         {
    
56.             IntPtr index = sp. AddItem("系统设置");
    
57.             sp. AddItem(index, "批量打印", "CNJ_BatchPlot", Resource1.IM_BATCHPLOT);
    
58.             sp. AddItem(index, "插参照块", "CNJ_InsertBlocks", Resource1. IM_EASYBLOCK);
    
59.             sp. AddItem(index, "绘制直线", "Line", Resource1. IM_EASYBLOCK);
    
60.             sp. AddItem(index, "标高标注", "BG", Resource1. IM_EASYBLOCK);
    
61.             sp. AddItem(index, "坡度标注", "PD", Resource1. IM_EASYBLOCK);
    
62.             index = sp. AddItem("常用命令");
    
63.             sp. AddItem(index, "绘等高线", "DGX", Resource1. IM_EASYBLOCK);
    
64.             sp. AddItem(index, "标等高线", "bdgx", Resource1. IM_EASYBLOCK);
    
65.             sp. AddItem(index, "超级偏移", "SO", Resource1. IM_EASYBLOCK);
    
66.              index = sp. AddItem("系统设置");
    
67.             sp. AddItem(index, "批量打印", "CNJ_BatchPlot", Resource1. IM_BATCHPLOT);
    
68.             sp. AddItem(index, "插参照块", "CNJ_InsertBlocks", Resource1. IM_EASYBLOCK);
    
69.             sp. AddItem(index, "绘制直线", "Line", Resource1. IM_EASYBLOCK);
    
70.             sp. AddItem(index, "标高标注", "BG", Resource1. IM_EASYBLOCK);
    
71.             sp. AddItem(index, "坡度标注", "PD", Resource1. IM_EASYBLOCK);
    
72.             index = sp. AddItem("常用命令");
    
73.             sp. AddItem(index, "绘等高线", "DGX", Resource1. IM_EASYBLOCK);
    
74.             sp. AddItem(index, "标等高线", "bdgx", Resource1. IM_EASYBLOCK);
    
75.             sp. AddItem(index, "超级偏移", "SO", Resource1. IM_EASYBLOCK);
    
76.              index = sp. AddItem("系统设置");
    
77.             sp. AddItem(index, "批量打印", "CNJ_BatchPlot", Resource1. IM_BATCHPLOT);
    
78.             sp. AddItem(index, "插参照块", "CNJ_InsertBlocks", Resource1. IM_EASYBLOCK);
    
79.             sp. AddItem(index, "绘制直线", "Line", Resource1. IM_EASYBLOCK);
    
80.             sp. AddItem(index, "标高标注", "BG", Resource1. IM_EASYBLOCK);
    
81.             sp. AddItem(index, "坡度标注", "PD", Resource1. IM_EASYBLOCK);
    
82.             index = sp. AddItem("常用命令");
    
83.             sp. AddItem(index, "绘等高线", "DGX", Resource1. IM_EASYBLOCK);
    
84.             sp. AddItem(index, "标等高线", "bdgx", Resource1. IM_EASYBLOCK);
    
85.             sp. AddItem(index, "超级偏移", "SO", Resource1. IM_EASYBLOCK);
    
86.         }
    
87.     }
    
88. }
    

using System;<br /> using System. Drawing;<br /> using System. Windows. Forms;<br /> using Autodesk. <a href="http://bbs.mjtd.com/forum-41-1.html" target="_blank" class="relatedlink">AutoCAD</a>. Windows;<br /> using Autodesk. AutoCAD. ApplicationServices;<br /> using Autodesk. AutoCAD. Runtime;<br /> using Autodesk. AutoCAD. Geometry;<br /> using DotNetARX;<br /> using System. Collections. Generic;<br /> using System. Runtime. InteropServices;<br /> <br /> namespace CADToolBox<br /> {<br />     public partial class DockDrag : UserControl<br />     {<br />         //初始化<br />         SimplePanel sp;<br />         public DockDrag ( )<br />         {<br />             InitializeComponent( );<br />             sp = new SimplePanel(this, Resource1.PanelDefaultIcon, Resource1.PanelClickedIcon );<br />             sp. SubButtonClick += new EventHandler(sp_SubButtonClick);<br />             sp. SubButtonMouseLeave += new EventHandler(sp_SubButtonMouseLeave);<br />         }<br /> <br />         //因为单击命令后系统焦点在<a href="http://bbs.mjtd.com/forum-6-1.html" target="_blank" class="relatedlink">工具</a>条上，<br />         //所以执行完命令之后鼠标回到CAD绘图区会出现不能响应的现行，<br />         //因此需要手动把焦点设置到CAD<br />         [DllImport("user32.dll")]<br />         private static extern bool SetForegroundWindow (IntPtr hWnd);<br />         private void sp_SubButtonMouseLeave (object sender, EventArgs e)<br />         {<br />             SimpleButton btn = sender as SimpleButton;<br />             if (btn != null)<br />             {<br />                 Document doc = Autodesk. AutoCAD. ApplicationServices. Application. DocumentManager. MdiActiveDocument;<br />                 SetForegroundWindow(doc. Window. Handle);<br />             }<br />         }<br /> <br />         //执行命令<br />         private void sp_SubButtonClick (object sender, EventArgs e)<br />         {<br />             SimpleButton btn = sender as SimpleButton;<br />             if (btn != null)<br />             {<br />                 Document doc = Autodesk. AutoCAD. ApplicationServices. Application. DocumentManager. MdiActiveDocument;<br />                 doc. SendStringToExecute(btn.Tag.ToString() + "\n", true, false, true);<br />             }<br />         }<br /> <br />         //添加命令<br />         private void DockDrag_Load (object sender, EventArgs e)<br />         {<br />             IntPtr index = sp. AddItem("系统设置");<br />             sp. AddItem(index, "批量打印", "CNJ_BatchPlot", Resource1.IM_BATCHPLOT);<br />             sp. AddItem(index, "插参照块", "CNJ_InsertBlocks", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "绘制直线", "Line", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "标高标注", "BG", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "坡度标注", "PD", Resource1. IM_EASYBLOCK);<br />             index = sp. AddItem("常用命令");<br />             sp. AddItem(index, "绘等高线", "DGX", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "标等高线", "bdgx", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "超级偏移", "SO", Resource1. IM_EASYBLOCK);<br />              index = sp. AddItem("系统设置");<br />             sp. AddItem(index, "批量打印", "CNJ_BatchPlot", Resource1. IM_BATCHPLOT);<br />             sp. AddItem(index, "插参照块", "CNJ_InsertBlocks", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "绘制直线", "Line", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "标高标注", "BG", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "坡度标注", "PD", Resource1. IM_EASYBLOCK);<br />             index = sp. AddItem("常用命令");<br />             sp. AddItem(index, "绘等高线", "DGX", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "标等高线", "bdgx", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "超级偏移", "SO", Resource1. IM_EASYBLOCK);<br />              index = sp. AddItem("系统设置");<br />             sp. AddItem(index, "批量打印", "CNJ_BatchPlot", Resource1. IM_BATCHPLOT);<br />             sp. AddItem(index, "插参照块", "CNJ_InsertBlocks", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "绘制直线", "Line", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "标高标注", "BG", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "坡度标注", "PD", Resource1. IM_EASYBLOCK);<br />             index = sp. AddItem("常用命令");<br />             sp. AddItem(index, "绘等高线", "DGX", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "标等高线", "bdgx", Resource1. IM_EASYBLOCK);<br />             sp. AddItem(index, "超级偏移", "SO", Resource1. IM_EASYBLOCK);<br />         }<br />     }<br /> }<br />

=======================================

代码中获取图标的方法我再啰嗦几句， 简单说就是
1  在工程中新建一个资源文件，
2  把需要加入到资源中的图标全部添加进去（注意，上面所用的全是ICO格式的），系统会自动生成相关的代码  
3  然后就可以使用Resource1.图标名 来直接访问资源了，

PS.  最重要的一点，要把所有资源的 生成操作 选项设置成 嵌入的资源，  否则会提示实例为NULL;

zjh2785

zixuan203344 发表于 2018-1-30 09:22
建议：多层级菜单用缩进表示层级，或者前面加层级符号的三角形或者加号，当然也可以用颜色区分，不过没缩进 ...

嗯 其实是可以支持你所说的那样的，在MyPanel的构造函数里边已经有了的  只需要在资源里边把图片加进去可以的

1.         
   
2. public MyPanel (Control parent)
   
3.         {
   
4.             this. Parent = parent;
   
5.             this. Dock = DockStyle. Fill;
   
6.             Items = new List<Item>( );
   
7.             m_defaultClickImage = DockDrag. GetSource("CADToolBox.Resources.Icon1.ico");
   
8.             m_defaultNoClickImage = DockDrag. GetSource("CADToolBox.Resources.Icon2.ico")
   
9.             this. ClientSizeChanged += new EventHandler(this. MyPanel_ClientSizeChanged);
   
10.             this. MouseWheel += new MouseEventHandler(this. MyPanel_MouseWheel);
    
11.         }
    

        <br /> public MyPanel (Control parent)<br />         {<br />             this. Parent = parent;<br />             this. Dock = DockStyle. Fill;<br />             Items = new List<Item>( );<br />             m_defaultClickImage = DockDrag. GetSource("CADToolBox.Resources.Icon1.ico");<br />             m_defaultNoClickImage = DockDrag. GetSource("CADToolBox.Resources.Icon2.ico")<br />             this. ClientSizeChanged += new EventHandler(this. MyPanel_ClientSizeChanged);<br />             this. MouseWheel += new MouseEventHandler(this. MyPanel_MouseWheel);<br />         }<br />

zjh2785

j15tty 发表于 2018-4-19 22:11
楼主，测试后发现面板不能移动，也没有关闭按钮，这个该如何修改

你是不是设置的问题，  面板的风格有下面这些，
public enum PaletteSetStyles
    {
        ShowAutoHideButton = 2,
        ShowPropertiesMenu = 4,
        ShowCloseButton = 8,//显示关闭按钮
        NameEditable = 16,
        Snappable = 32,
        ShowTabForSingle = 64,
        UsePaletteNameAsTitleForSingle = 128,
        SingleRowDock = 512,
        Notify = 1024,
        SingleRowNoVertResize = 2048,
        SingleColDock = 4096,
    }

zjh2785

j15tty 发表于 2018-4-21 12:14
是我CAD 是精简版缘故。还有请问一下，如果要做成像26楼那样将tab放置在左边，需要怎么设置？

如果要直接拿我的那个代码该，该动量很大，虽然原理都一样，但这完全是两回事。动态在左侧增加按钮，根据按钮数量确定按钮的位置，然后为添加事件、关联数据。个人看法
不是设置的问题

zixuan203344

建议：多层级菜单用缩进表示层级，或者前面加层级符号的三角形或者加号，当然也可以用颜色区分，不过没缩进看着直观

pengfei2010

不错不错，但好像少了点什么啊，没有子菜单吗

土土木木人

不错不错   

腾龙

想知道你用的VS是那一版的， 我安装了VS2017不支持CAD2010~2018开发工具包

clinber

却很多内容啊

zjh2785

腾龙 发表于 2018-1-31 22:18
想知道你用的VS是那一版的， 我安装了VS2017不支持CAD2010~2018开发工具包

我用的是2010

langzhi

谢谢大神分享。

dong20030432

不知道有没有哪个大神知道如何使用VBA直接实现屏幕菜单的效果？