topic Re: problem set active viewport when splited in VBA Forum

problem set active viewport when splited

Anonymous — Wed, 20 Dec 2006 11:47:15 GMT

I want zoom splited viewports in model space with different's directions (top, front...), center and magnitudes. But, when I change the current viewport, all the others lost the zoom I had set.
...
For Each vport In ThisDrawing.Viewports
ThisDrawing.ActiveViewport = vport 'here the others lost the zoom I had set
...
When I alter the current viewport manually, clicking in the viewports, it's not occurs.
I see others topics describing the same problem, but no reply, then I'm trying to change the current viewport by 'sendcommand'. Any help to do this?

thanks

Re: problem set active viewport when splited

Anonymous — Wed, 20 Dec 2006 18:45:33 GMT

would you post the routine please.

Re: problem set active viewport when splited

Anonymous — Wed, 20 Dec 2006 19:20:46 GMT

Sub VportsUpdate()
Dim vport As AcadViewport
Dim dirTop(0 To 2) As Double
Dim dirFront(0 To 2) As Double

'draw a circle in origin
ThisDrawing.ModelSpace.AddCircle dirTop, 10

'if not splited, split the viewport
If ThisDrawing.Viewports.Count = 1 Then
ThisDrawing.ActiveViewport.Split acViewport2Horizontal
ThisDrawing.Regen acAllViewports
VportsUpdate
End If
'here is the code
For Each vport In ThisDrawing.Viewports
ThisDrawing.ActiveViewport = vport
If vport.UpperRightCorner(1) = 0 Then vport.Direction = dirTop
If vport.UpperRightCorner(1) = 0.5 Then vport.Direction = dirFront
ThisDrawing.Application.ZoomExtents
Next vport

End Sub

If you stop the execution in the 'Next vport' line, you can see the good result in the Acad window... but after the next 'thisdrawing.activeviewport = vport', the zoomextend is missed.

Re: problem set active viewport when splited

Anonymous — Wed, 20 Dec 2006 19:22:34 GMT

sorry, in the code paste I forgot initialize the dirTop and dirFront after draw the circle.

dirTop(0) = 0: dirTop(1) = 0: dirTop(2) = 1
dirFront(0) = 0: dirFront(1) = -1: dirFront(2) = 0

Re: problem set active viewport when splited

Anonymous — Wed, 20 Feb 2008 20:55:19 GMT

Hello,

Do you have a solution on this problem?

Thank you,
Cata