随笔分类 -  AutoCAD

摘要:1、设为WCS Dim doc As Autodesk.AutoCAD.ApplicationServices.Document = Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument 阅读全文
posted @ 2020-02-20 08:49 rf8862 阅读(228) 评论(0) 推荐(0) 编辑
摘要:1、添加扩展数据 Private Sub 添加扩展数据(ByVal ent As Entity, ByVal DictName As String, ByVal TypedValue As TypedValue) If ent.ExtensionDictionary = Nothing Then e 阅读全文
posted @ 2020-02-14 01:44 rf8862 阅读(301) 评论(0) 推荐(0) 编辑
摘要:Autodesk.AutoCAD.Internal.Utils.SetFocusToDwgView() 阅读全文
posted @ 2020-02-08 11:02 rf8862 阅读(345) 评论(0) 推荐(0) 编辑
摘要:1、CommandEnded 在程序启动的过程中添加下面这行代码,然后,程序里面需要一个名为CommandEnded的SUB,其签名要和事件一致, 这样,在事件发生时,就会调用CommandEnded过程 AddHandler Autodesk.AutoCAD.ApplicationServices 阅读全文
posted @ 2020-02-07 23:40 rf8862 阅读(601) 评论(0) 推荐(1) 编辑
摘要:Private Sub ss_Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown ‘对话框的KeyPreview属性需设置为True e.Hand 阅读全文
posted @ 2020-02-07 22:07 rf8862 阅读(332) 评论(0) 推荐(0) 编辑
摘要:1.在带有窗体的DLL中出现下面的错误:eLockViolation. 解决方法: Private sub Test() '在Sub里添加下面的定义语句 Dim documentLock As DocumentLock = Autodesk.AutoCAD.ApplicationServices.A 阅读全文
posted @ 2012-09-11 10:07 rf8862 阅读(896) 评论(0) 推荐(0) 编辑

点击右上角即可分享
微信分享提示