Содержание
admin 2019-03-10 Инструкции Комментарии к записи Макрос расчета длины в CorelDraw отключены 1,202 Views
Related Articles
Скачать Windows AIO
Windows rdp — несколько удаленных пользователей одновременно
Настройка Lasercut 5.3 на примере MPC6525A
В тему лазерной резки. Постоянно обновляемый каталог готовых файлов для лазерной резки https://lasercut.usehelp.org/
Ну а теперь, собственно, перейдем к самому макросу расчета длины в CorelDraw.
Все просто, и главное бесплатно 😉
Для добавления макроса расчета длины линий в корел заходим в Инструменты — Visual Basic — Редактор Visual Basic.
Далее справа ищем GlobalMacros и правой кнопкой кликаем. Выбрать Insert — Module.
Копируем код ниже и вставляем в открывшемся окне добавления Module.
Закрываем и сохраняем.
Далее, открываем рисунок который необходимо посчитать, выделяем необходимые линии (скрипт не посчитает если в рисунке есть сгруппированные элементы, разгруппируйте на рисунке все), заходим в Инструменты — Visual Basic — Воспроизвести. В открывшемся окне ищем новый добавленный модуль и кликаем по нему два раза.
Public Sub MyLength()
ActiveDocument.Unit = cdrMillimeter ‘Указываем по-умолчанию единицу измерения
ActiveDocument.BeginCommandGroup ‘Указываем что отсюда начинается группа программного кода, которая отменяется одним нажатием "отмена"
ActiveSelectionRange.UngroupAll ‘Разгруппировываем выделенные объекты, если таковые есть
ActiveSelectionRange.ConvertToCurves ‘Конвертируем все элементы в кривые, т.к. свойство длины доступно только для кривых
Dim S As Shape
Dim Ln As Double
For Each S In ActiveSelectionRange
Ln = Ln + S.Curve.Length
Next
ActiveDocument.EndCommandGroup ‘Указываем что здесь заказчивается группа наших действий
ActiveDocument.Undo ‘Так как значение суммарной длины уже хранится в переменной Ln, отменяем все сделанные изменения с кривыми до их первоначального состояния
MsgBox Ln & " мм", , "Длина кривых" ‘Выводим значение суммарной длины всех выделенных элементов.
Запускаем CorelDraw (создаем пустой документ). Ищем и нажимаем:
— в меню: Инструменты/Параметры (Tools/Options) или нажимаем Ctrl+J. Откроется окно настроек Корела;
— в открывшемся окне: Рабочее пространство-Настройки-Команды (Workspace-Customization-Commands);
— в раскрывшемся пункте: Макросы (Macros) — найдите в выпадающем списке (вверху возле бинокля);
— в появившемся списке: Perimlength.perimeter_len ;
И вуаля получаем результат 14000мм или 14-м. Тот же результат у нас получился при расчёте стоимости изделия плагином PlotCalc в предыдущей статье.
Цену макрос Pirimiter не считает, но вы и сами легко с этим справитесь умножив длину кривых на стоимость 1м/р нужного вам материала. Например мы режем мангал из стали 3мм при этом 1м/реза у нас стоит 25р ( 14м * 25р = 350р ) к этой сумме добавляем стоимость материала, покраски и других необходимых видов работ. Таким образом мы рассчитываем стоимость готового изделия.
Как измерить длину кривой линии в CorelDraw x7 стандартными инструментами. При резке на лазерном или фрезерном станке для правильного вычисления стоимости резки листового материала необходимо определить длину реза.
Данная статья наглядно объясняет как легко определить суммарную длину всех линий файла для резки.
Файлы для резки на лазерном или фрезерном оборудовании обычно разрабатывают в Corel Draw.
1. Открываем или рисуем произвольный векторный объект, или ряд объектов.
2. Объект должен быть переведен в кривые. Горячая клавиша для перевода в кривые (Ctrl+Q) либо выделив объект выбираем в главном меню вкладку (объект) далее (преобразовать в кривую)
3. Выделяем уже "закривленный" объект, наводим на него мышку, нажимаем правую кнопку мыши для вызова контекстного меню, в выпавшем контекстном меню выбираем пункт "свойства объекта"
либо нажимаем комбинацию горячих клавиш (Alt+Enter)
Справа у нас появляется окно "свойства объекта"
4. В верхней части этого окна нас интересует маленькая кнопочка "Кривая перейти к свойствам кривых"
5. Нажав на нее вы переходите в свойства кривых, где вам показана общая длина кривых выделенного объекта.
Если у вас сложный файл состоящий из множества разных объектов вам необходимо их все выделить и объединить в единый объект с помощью инструмента "объединить"
При этом в свойствах кривых вы сможете увидеть суммарную длину всех линий объекта.
Надеюсь данный метод будет вам полезен для расчета стоимости резки при размещении заказа в нашей компании.
Цены на лазерную и фрезерную резку размещены у нас на сайте по ссылкам ниже.