田草博客

互联网田草博客


网友交流QQ群:11740834 需注明申请加入原因

微信 公众号:ByCAD

邮箱:tiancao1001x126.com
ByCAD,微信公众号
首页 | 普通 | 电脑 | AutoCAD | VB/VB.NET | FLash | 结构 | 建筑 | 电影 | BIM | 规范 | 软件 | ID
-随机-|-分布-
-博客论坛-|-﨣﨤﨧﨨-
-网站导航-|-规范下载-
-BelovedFLash欣赏-

用户登陆
用户:
密码:
 

站点日历
73 2024 - 3 48
     12
3456789
10111213141516
17181920212223
24252627282930
31


站点统计

最新评论



新版2010混凝土结构设计规范中预埋件的锚筋能选用HRB335吗? 临时建筑到底需不需要计算地震作用?
未知 添加右键菜单   [ 日期:2018-09-13 ]   [ 来自:本站原创 ]  HTML
按此在新窗口打开图片

空白右键菜单
Imports System
Imports Autodesk.AutoCAD.Windows
Imports Autodesk.AutoCAD.Runtime
<Assembly: CommandClass(GetType(Contextmenu.Contextmenu))> 
Namespace Contextmenu
    Public Class Contextmenu
        Implements Autodesk.AutoCAD.Runtime.IExtensionApplication
        Private contextMenu As ContextMenuExtension
        '初始化菜单 
        Public Sub Initialize() Implements IExtensionApplication.Initialize
            AddMenu()
        End Sub
        '移除菜单 
        Public Sub Terminate() Implements IExtensionApplication.Terminate
            Remove()
        End Sub
        '添加菜单 
        Public Sub AddMenu()
            Try
                contextMenu = New ContextMenuExtension()
                contextMenu.Title = "添加右键菜单测试_Title"
                Dim MenuItem As Autodesk.AutoCAD.Windows.MenuItem
                MenuItem = New Autodesk.AutoCAD.Windows.MenuItem("添加右键菜单测试")
                AddHandler MenuItem.Click, AddressOf CallbackOnClick
                contextMenu.MenuItems.Add(MenuItem)
                Autodesk.AutoCAD.ApplicationServices.Application.AddDefaultContextMenuExtension(contextMenu)
            Catch ex As system.exception
                MsgBox(ex.ToString)
            End Try
        End Sub
        '移除菜单 
        Public Sub Remove()
            Try
                If contextMenu IsNot Nothing Then
                    Autodesk.AutoCAD.ApplicationServices.Application.RemoveDefaultContextMenuExtension(contextMenu)
                End If
            Catch ex As System.Exception
                 MsgBox(ex.ToString)
            End Try
        End Sub
        '菜单事件
        Public Sub CallbackOnClick(ByVal sender As Object, ByVal e As EventArgs)
            MsgBox("添加右键菜单测试")
        End Sub

    End Class
End Namespace


选择对象右键菜单
Imports Autodesk.AutoCAD.ApplicationServices
Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Runtime
Imports Autodesk.AutoCAD.Windows
Imports System
Namespace ContextMenuApplication
    Public Class Commands
        Implements IExtensionApplication
        Public Sub Initialize() Implements IExtensionApplication.Initialize
            CountMenu.Attach()
        End Sub
        Public Sub Terminate() Implements IExtensionApplication.Terminate
            CountMenu.Detach()
        End Sub
        <CommandMethod("COUNT", CommandFlags.UsePickSet)> _
        Public Shared Sub CountSelection()
            Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
            Dim psr As PromptSelectionResult = ed.GetSelection()
            If psr.Status = PromptStatus.OK Then
                ed.WriteMessage(vbLf & "Selected {0} entities.", psr.Value.Count)
            End If

        End Sub
    End Class
    Public Class CountMenu
        Private Shared cme As ContextMenuExtension
        Public Shared Sub Attach()
            cme = New ContextMenuExtension()
            Dim mi As New MenuItem("Count")
            AddHandler mi.Click, AddressOf OnCount
            cme.MenuItems.Add(mi)
            Dim rxc As RXClass = Entity.GetClass(GetType(Entity))
            Application.AddObjectContextMenuExtension(rxc, cme)
        End Sub
        Public Shared Sub Detach()
            Dim rxc As RXClass = Entity.GetClass(GetType(Entity))
            Application.RemoveObjectContextMenuExtension(rxc, cme)
        End Sub
        Private Shared Sub OnCount(ByVal o As [Object], ByVal e As EventArgs)
            Dim doc As Document = Application.DocumentManager.MdiActiveDocument
            doc.SendStringToExecute("_.COUNT ", True, False, False)
        End Sub
    End Class
End Namespace


[本日志由 tiancao1001 于 2018-09-14 10:43 PM 编辑]


暂时没有评论
发表评论 - 不要忘了输入验证码哦!
作者: 用户:  密码:   注册? 验证:  防止恶意留言请输入问题答案:2*5=?  
评论:

禁止表情
禁止UBB
禁止图片
识别链接
识别关键字

字体样式 文字大小 文字颜色
插入粗体文本 插入斜体文本 插入下划线
左对齐 居中对齐 右对齐
插入超级链接 插入邮件地址 插入图像
插入 Flash 插入代码 插入引用
插入列表 插入音频文件 插入视频文件
插入缩进符合
点击下载按钮 下标 上标
水平线 简介分割标记
表  情
 
Tiancao Blog All Rights Reserved 田草博客 版权所有
Copyright ©