请教vba函数zoomall

武文弄墨

在vb下已经定义 dim ACADApp As AcadApplication

'定义文字对象
SignText = “你好”
SignText_insert(0) = 5
SignText_insert(1) = 5
SignText_insert(2) = 0
Signtext_height = 20

Set ACADApp = GetObject(, "AutoCAD.application")
Set SignText_Obj = ACADApp.ActiveDocument.ModelSpace.AddText(SignText, SignText_insert, Signtext_height)

ACADApp.ZoomAll

程序运行到zoomall的时候出错，我检查了zoomall方法
object.zoomall
应该没有问题呀？

请教如何才能在vb下是当前图纸可以缩放当前的视口以显示整个图形

mccad

我按照你的程序调试没有出错：

2. Sub Main()
   
3.     Dim ACADApp As AcadApplication
   
4.     Dim SignText_insert(2) As Double
   
5.     Dim SignText As String
   
6.     Dim SignText_height As Double
   
7.     Dim SignText_Obj As AcadText
   
8. 
   
9.     '定义文字对象
   
10.     SignText = "你好"
    
11.     SignText_insert(0) = 5
    
12.     SignText_insert(1) = 5
    
13.     SignText_insert(2) = 0
    
14.     SignText_height = 20
    
15. 
    
16.     Set ACADApp = GetObject(, "autocad.application")
    
17.     Set SignText_Obj = ACADApp.ActiveDocument.ModelSpace.AddText(SignText, SignText_insert, SignText_height)
    
18. 
    
19.     ACADApp.ZoomAll
    
20. 
    
21. End Sub
    
22. 
    

Sub Main()<br />     Dim ACADApp As AcadApplication<br />     Dim SignText_insert(2) As Double<br />     Dim SignText As String<br />     Dim SignText_height As Double<br />     Dim SignText_Obj As AcadText<br /> <br />     '定义文字对象<br />     SignText = "你好"<br />     SignText_insert(0) = 5<br />     SignText_insert(1) = 5<br />     SignText_insert(2) = 0<br />     SignText_height = 20<br /> <br />     Set ACADApp = GetObject(, "autocad.application")<br />     Set SignText_Obj = ACADApp.ActiveDocument.ModelSpace.AddText(SignText, SignText_insert, SignText_height)<br /> <br />     ACADApp.ZoomAll<br /> <br /> End Sub<br /> <br />

武文弄墨

可是，我每次运行到zoomall这里，总是提示run－time error '-2145320932(8021001c)'
错误

我自己都快糊涂了

武文弄墨

ft，原因找到了：
我设置的这个acadapp的运行状态：
ACADApp.Visible = True    '隐藏目的是在检索后出现
ACADApp.WindowState = acMax
是在commond1_click事件下，而我的签名，是在commond2_click事件下，
好像我先触发commond2_click事件，运行到zoomall就有问题，如果先运行commond1_click事件，再签名，就没有问题。

gzy

应该是这样吧:
  thisdrawing.application.zoomextents