Infinite Loop when Re-scaling Drawing View from 1/100 size

[MechMachineMan]

As the title says, does anyone know why this is making inventor crash/loop infinitely? Or is it simply a limitation to the API?

Dim oArea As Double = ThisApplication.ActiveDocument.ActiveSheet.Height * ThisApplication.ActiveDocument.ActiveSheet.Width

Dim oView As DrawingView = ThisApplication.ActiveDocument.ActiveSheet.DrawingViews.Item(1)

oView.Scale = 1/100

Dim oViewArea As Double = oView.Height * oView.Width


If oViewArea < oArea/6
	While oViewArea < oArea/6

	oView.Scale = oView.Scale * 1.1
	oViewArea = oView.Height * oView.Width
	MsgBox("Height " & ThisApplication.ActiveDocument.ActiveSheet.Height & vbLf & _
	  "Width " & ThisApplication.ActiveDocument.ActiveSheet.Width & vbLf & _
	  "Area " & oArea & vbLf & _
	  vbLf & _
	  "View Height " & oView.Height & vbLf & _
	  "View Width " & oView.Width & vbLf & _
	  "View Area " & oViewArea)

	End While
Else
	While oViewArea > oArea/6

	oView.Scale = oView.Scale * 0.9
	oViewArea = oView.Height * oView.Width
	MsgBox("Height " & ThisApplication.ActiveDocument.ActiveSheet.Height & vbLf & _
	  "Width " & ThisApplication.ActiveDocument.ActiveSheet.Width & vbLf & _
	  "Area " & oArea & vbLf & _
	  vbLf & _
	  "View Height " & oView.Height & vbLf & _
	  "View Width " & oView.Width & vbLf & _
	  "View Area " & oViewArea)

	End While
End if

[BrandonBG]

I think I see what you are trying to do by getting the scale of the view to an undetermined equilibrium.

The problem is that you run the IF < 6 part until possibly  > 6, then the ELSE portion applies, which is confusing.

Also, x * 1.1 * 0.9 does not equal x. You get 0.99x.

You always want the view to be 1/6 of the sheet, correct?

BrandonBG

[MechMachineMan]

Just to get it close, then I run another function that changes it to the
neareat standard scale.

[BrandonBG]

How about just using math to set it to 1/6?

oView.Scale = oView.Scale * ((oArea/6)/(oViewArea))

That should get you to exactly 1/6, I think . . . ?

BrandonBG

[MechMachineMan]

That makes way more sense haha. Thanks!