Меню

Измерить длину кривой корел



Макрос расчета длины в CorelDraw

admin 2019-03-10 Инструкции Комментарии к записи Макрос расчета длины в CorelDraw отключены 5,622 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 & » мм», , «Длина кривых» ‘Выводим значение суммарной длины всех выделенных элементов.

Источник

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

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. Нажав на нее вы переходите в свойства кривых, где вам показана общая длина кривых выделенного объекта.

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

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

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

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

Источник

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Источник

Измерить длину кривой корел

С помощью этого макроса можно измерить длину периметра векторных фигур.

Если Вы хотите измерить длину периметра текста, переведите его в кривые.

Этот макрос полезен для расчета длины фрезерной резки.

Читайте также:  Занятие 14 измерение массы стр 27

– измеряются также без проблем: сгруппированные разнотипные объекты, эффекты: контур, экструзия, конверт, перспектива, перетекание объектов;

– не возникает программной ошибки в случае объектов с большим количеством точек. Например, веторные кривые, полученные трассировкой изображений в CorelTRACE;

Установка:

1. Закройте CorelDRAW

2. Скачайте макрос на компьютер.

3. Переместите скачанный макрос в папку

C:\Program Files\Corel\CorelDRAW Graphics Suite X7\Draw\GMS

C:\Program Files(х86)\Corel\CorelDRAW Graphics Suite X7\Draw\GMS

4. Откройте CorelDRAW

5. На верхней панели нажимаем Инструменты / Параметры
(Tools / Options) или нажимаем Ctrl+J. Откроется окно настроек.

6. Далее: Рабочее пространство / Настройки / Команды
(Workspace / Customization / Commands)

7. Чуть правее среди команд в выпадающем меню рядом с биноклем выберите Макросы

8. Из списка открывшихся макросов выберите
PerimeterModule…

9. На вкладке Вид (Appearance) можно выбрать значок из предложенных или загрузить свой.

10. Ухватите макрос левой кнопкой мыши и перетащите на любую панель инструментов. Теперь он всегда под рукой.

11. В окне настройки нажмите Ok, чтобы сохранить настройки.

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

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

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

Понравилась статья? Не забудьте поделиться с друзьями и коллегами

Источник

Измерение расстояний

Используйте команду GetDistance для измерения расстояний или углов между двумя точками. Данной командой можно воспользоваться в прозрачном режиме. Точки могут произвольными и не являться частью чертежа.

Измерение расстояния между точками

  1. Выберите элемент Инструменты > Сведения> Получить расстояние (или введите Get Distance).
  2. В графической области выберите две точки, между которыми необходимо измерить расстояние.

Отобразятся результаты измерения:

расстояние = , угол на плоскости XY = , угол от плоскости XY =
дельта X = , дельта Y = , дельта Z =

Расстояние: абсолютное расстояние между точками.

Угол на плоскости XY: угол до второй точки, начиная с оси Х. В результате измерения отобразится значение меньшего угла независимо от направления поворота.

Угол от плоскости XY: угол между первой и второй точкой от плоскости XY к плоскости Z. Первая точка предположительно находится на плоскости XY.

Дельта X, Дельта Y и Дельта Z: измерение расстояния между двумя точками в направлении соответствующей оси системы координат. Значения длины приводятся в единицах измерения чертежа.

Если на расстоянии, которое необходимо определить, располагаются геометрически значимые точки, например начальные или конечные точки объекта чертежа, используйте Привязки объекта.

Меню: Инструменты > Сведения> Получить расстояние

Источник