随笔分类 - AutoCAD
摘要:1、设为WCS Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument
阅读全文
摘要:1、添加扩展数据 Private Sub 添加扩展数据(ByVal ent As Entity, ByVal DictName As String, ByVal TypedValue As TypedValue) If ent.ExtensionDictionary = Nothing Then e
阅读全文
摘要:Autodesk.AutoCAD.Internal.Utils.SetFocusToDwgView()
阅读全文
摘要:1、CommandEnded 在程序启动的过程中添加下面这行代码,然后,程序里面需要一个名为CommandEnded的SUB,其签名要和事件一致, 这样,在事件发生时,就会调用CommandEnded过程 AddHandler Autodesk.AutoCAD.ApplicationServices
阅读全文
摘要:Private Sub ss_Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown ‘对话框的KeyPreview属性需设置为True e.Hand
阅读全文
摘要:1.在带有窗体的DLL中出现下面的错误:eLockViolation. 解决方法: Private sub Test() '在Sub里添加下面的定义语句 Dim documentLock As DocumentLock = Autodesk.AutoCAD.ApplicationServices.A
阅读全文