Как измерить длину окружности в coreldraw (7 видео)

Как измерить длину кривой в CorelDraw x7

Данная статья наглядно объясняет как легко определить суммарную длину всех линий файла для резки.

Файлы для резки на лазерном или фрезерном оборудовании обычно разрабатывают в Corel Draw.

1. Открываем или рисуем произвольный векторный объект, или ряд объектов.

2. Объект должен быть переведен в кривые. Горячая клавиша для перевода в кривые (Ctrl+Q) либо выделив объект выбираем в главном меню вкладку (объект) далее (преобразовать в кривую)

3. Выделяем уже «закривленный» объект, наводим на него мышку, нажимаем правую кнопку мыши для вызова контекстного меню, в выпавшем контекстном меню выбираем пункт «свойства объекта«

либо нажимаем комбинацию горячих клавиш (Alt+Enter)

Справа у нас появляется окно «свойства объекта«

4. В верхней части этого окна нас интересует маленькая кнопочка «Кривая перейти к свойствам кривых«

5. Нажав на нее вы переходите в свойства кривых, где вам показана общая длина кривых выделенного объекта.

Если у вас сложный файл состоящий из множества разных объектов вам необходимо их все выделить и объединить в единый объект с помощью инструмента «объединить«

При этом в свойствах кривых вы сможете увидеть суммарную длину всех линий объекта.

Надеюсь данный метод будет вам полезен для расчета стоимости резки при размещении заказа в нашей компании.

Цены на лазерную и фрезерную резку размещены у нас на сайте по ссылкам ниже.

Видео:Как узнать длину линий в макете, используя CorelDraw?Скачать

Макрос расчета длины в 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Скачать

Как измерить длину окружности в 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, чтобы сохранить настройки.

Нарисуйте несколько фигур, выделите их, нажмите на значок макроса, который Вы перетащили на панель инструментов и увидите длину периметра всех выделенных объектов.

Кроме этого, макрос предлагает Вам создать информационный текст.

Для этого в окне макроса нажмите Да и выберите место для текста.