На одном из форумов был задан вопрос

Цитата:

накатал очень простой возможно дырявый скрипт
пробуйте...

установка:
закидываете файл CurvePowerclipRU.gms
C:\Program Files\Corel\Corel Graphics 12\Draw\GMS\

далее
Tools > Custominzation
+ Commands
из выпадающего списка выбираем
Macros
ConvertToCurves.CRvPC.POWERCLIP_RU и перетаскиваете на панель инструментов

Внимание! скрипт переводит не только текст но и все остально что можно перевести в кривые



Из недостатков:
работает только с активной страницей
после выполнения нужно перейти на другю страницу и запустить заново
---
постараюсь устранить в скором времени
---
всю ругань на меня пишети ниже
пс
на звание супер прогрммиста не претендую

Загрузить:

---

CurvePowerclipRU_new.zip Размер: 12.71 KB; Скаченно: 1176

Глеб
и тебе спасибо!
очень полезная чтука с jpg

ТОварищи - вы, так сказать, заметно облекчаете труды наши праведные.
Истинно правильно.
)
Спасибо ребята.

я вот почитал.. ниче не понял.. может потому что с Корелом отношения у мен япо столько по скольку.. чем реже тем лучше..
но в Люстре почему-то вопросво по переводу текста в кривые не возникало никогда.. будь то сложная верстка или два слова написано... просто cmd)ctrl)-A, cmd(ctrl)-shift-О.. в группе не в группе... поровну.. "скривиться" все, что не залокировано по cmd(ctrl)-2...

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

wOxxOm
Респект! эта крута !!!!!!!!!!
Ты читаешь мысли!
восторгу нет придела!



Егор
в Илюстраторе всего 1 страница
а в кореле их может быт 50

это значит что на каждую надо заходить иделать ctr+A Ctr+Q
и того сто раз нажать.
при том иногда при ctr+A Ctr+Q корел динамит групы.

Я использую вот такой макрос, на каком-то форуме увидел
Конвертит весь текст на всех страницах в кривые.

Sub text_to_curve()
On Error Resume Next
ActiveDocument.BeginCommandGroup "Convert all text to curves"
Dim p As Page
For Each p In ActiveDocument.Pages
Pconvert p.Shapes
p.Shapes.FindShapes(, cdrTextShape).ConvertToCurves
Next p
ActiveDocument.EndCommandGroup
MsgBox "All text coverted to curve!"
End Sub

Самый простой скрипт для перевода всего векторного в кривые

Sub ()
For i = 1 To n
ActivePage.Shapes.All.ConvertToCurves
ActiveDocument.Pages(i).Shapes.All.ConvertToCurves
Next i
End Sub

Вбиваем вместо n количество страниц и всего делов. К сожалению в пауэрклипах не курвит.

недавно и я свой написал. В поверклипах шарит. wx.TextToCurves в составе wx_Tools на http://recentfiles.netfir...

А можно сделать кнопку на скрипе - Все страницы - что бы можно было выбирать - ко всем страницам скрипт применить или по странично?

прочитал всю тему, но так и не понял как ПОЛНОСТЬЮ (включая группы и поверклипы) текста в кривые перевести.

помогите пожалуйста.

Мне тож нравиться!