insertblock loop

I have an insertblock loop in VBA and a question about when it finishes. After it finishes the screen goes all white with an hourglass for about a minute and then the drawing reappears with the blocks placed. What is happen during the pause? Can I prevent it?

Sample code:

intCounter = 0

Do

Set blockRefObj = ThisDrawing.ModelSpace.InsertBlock(insertionPnt, "test.dwg", intRadMult, intRadMult, intRadMult, 0)
insertionPnt(1) = insertionPnt(1) + (0.25 * intRadMult)

ThisDrawing.Application.Update

intCounter = intCounter + 1

Loop Until intCounter = 6

Thanks for any help.

 

perhaps ^^^^ it's very long time process...?

 

Three things actually. Mike mentioned the first.

Second, why are you assigning the returned object to a variable that does
not appear to be used.

Third, move the Update outside of your do loop. You do not want it running
everytime through the loop.

Fourth, move this line outside of the loop as well. I don't

insertionPnt(1) = insertionPnt(1) + (0.25 * intRadMult)

Actually, I would change this whole loop around to look like the following:

insertionPnt(1) = insertionPnt(1) + (0.25 * intRadMult)

'load the block for the first time
ThisDrawing.ModelSpace.InsertBlock insertionPnt, "test.dwg", intRadMult,
intRadMult, intRadMult, 0

For intCounter = 0 To 4
'then insert it 5 more times
ThisDrawing.ModelSpace.InsertBlock insertionPnt, "test", intRadMult,
intRadMult, intRadMult, 0
Next intCounter

ThisDrawing.Application.Update

JMHO

Joe
--

After it finishes the screen goes all white with an hourglass for about a
minute and then the drawing reappears with the blocks placed. What is happen
during the pause? Can I prevent it?

"test.dwg", intRadMult, intRadMult, intRadMult, 0)