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

tohaa

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

_MBK_

Пикирующий бомбардировщик
15 лет на форуме
Сообщения
33 138
Реакции
10 835
Код:
For Each sh In ActivePage.FindShapes(Type:=cdrCurveShape)
 if sh.Curve.isClockwise then sh.Curve.ReverseDirection
Next sh
как то примерно так
 
  • Спасибо
Реакции: DukereD и tohaa

tohaa

Участник
Топикстартер
Сообщения
229
Реакции
8
Работает. Спасибо за подсказку.

Код:
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