Содержание
Подпишись и узнай первым о выходе новой версии PlotCalc.
25.11.2018 Улучшена система доставки кодов активации для пользователя после оплаты.
Измерение длины кривых линий в CorelDraw
Функция позволяет измерять длину кривых линий в CorelDRAW.
Для измерения длины кривых достаточно выделить группу объектов (это могут быть сгруппированые тексты, фигуры и фигурные тексты не конвертированные в кривые)
Программа имеет абсолютную точность расчёта, т.к. измеряет непосредственно длину кривых Безье, а не множество коротких прямых отрезков.
После расчёта длины кривых вы также сможете при необходимости подсчитать стоимость порезки на плоттере, для этого достаточно указать цену за один метр и установить процент скидки (со знаком минус) или надбавки к стоимости.
Как измерить длину кривой линии в CorelDraw x7 стандартными инструментами. При резке на лазерном или фрезерном станке для правильного вычисления стоимости резки листового материала необходимо определить длину реза.
Данная статья наглядно объясняет как легко определить суммарную длину всех линий файла для резки.
Файлы для резки на лазерном или фрезерном оборудовании обычно разрабатывают в Corel Draw.
1. Открываем или рисуем произвольный векторный объект, или ряд объектов.
2. Объект должен быть переведен в кривые. Горячая клавиша для перевода в кривые (Ctrl+Q) либо выделив объект выбираем в главном меню вкладку (объект) далее (преобразовать в кривую)
3. Выделяем уже "закривленный" объект, наводим на него мышку, нажимаем правую кнопку мыши для вызова контекстного меню, в выпавшем контекстном меню выбираем пункт "свойства объекта"
либо нажимаем комбинацию горячих клавиш (Alt+Enter)
Справа у нас появляется окно "свойства объекта"
4. В верхней части этого окна нас интересует маленькая кнопочка "Кривая перейти к свойствам кривых"
5. Нажав на нее вы переходите в свойства кривых, где вам показана общая длина кривых выделенного объекта.
Если у вас сложный файл состоящий из множества разных объектов вам необходимо их все выделить и объединить в единый объект с помощью инструмента "объединить"
При этом в свойствах кривых вы сможете увидеть суммарную длину всех линий объекта.
Надеюсь данный метод будет вам полезен для расчета стоимости резки при размещении заказа в нашей компании.
Цены на лазерную и фрезерную резку размещены у нас на сайте по ссылкам ниже.
admin 2019-03-10 Инструкции Комментарии к записи Макрос расчета длины в CorelDraw отключены 1,403 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 & " мм", , "Длина кривых" ‘Выводим значение суммарной длины всех выделенных элементов.
Загрузка...
