Automatic Scale Loop Causing infinite Loop

[MechMachineMan]

Can anyone explain why this peice of code is causing an infinite loop in a drawing package with mroe than one drawing?

For Each oSheet In ThisApplication.ActiveDocument.Sheets
 oViews = oSheet.DrawingViews
 While oViews.Item(1).Height * oViews.Item(1).Width <= 800 'Sheet area/6
  MsgBox(oViews.Item(1).Scale)
  oViews.Item(1).Scale = oViews.Item(1).Scale + .01
  MsgBox(oViews.Item(1).Scale)
 End While
Next

Any help is much appreciated, thanks!

My first guess would be an issue with the while loop doing the calculation?

[BrandonBG]

It worked for me running inside a .dwg (I added Try-Catch for sheets with no drawing views).

Where are you running the rule?

Brandon

[MechMachineMan]

Inside a rule that sorts parts and makes drawings of each.

[BrandonBG]

Is the loop occurring in the first drawing it runs through? I don't have a good guess why this is happening. It looks good from here . . .

Brandon

[MechMachineMan]

Thanks for the responses Brandon.

I'm starting to think that maybe the file was just bugged during that instance of inventor or something goofy is going on with the file. Still seems weird though because I wrote this sub as a test to see if it would work outside of my main program, but it still didnt.