[CDR 2017-2021] Единое направление всех векторов в документе.

[tohaa]

Добрый день!
Как с помощью макроса найти все кривые в документе и изменить их направление на одинаковое (к примеру все против часовой)?
Нахожу в мануале свойство .IsClockwise и метод .Curve.ReverseDirection, но не понимаю как правильно написать цикл перебора.

 

[_MBK_]

For Each sh In ActivePage.FindShapes(Type:=cdrCurveShape)
 if sh.Curve.isClockwise then sh.Curve.ReverseDirection
Next sh

как то примерно так

 

[tohaa]

Работает. Спасибо за подсказку.

Sub reverse_direction()

Dim sh As Shape
For Each sh In ActivePage.FindShapes(Type:=cdrCurveShape)
If sh.Curve.IsClockwise = False Then sh.Curve.ReverseDirection
Next sh

End Sub