Zoomall

[Anonymous]

Hello everybody!
I've got a question about a zoomall for every view in a splitted Viewport.
I want to create automatically a viewport for an isoprojection method 1. To
create the viewdirections is very easy, but to make a zoom all for each view
seems to be impossible. Everywhere I add an zoomall results that only one
view make an zoomall. Is there anybody who can help me? I've attached the
code at the end of the mail. Thanks for your help in advance.

Thilo

...
Set objViewport = ThisDrawing.Viewports.Add("ISO-PROJECTION")
objViewport.Split acViewport4
For Each objCurrentViewport In ThisDrawing.Viewports
If objCurrentViewport.LowerLeftCorner(0) = 0 Then
If objCurrentViewport.LowerLeftCorner(1) = 0 Then
dblViewDirection(0) = 0
dblViewDirection(1) = 0
dblViewDirection(2) = 1
With objCurrentViewport
.Direction = dblViewDirection
End With
dblViewDirection(1) = -1
dblViewDirection(2) = 0
With objCurrentViewport
.Direction = dblViewDirection
End With
End If
End If
If objCurrentViewport.LowerLeftCorner(0) = 0.5 Then
If objCurrentViewport.LowerLeftCorner(1) = 0 Then
dblViewDirection(0) = -1
dblViewDirection(1) = -1
dblViewDirection(2) = 1
With objCurrentViewport
.Direction = dblViewDirection
End With
Else
dblViewDirection(0) = -1
dblViewDirection(1) = 0
dblViewDirection(2) = 0
With objCurrentViewport
.Direction = dblViewDirection
End With
End If
End If
Next
ThisDrawing.ActiveViewport = objViewport
...