Данная статья наглядно объясняет как легко определить суммарную длину всех линий файла для резки.
Файлы для резки на лазерном или фрезерном оборудовании обычно разрабатывают в Corel Draw.
1. Открываем или рисуем произвольный векторный объект, или ряд объектов.
2. Объект должен быть переведен в кривые. Горячая клавиша для перевода в кривые (Ctrl+Q) либо выделив объект выбираем в главном меню вкладку (объект) далее (преобразовать в кривую)
3. Выделяем уже «закривленный» объект, наводим на него мышку, нажимаем правую кнопку мыши для вызова контекстного меню, в выпавшем контекстном меню выбираем пункт «свойства объекта«
либо нажимаем комбинацию горячих клавиш (Alt+Enter)
Справа у нас появляется окно «свойства объекта«
4. В верхней части этого окна нас интересует маленькая кнопочка «Кривая перейти к свойствам кривых«
5. Нажав на нее вы переходите в свойства кривых, где вам показана общая длина кривых выделенного объекта.
Если у вас сложный файл состоящий из множества разных объектов вам необходимо их все выделить и объединить в единый объект с помощью инструмента «объединить«
При этом в свойствах кривых вы сможете увидеть суммарную длину всех линий объекта.
Надеюсь данный метод будет вам полезен для расчета стоимости резки при размещении заказа в нашей компании.
Цены на лазерную и фрезерную резку размещены у нас на сайте по ссылкам ниже.
Макрос расчета длины в CorelDraw
admin 2019-03-10 Инструкции Комментарии к записи Макрос расчета длины в CorelDraw отключены 8,230 Views
В тему лазерной резки. Постоянно обновляемый каталог готовых файлов для лазерной резки 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
С помощью этого макроса можно измерить длину периметра векторных фигур.
Если Вы хотите измерить длину периметра текста, переведите его в кривые.
Этот макрос полезен для расчета длины фрезерной резки.
– измеряются также без проблем: сгруппированные разнотипные объекты, эффекты: контур, экструзия, конверт, перспектива, перетекание объектов;
– не возникает программной ошибки в случае объектов с большим количеством точек. Например, веторные кривые, полученные трассировкой изображений в CorelTRACE;
Установка:
1. Закройте CorelDRAW
2. Скачайте макрос на компьютер.
3. Переместите скачанный макрос в папку
C:Program FilesCorelCorelDRAW Graphics Suite X7DrawGMS
C:Program Files(х86)CorelCorelDRAW Graphics Suite X7DrawGMS
4. Откройте CorelDRAW
5. На верхней панели нажимаем Инструменты / Параметры
(Tools / Options) или нажимаем Ctrl+J. Откроется окно настроек.
6. Далее: Рабочее пространство / Настройки / Команды
(Workspace / Customization / Commands)
7. Чуть правее среди команд в выпадающем меню рядом с биноклем выберите Макросы
8. Из списка открывшихся макросов выберите
PerimeterModule…
9. На вкладке Вид (Appearance) можно выбрать значок из предложенных или загрузить свой.
10. Ухватите макрос левой кнопкой мыши и перетащите на любую панель инструментов. Теперь он всегда под рукой.
11. В окне настройки нажмите Ok, чтобы сохранить настройки.
Нарисуйте несколько фигур, выделите их, нажмите на значок макроса, который Вы перетащили на панель инструментов и увидите длину периметра всех выделенных объектов.
Кроме этого, макрос предлагает Вам создать информационный текст.
Для этого в окне макроса нажмите Да и выберите место для текста.
Понравилась статья? Не забудьте поделиться с друзьями и коллегами