ZoomExtents in all viewports once again

Anonymous — Fri, 08 Dec 2000 00:33:13 GMT

Hello everybody!
Peter Urban asked 10 month ago for assistence to make a ZoomExtents in all
viewports of a splitted viewport in modelspace. Unfortunatly this question
wasn't answered and I have now the same problem.
If there is anybody who can help me/us solving this problem, please give
me/us assistence to solve this problem.
Best regards and thanks in advance

Thilo

Re: ZoomExtents in all viewports once again

Anonymous — Fri, 15 Dec 2000 01:30:53 GMT

Hello everybody
I found a solution by myself. It's not the best solution but it works. I've
attached the code at the end. Thanks for your assistence.

IntCVPort = ThisDrawing.GetVariable("cvport")
For i = 0 To 3
ThisDrawing.SetVariable "CVPORT", IntCVPort + i
Update
ZoomExtents
Update
Next

Thilo Bröker

Thilo Bröker schrieb in im Newsbeitrag:
3A7D962E38E7F32118064EC4F0DDB439@in.WebX.SaUCah8kaAW...
> Hello everybody!
> Peter Urban asked 10 month ago for assistence to make a ZoomExtents in all
> viewports of a splitted viewport in modelspace. Unfortunatly this question
> wasn't answered and I have now the same problem.
> If there is anybody who can help me/us solving this problem, please give
> me/us assistence to solve this problem.
> Best regards and thanks in advance
>
> Thilo
>

topic Re: ZoomExtents in all viewports once again in VBA Forum

ZoomExtents in all viewports once again

Re: ZoomExtents in all viewports once again