nightgogogo 发表于 2011-9-6 17:13:04

向CAD输入ZOOM e 和 zoom preview时能不能不显示在前台啊

就是不让人看出来执行了zoom操作

哭泣殺豬 发表于 2011-9-6 21:30:49

Application.ZoomExtents()

nightgogogo 发表于 2011-9-7 08:44:05

这个命令能不能偷偷摸摸的调用啊 在CAD界面中不会被人发现执行了zoom操作

哭泣殺豬 发表于 2011-9-7 10:07:49

不會

我用的是CAD2008 & VS2010

' 連接至 AutoCAD 應用程式
      Dim acadApp As AcadApplication
      acadApp = CType(GetObject _
                      (, "AutoCAD.Application.17"), AcadApplication)
      If CBool(Err.Number) Then
            Err.Clear()
            acadApp = CType(CreateObject _
                      ("AutoCAD.Application.17"), AcadApplication)
            If CBool(Err.Number) Then
                MsgBox(Err.Description)
                Exit Sub
            End If
      End If
      ' 連接至 AutoCAD 圖面
      Dim acadDoc As AcadDocument
      acadDoc = acadApp.ActiveDocument
      acadApp.Visible = True
      acadDoc.Application.ZoomExtents() '極放圖面

nightgogogo 发表于 2011-9-7 11:46:43

本帖最后由 nightgogogo 于 2011-9-7 11:47 编辑

谢谢啦
页: [1]
查看完整版本: 向CAD输入ZOOM e 和 zoom preview时能不能不显示在前台啊