topic Realtime Zoom from Macro in VBA Forum

Realtime Zoom from Macro

Anonymous — Thu, 16 Feb 2006 02:25:53 GMT

Is it possible to perform a realtime zoom while in a Macro.

I have a macro and want to be able to zoom in & out while the macro is still running.

I tried:

Me.Hide
Application.ZoomAll
Application.ZoomPickWindow
Me.Show

I'd rather do a realtime zoom, but the only way I can think of to do it is:

Me.Hide
ThisDrawing.SendCommand ("z" & vbCr & vbCr)
Me.Show

but this doesnt work either. The Me.Show brings sets focus back to the Macro before I have a chance to perform the zoom.

Re: Realtime Zoom from Macro

Anonymous — Thu, 16 Feb 2006 12:52:25 GMT

You normally need to regen the drawing to show the updates:

[code]
' The following example regenerates the complete drawing
ThisDrawing.Regen acAllViewports
' The following example regenerates the active viewport in the current
drawing
ThisDrawing.Regen acActiveViewport
[/code]

--
Phil Custer II, P.E.
Custer Services, Inc.
custer@landfillgas.com

wrote in message news:5087744@discussion.autodesk.com...
Is it possible to perform a realtime zoom while in a Macro.

I have a macro and want to be able to zoom in & out while the macro is still
running.

I tried:

Me.Hide
Application.ZoomAll
Application.ZoomPickWindow
Me.Show

I'd rather do a realtime zoom, but the only way I can think of to do it is:

Me.Hide
ThisDrawing.SendCommand ("z" & vbCr & vbCr)
Me.Show

but this doesnt work either. The Me.Show brings sets focus back to the
Macro before I have a chance to perform the zoom.

Re: Realtime Zoom from Macro

Anonymous — Wed, 22 Feb 2006 18:52:36 GMT

I'm not worried about the Regen. It works as I have it now, but I'd rather the user perform a realtime zoom instead of a zoom all then zoom window.

Re: Realtime Zoom from Macro

Anonymous — Wed, 22 Feb 2006 22:01:36 GMT

Can you add a loop before Me.Show checking whether AcadApplication.GetAcadState.IsQuiescent = true.

Regards - Nathan