Using VBA to restore a view in a AcadPViewport

[toddralph]

I can't seem to figure out how to do this. I thought it would be something similiar to myViewPort.setView, but the paperspace viewport doesn't have that method.

Problem: I have a bunch of views defined in my drawing (all same size and shape) and I want to plot them all by restoring the view to the paperspace viewport, then plotting. Of course this has to be automated because I have 250+ views.

Any help would be appreciated.

Thanks,
Todd

[Anonymous]

I asked the same question a couple of days ago but haven't had a reply so in the meantime I have used pviewportObj.Display True
' Switch to model space
ThisDrawing.MSpace = True
' Set newVport current
Set pviewportObj = ThisDrawing.ActivePViewport
' Set the required views name
ViewName = "VIEW" & counter
' add it to the current open viewport
Set view = ThisDrawing.Views.item(ViewName)
' set it as current
ThisDrawing.SendCommand "-view" & vbCr & "R" & vbCr & ViewName & vbCrwhere ViewName is the name of the view you wish to present in the AcadPViewport and can be set. Its not a direct Visual Basic method but it does the trick untill someone comes up with the goodies.
Regards
Scruff

[toddralph]

Thanks Scruff, that did the trick for now.

[svreis]

A solução funcionou bem... Só acho que se fosse utilizado o código VB (que não existe pois não sei de nínguem que saiba) seria mais rápido. Mas não tem problema esperar alguns segudos comparado as horas que seriam gastas para fazer isso manualmente.

Valeu.