日志
vba编程 第一课程
2014-09-11 17:59
On Error Resume Next Call 连接CAD '----------------------------------------------------将vba中代码增加下列两行语句 Dim acadDoc As AcadDocument Set acadDoc = acadAPP.ActiveDocument '-----------------------------------------------------------将VBA中 ThisDrawing替换为acadDoc acadDoc.Application.ZoomExtents '-----------------------------------------------------------将图形最大范围显示 ' 本例设置 AutoCAD 图形光标的十字光标 ' 设置为全屏。 ' 访问 Preferences 对象 Dim acadPref As AcadPreferences Set acadPref = acadDoc.Application.Preferences ' 使用 CursorSize 特性设置十字光标的大小 acadPref.Display.CursorSize = 100 |
下一篇: vba 编程 第二课
上一篇: 无