[CDR 2024] развернуть все текст. объекты на 180°

[Любимцев]

относительного своего центра. В активном слое, вероятно (есть и другие, которые не надо)
Макросом, или что в Кореле работает ...

 

[lev]

For Each s In ActivePage.Shapes.FindShapes(, cdrTextShape): s.Rotate 180: Next

 

[Любимцев]

For Each s In ActivePage…

сорян, а что с этим делать?
Я нашел аналог фотошопного экшена, но крутит вокруг общего центра...
Надо — каждое, вокруг своего

 

[_MBK_]

сорян, а что с этим делать?
Я нашел аналог фотошопного экшена, но крутит вокруг общего центра...
Надо — каждое, вокруг своего

Да, так и будет.
Открыть редактор макросов и вбить туда этот код.

 

[Любимцев]

Да, так и будет.

вокруг общего?
Т.е. 150 раз нажимать >
?

вбить туда

куда? ))
Я подобный вопрос задавал про Илл, 3 года назад.
там была лишь проблема, что не сохраняет, нужно каждый раз активировать (уж и не помню подробностей)

 

[lev]

Думал Вы уже умеете обращаться с макросами.

Sub rot()
  ActiveDocument.BeginCommandGroup "Rotate text 180"
  For Each s In ActivePage.Shapes.FindShapes(, cdrTextShape): s.Rotate 180: Next
  ActiveDocument.EndCommandGroup
End Sub

А ещё лучше поискать готовые макросы типа "Transform Each", натыкался в своё время на кучку подобных. Там Вы с готовым интерфейсом не только вращать, но и смещать, увеличивать/уменьшать и т.д. сможете

 

[Любимцев]

Думал Вы уже умеете обращаться с макросами

увы и ой (

 

[lev]

вон даже у нас чего-то лежит

Иконка ресурса

Corel Macros Transform Each v.2

25.04.2018

макрос для массовой трансформации объектов в CorelDRAW от X5 и далее.

• dastin
• corel draw macros
• Файлообменник

правда, без выбора типа объектов

 

[Любимцев]

ок. Уже засыпаю, завтра если что, спрошу дополнительно

 

[dastin]

правда, без выбора типа объектов

... ну, если сильно заморочиться
(хотя, мне кажется - и этого простого макроса должно хватить - только с поправкой на ActiveLayer )
то - вот приправа

Jeff’s Select Same 3​

$0.00​

выбрать текст и взвести галку на Type найти / выделить и затем натравить "Transform Each",

 

[Любимцев]

Transform Each

собственно и нужен был )
первый прост удобнее родного поиска, так что тоже гуд!