用VB.NET实现AUTOCAD中鼠标选中后显示事件

主要用到document中ImpliedSelectionChanged事件

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.DatabaseServices
Imports Autodesk.AutoCAD.EditorInput
Imports Autodesk.AutoCAD.Geometry
Imports Autodesk.AutoCAD.Runtime

Public Class Class1

Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim modalForm As ModalForm = New ModalForm()

<CommandMethod("TestOn")> _
Public Sub MyTestOn()
AddHandler acDoc.ImpliedSelectionChanged, New EventHandler(AddressOf doc_ImpliedSelectionChanged)

End Sub

<CommandMethod("TestOff")> _
Public Sub MyTestOff()
RemoveHandler acDoc.ImpliedSelectionChanged, New EventHandler(AddressOf doc_ImpliedSelectionChanged)

End Sub

Private Sub doc_ImpliedSelectionChanged(ByVal sender As Object, ByVal e As EventArgs)
Dim db As Database = HostApplicationServices.WorkingDatabase
Dim pkf As PromptSelectionResult = ed.SelectImplied()

If (pkf.Status <> PromptStatus.OK) Then
ed.WriteMessage(vbCrLf & "无选择" & vbCrLf)
Return
End If

Dim objIds() As ObjectId = pkf.Value.GetObjectIds()
ed.WriteMessage(vbCrLf & "选择对象" & objIds.Count & vbCrLf)

End Sub

End Class

用VB.NET实现AUTOCAD中鼠标选中后显示事件相关推荐

【ubuntu】vim中鼠标选中时变成可视模式，不能复制的解决方法
1.问题描述配置好vim后,打开一个文件,鼠标选中文本时,选中的内容变成可视模式. 可视模式,不能将选中内容复制到剪切板 2.解决方法在用户根目录下,打开 .vimrc ~$ vi .vimrc ...
鼠标选中后会自动删除文件的现状及解决方案
Window10系统,鼠标选中文件后自动删除文件发生的问题解决的方法结果检证发生的问题目前系统重装完成之后会出现鼠标选中文件会自动删除的状况,有疑问的地方是拔掉外接的机械键盘和鼠标单单用笔记 ...
获取浏览器中鼠标选中的文本内容
如果你在浏览器中安装了翻译插件的话,控制台可能会输出你选中的文本内容,那么这是如何做到的呢? 直接查看他的源码,主要是使用了window.getSelection 这个属性所以我们也可以仿照着写一个 ...
Xshell中鼠标选中内容自动换行ctrl+c解决办法
之前一直用Xshell,后来电脑死机了,不得不重装了系统,再次安装qtranslate发现和xshell有冲突,开启划词翻译后,鼠标左键选中内容后,都会在xshell终端展示为ctrl+c,自动换行了 ...
win7下获取资源管理器中鼠标选中文件路径
IUIAutomation IUIAutomationElement GetCurrentPropertyValue http://msdn.microsoft.com/en-us/library/e ...
html 中加小手,html中鼠标如何设置显示小手状？
材料/工具:css 1.打开前端开发软件,新建一个html代码页面 2.在新建的html代码页面上找到 ,在这个标签里创建一个标签,a案例中使用的是. 代码: 大家好,鼠标放到我身上就可看到效果 3. ...
vb.net获取服务器中所有数据库名称显示在list,vb listview显示数据库内容,该怎么解决...
当前位置:我的异常网» VB » vb listview显示数据库内容,该怎么解决 vb listview显示数据库内容,该怎么解决 www.myexceptions.net 网友分享于:2013- ...
winform中鼠标放上去显示气泡提示信息
用ToolTip控件,为要显示提示信息的控件绑定到该控件即可. 操作方法: 先为窗体添加一个ToolTip控件,然后找到要绑定的控件属性,绑定该项 ToolTip toolTip1 = new Too ...
asp:boundfield 鼠标悬停后显示_设计了100张图表后，我学到了哪些经验？
作者:William Bengtsson 译者: luserry 原文:https://medium.com/@william.bengtsson/learnings-from-designing-g ...

用VB.NET实现AUTOCAD中鼠标选中后显示事件

用VB.NET实现AUTOCAD中鼠标选中后显示事件相关推荐

最新文章

热门文章