syx2006的个人主页

https://bbs.yantuchina.com/u.php?uid=2977  [收藏] [复制]

syx2006

  • 113

    关注

  • 554

    粉丝

  • 641

    访客

  • 等级:副总工
  • 总积分:4590
  • 认证:
  • 保密,2007-05-06

最后登录:2023-11-03

更多资料

日志

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
分类:默认分类|回复:0|浏览:335|全站可见|转载
 

下一篇: vba 编程  第二课

上一篇:

Powered by phpwind v8.7 Certificate Copyright Time now is:03-29 23:16
©2003-2011 版权所有 Gzip enabled 浙ICP备14021682号-1 浙公网安备 33010602003799号 Total 0.020331(s)