在VB中，怎样编程，能使AutoCAD全屏显示？

水镜影

在VB中，怎样编程，能使AutoCAD全屏显示？

wylong

'****************************************
' 连接到AutoCAD应用程序
'****************************************
Dim acadApp As AcadApplication
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")

If Err Then
MsgBox Err.Description
Exit Sub
End If
End If
'****************************************
' 设置AutoCAD活动文档
'****************************************
Dim acadDoc As AcadDocument
Set acadDoc = acadApp.ActiveDocument '****************************************
' 使AutoCAD全屏显示
'****************************************
acadDoc.SendCommand "_zoom" & Chr(13) & "_e" & Chr(13)

水镜影

谢谢拉

mccad

应该使用纯VB方法才对啊，最后一句改为：
acadApp.ZoomExtents

cag

这个也叫全屏？

efan2000

呵呵，可能有两种理解吧，一种是显示所有的图形，另一种是ACAD的菜单和状态栏之类的不显示。

雪山飞狐_lzh

还有一种理解：把整个AutoCad的窗口最大化？

ahlzl

对CAD2005,可再加一行代码:


acadDoc.SendCommand "_CleanScreenON "

gare1000

ahlzl发表于2004-6-4 12:22:00对CAD2005,可再加一行代码: acadDoc.SendCommand \"_CleanScreenON \"

SendCommand 是什么啊？是acadDoc的方法吗？为什么在cad的帮助和Active开发指南
中找不到？

mccad

SendCommand 从 VB 或 VBA 应用程序向文档发送命令字符串以进行处理。