topic Problem with screen updating in VBA Forum

Problem with screen updating

Anonymous — Thu, 19 Apr 2007 16:23:42 GMT

I have a very intense macro that is working on 43000+ 3D polylines. It has to zoom into each polyline segment and then perform a localized search for adjacent polylines and then do some detective work before moving on the the next segments and polylines.

The macro is working 100% correctly but I have two fundamental annoyances I do not know how to fix.

After a few thousand zoomwindows Autocad decides to stop updating the screen. It is still working, but not apparent to the user. How can I avoid this problem?

I thought it was do do with using modemacro but that does not seem to be the problem as it happens if i use modemacro or not. Note that with modemacro i show a percentage complete in 5 unit steps. so that is not alot of statusbar updating at all.

I have looked at the forum and tried DoEvent which did not seem to help me. Ideally, the screen will atleast keep refreshing. I am assuming it has to refresh for the select(crossing) to function correctly.

And advice greatly appreciated before i gain a few more grey hairs.

Andrew

Re: Problem with screen updating

Anonymous — Thu, 19 Apr 2007 17:09:27 GMT

I just wanted to say that after two hours of the screen staying white, the macro completed successfully.

So, as per my original post, this is what I am trying to achieve:

How can I ensure the screen updated for the life of the routine

OR

If the Select(crossing) does not need to be literally visible, how can I stop it from updating the screen?

Eitherway, I want to give the user feedback. They need to know the routine is running, and a blank white screen can be alarming.

I hope someone can give me any practical assistance with this matter.

Thank you.

Andrew

Re: Problem with screen updating

arcticad — Thu, 19 Apr 2007 20:09:53 GMT

You can use DoEvents in your code each time it loops. This will keep Autocad Alive and use userform.repaint to keep the form alive.

If you want it to stop updating the screen you can

Declare Function LockWindowUpdate Lib "user32" (ByVal hWndLock As Long) As Long

LockWindowUpdate ThisDrawing.hWnd

do stuff

LockWindowUpdate 0

Re: Problem with screen updating

Anonymous — Fri, 20 Apr 2007 05:54:14 GMT

Hello

I did try putting DoEvents inside the loop and it did not seem to have an affect. The only difference was that it "stopped" showing the new zoom locations as opposed to turning blank.

I don't have a userform showing progress as this routine has no user specifiable parameters. So my progress is in the status bar.

Is it going to be better in a form?

Andrew