Краткое описание макроса TextToCurve.
Зачастую, в процессе подготовки файлов для плоттерной резки необходимо перевести набранный блок текста (Artistic Text или Paragraph Text) в кривые, причем построчно.Обычно многие переводят текст в кривые просто - выделяют блок текста и нажимают кнопку Convert To Curves. При этом текст переводится в кривые, но не построчно.
Более правильно нужно делать так: выделить блок текста, выбрать команду Break Apart, опять выделить блок текста и, затем, уже - Convert To Curves.
Обычная автоматическая запись этой последовательности действий в макрос (Records VBA Macro ) ни к чему не приводит. Именно для упрощения вышеназванных действий и был рабработан VBA макрос TextToCurve.gms (для CorelDraw 12).
| Макрос TextToCurve.gms (zip 5,74KB) ... | .:Загрузить:. |
Краткое описание макроса Area1.
Макрос Area1.gms (для CorelDraw 12) предназначен для измерения площади объектов. Объекты должны быть замкнуты, суббути должны быть вложены и не иметь самопересечений.
| Макрос Area1.gms ( zip 12 KB)... | .:Загрузить:. |
Краткое описание макроса Optimization.
Для того, чтобы каттер в процессе резки пленки не гонял ее вперед-назад несколько раз, файл предварительно нужно оптимизировать, чтобы резка происходила слева-направо. Для этих целей предназначен макрос Optimization. После выполнения крайний левый объект займет самое верхнее положение в иерархии объектов (Object Manager). Разработан для CorelDraw 12.| Макрос Optimization.gms ( zip 4,9 KB)... | .:Загрузить:. |
Установка макросов:
1. Перепишите файл макроса *.gms в папку GMS. Обычно находится C:\Program Files\Corel\Corel Graphics12\Draw\Gms.
2. Запустите CorelDraw.
3. Выберите в Menu Bar:
Tools - Customization - Commands.
В раскрывающем списке окна Commands выберите: Macros.
В появившимся списке макросов выберите данный макрос.
Выберите закладку Appearanse.
В поле Caption можете ввести свое название.
В поле Image выберите любую кнопку или создайте свою.
Перетащите из списка макросов необходимый на панель инструментов и нажмите OK.
