Содержание
Разработка и ведение стартапов, изготовление сайтов, дизайн печатной и сувенирной продукции, продвижение.
SanM Curve Info 2
Удобный макрос, который показывает
площадь, периметр, количество узлов и путей кривой,
а так же площадь и периметр каждого из путей.
Совместимость: CorelDRAW X3 — Х8.
Макрос CorelDRAW для вычисления периметра и площади
Информация отображается в тех единицах, которые установлены у вас в CorelDraw.
Единицы измерения соответствуют единицам документа.
Area — это площадь фигуры
Length — периметр фигуры
Nodes Count — количество узлов кривых
Установка макроса для Corel Draw:
Скачать, распоковать ZIP и скопировать файл макроса в папку GMS
(C:Program FilesCorelCorelDRAW Graphics Suite 13 (16)DrawGMS).
Работа, как включить макрос в Кореле:
ВЫБОР КРИВЫХ
Выделить указателем один объект (не группу),
несколько объектов можно объединить в один (командой Ctrl+L).
(Текст должен быть преобразован в одну кривую)
ПРИМЕНЕНИЕ МАКРОСА
Выбрать меню Инструменты -> Visual Basic -> Воспроизвести.
В нижней части отрывшегося окна "Макросы CorelDRAW"
найти в списке "Macros in:" нужный нам SanM_CurveInfo — при этом сверху появится в "Macro name" GetInfo.
Нажать "Run".
Если всё сделано правильно, то в окошке "Curve info" покажется площадь (Area) и периметр (Lenght).
Сделать кнопку для быстрого доступа для макроса
Меню Инструменты (Tools) -> Параметры (options) -> Настройка (customization) -> Команды (commands), выбрать "Макросы" ("macros").
Теперь для удобства нужно перетащить мышкой макрос из окошка на любое место Панели инструментов.
Перед перетаскиванием можно воспользоваться вкладкой "Вид" и изменить отображение значка или поменять название
Осталось нажать кнопку ОК, чтобы закрыть окошко Параметры.
Установка завершена, пользуйтесь.
Теперь CurveInfo всегда под рукой и для его запуска достаточно выделить объект и кликнуть на иконку.
- утилита не умеет считать периметр сложных и скомбинированных фигур (например — буква);
- утилита не совместима с 64х-битной версией Сorel Draw X6.
Что же делать в таком случае? Ответ прост — написать скрипт.
Итак, запускаем «Corel Draw». Открываем редактор скриптов: «Tools –> Macros –> Macro Editor» (или «Alt + F11»).
В списке панели «Progect» находим ветвь «Global Macros (GlobalMacros.gms)». Создаем новый модуль в этой ветке (клик по нему правой кнопки мыши, «Insert –> Module»).
For Each single_shape In ActiveSelection.Shapes
total_length = total_length + ActiveShape.Curve.Length * 25.4 / 1000
Next single_shape
MsgBox (Str(total_length) + " mm")
Примечание: скрипт изначально ориентирован на дюймы, и здесь приведён в метрах. Для получения, например, сантиметров, нужно к формуле дописать «25.4 / 100» (для милиметров же — «/ 1000»), и поправить форму вывода.
Запускаем CorelDraw (создаем пустой документ). Ищем и нажимаем:
— в меню: Инструменты/Параметры (Tools/Options) или нажимаем Ctrl+J. Откроется окно настроек Корела;
— в открывшемся окне: Рабочее пространство-Настройки-Команды (Workspace-Customization-Commands);
— в раскрывшемся пункте: Макросы (Macros) — найдите в выпадающем списке (вверху возле бинокля);
— в появившемся списке: Perimlength.perimeter_len ;
И вуаля получаем результат 14000мм или 14-м. Тот же результат у нас получился при расчёте стоимости изделия плагином PlotCalc в предыдущей статье.
Цену макрос Pirimiter не считает, но вы и сами легко с этим справитесь умножив длину кривых на стоимость 1м/р нужного вам материала. Например мы режем мангал из стали 3мм при этом 1м/реза у нас стоит 25р ( 14м * 25р = 350р ) к этой сумме добавляем стоимость материала, покраски и других необходимых видов работ. Таким образом мы рассчитываем стоимость готового изделия.