Рисование фигур в цикле. Глюк на итерациях

[Stilet 0]

Доброго всем.

Предположим мне нужно нарисовать несколько прямоугольников, стоящих рядом, с одинаковой высотой и шириной.

т.е. что-то типа лесенки.

Я пишу:

Dim swApp As Object

Dim part As ModelDoc2

Dim sm As SketchManager



Sub main()

Set swApp = Application.SldWorks

Set part = swApp.ActiveDoc

Set sm = part.SketchManager

Dim x As Double

x = 1.783

While x > 0

 sm.CreateCornerRectangle x, 0, 0, x - 0.297, 0.01, 0

 x = x - 0.297

Wend



End Sub

Рисует странно. Следующий прямоугольник на итерации по высоте меньше в половину предидущего

Зато если ставлю sm.CreateCornerRectangle x, 0, 0, x - 0.297, 0.05, 0

Все прямоугольники рисуются одинаковой высоты.

Что это за глюк? SW2008 SP5

Не будет ли сложно кому-нить проверить этот код