Меню Закрыть

Как посчитать периметр в кореле

Содержание

Разработка и ведение стартапов, изготовление сайтов, дизайн печатной и сувенирной продукции, продвижение.

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р ) к этой сумме добавляем стоимость материала, покраски и других необходимых видов работ. Таким образом мы рассчитываем стоимость готового изделия.

Рекомендуем к прочтению

Добавить комментарий

Ваш адрес email не будет опубликован.