[VBA程序]：VB调用AutoCad后如何使AutoCad自动缩放至合适范围

headbegger

Dim acadApp As Object, acadDoc As Object, moSpace As Object
'连接AutoCad
Sub ConnectToAcad()
On Error Resume Next
Set acadApp = GetObject(, "AutoCAD.Application")
If Err Then
Err.Clear
Set acadApp = CreateObject("AutoCAD.Application")
If Err Then End
End If
acadApp.Visible = True
Set acadDoc = acadApp.ActiveDocument
Set moSpace = acadDoc.ModelSpace
End Sub
'画一多段线
Private Sub mnuDrawPolyLine_Click()
Dim TriSin As Object
Dim Pts(5) As Double
Dim Pt1 As Double, Pt2 As Double
ConnectToAcad
Pt1 = -100: Pt2 = -200
Pts(0) = Pt1: Pts(1) = Pt2: Pts(2) = Pt1 + 100: Pts(3) = Pt2 + 100: Pts(4) = Pt1 - 100: Pts(5) = Pts(3)
Set TriSin = moSpace.AddLightWeightPolyline(Pts)
TriSin.closed = True
acadDoc.ZoomExtents'此句有问题，运行到此处出现实时错误'438':对象不支持该属性或方法
End Sub
我该发如何实现AutoCad绘完多段线后自动缩放至合适位置，使所绘图形完全可见

雪山飞狐(lzh)

你找错对象了
ZoomExtents是acadApp的方法