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

nightgogogo

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

哭泣殺豬

Application.ZoomExtents()

nightgogogo

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

哭泣殺豬

不會

我用的是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

谢谢啦