Длина кривой в кореле

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

  • Главная
  • Товары и услуги
    • Фрезерная резка
    • Лазерная резка и гравировка
    • Проекционные Технологии
    • Рекламное — выставочное оборудование
    • Модульные картины Дешево фото на холсте
    • Фотообои
    • POS — Материалы
    • Производственные услуги
    • Вывески и лайтбоксы
    • Полиграфические услуги
    • Расходные материалы
    • Сувенирная продукция готовые решения
    • Запчасти для широкоформатных принтеров
    • Продажа и ремонт оборудования
    • Аренда спецтехники
    • Доставка по Алматы
    • Автоматизация бизнеса Bon Sens
    • Сопутствующие товары
    • IT-Polyclinic
    • Электроарматура
    • Строй материалы
    • Крепёжные материалы
    • Металлическая и пластиковая фурнитура
    • Тактильная продукция и средства адаптации
    • Алюминиевые профильные системы
    • Продажа материала погонными метрами
    • Рекламное и выставочное оборудование
    • Источники света — светодиоды и софиты
    • Источники питания и управления
    • Клеевые решения
    • Инструменты рекламщика
    • Металлическая и пластиковая фурнитура
    • Рекламное агентство — дизайн и креатив
    • Профили и комплектующие
    • Электротовары для производства рекламы
    • Жидкости, масла и химия
    • Рулонные материалы для наружной рекламы
    • Тактильная продукция и средства адаптации
  • О нас
  • Контакты
  • Доставка и оплата
  • еще
    • Главная
    • Товары и услуги
      • Фрезерная резка
      • Лазерная резка и гравировка
      • Проекционные Технологии
      • Рекламное — выставочное оборудование
      • Модульные картины Дешево фото на холсте
      • Фотообои
      • POS — Материалы
      • Производственные услуги
      • Вывески и лайтбоксы
      • Полиграфические услуги
      • Расходные материалы
      • Сувенирная продукция готовые решения
      • Запчасти для широкоформатных принтеров
      • Продажа и ремонт оборудования
      • Аренда спецтехники
      • Доставка по Алматы
      • Автоматизация бизнеса Bon Sens
      • Сопутствующие товары
      • IT-Polyclinic
      • Электроарматура
      • Строй материалы
      • Крепёжные материалы
      • Металлическая и пластиковая фурнитура
      • Тактильная продукция и средства адаптации
      • Алюминиевые профильные системы
      • Продажа материала погонными метрами
      • Рекламное и выставочное оборудование
      • Источники света — светодиоды и софиты
      • Источники питания и управления
      • Клеевые решения
      • Инструменты рекламщика
      • Металлическая и пластиковая фурнитура
      • Рекламное агентство — дизайн и креатив
      • Профили и комплектующие
      • Электротовары для производства рекламы
      • Жидкости, масла и химия
      • Рулонные материалы для наружной рекламы
      • Тактильная продукция и средства адаптации
    • О нас
    • Контакты
    • Доставка и оплата

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

В тему лазерной резки. Постоянно обновляемый каталог готовых файлов для лазерной резки 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 & » мм», , «Длина кривых» ‘Выводим значение суммарной длины всех выделенных элементов.

AdSci

Скачать иконку Вычисление периметра…

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

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

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

От автора:

1) Ввиду особенностей матаппарата самого CorelDraw, точность измерения длин криволинейных фигур не является абсолютно точной. Погрешность составляет 0,01%, т.е. если периметр получился, например, 10 метров, то ошибка составит +- 1 миллиметр. Для дизайна — это сверхточность. 2) Макрос анализирует типы объектов и производит определенные действия с ними: – отсеивание объектов, не подлежащих измерению: bitmap, OLE, linear dimension, mesh fill, HTML;
– drop-shadow (тени) — «исчезают» и измеряется только ВЕКТОРНЫЙ источник; – artistic media перья (спрей, разбрызгивание объектов и т.д.) — измеряется только направляющая кривая; – эффект контейнера — измеряется только периметр контейнера, содержимое не учитывается; – эффект bevel — измеряется только основной объект; – размерные линии (linear dimention) — не измеряются; – любые типы текстовых объектов можно не переводить в кривые, они будут посчитаны; – объект Таблица тоже входит в измеряемые объекты и будет измерен;

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

– эффект перетекания объектов вычисляется полностью, т.е. оба базовых и все перетекающие объекты. 3) Более надежный алгоритм:

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

4) Визуализация процесса: – все объекты, которые подлежат измерению, подсвечиваются желтым контуром, а те, которые не измеряются — «исчезают» на время работы макроса. Всё это можно увидеть, предварительно выставив зум на выделенные объекты, а затем при появлении окна, перемещая его по экрану. Но! Есть у меня уже версия, где окно программное не появляется, а информация создаётся в документе в виде текста; 5) Получение итогов: – выводится в окне статистика о количестве измеренных и неизмеренных объектов; – по завершению работы макрос спросит, нужно ли создать текст с полученным результатом измерений. Если ответ «Да», то нужно кликнуть в то место, где должен появиться этот тект. 6) Планы на будущее: – предполагаю добавить возможность измерять периметр битмапов. Я имею ввиду периметр контурной рамки, которую мы зачастую редактируем у битмапов; – надеюсь на вашу информационную поддержку, т.е. на отзывы, замечания, пожелания и т.д., чтобы я мог усовершенствовать этот инструмент. Ну, и наконец, на всякий случай для формальности замечу, что программка — бесплатная. Хотите — пользуйтесь, хотите — нет. Я не несу ответственности за возможные сбои, ошибки и т.п. последствия работы этого макроса. При возникновении таких случаев я обещаю разобраться в ситуации и сделать попытку исправить код макроса. Вобщем, всё будет видно по отзывам. Надеюсь на вас. С уважением, Сергей Баюров, г. Харьков.

Установка:

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, чтобы сохранить настройки.

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

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

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

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

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

У знакомого чела взял макрос для CorelDraw10, состоящий из трех файлов:
CurveLength.bas, frmCurveLen.frm и frmCurveLen.frx, в надежде,
что он заработает в CorelDrawX3. Надежды не оправдались — он запускался,
но криво и при перезапуске программы не «подхватывался».
После безуспешной возни обратил внимание на «FileConverter.gms»
(Visual Basic устанавливается вместе с Draw и позволяет просматривать
и редактировать макросы). Решив поэкспериментировать, я открыл копию
«FileConverter.gms» в Visual Basic, грохнул все строки и импортировал
имеющиеся у меня вышеупомянутые файлы.
Оно заработало.
Потом я отредактировал выпадающее меню с единицами измерения так,
чтобы не приходилось его прокручивать, изменил фразу об ошибке, возникающей
при измерении не кривой (текста и пр.), подогнал вплотную к друг другу элементы
интерфейса и минимизировал окно, чтобы на экране много места не занимало.
Потом, не найдя текста об авторе, добавил серых букв про себя.
К сожалению не смог поставить по умолчанию миллиметры и сделать возможным
выбрать данные измерения и скопировать их в буфер обмена.
Потом выложил сюда, чтобы кто-нибудь еще проверил.
Потом нажал кнопку и пошел спать.
-=-=-=-=-=-=-=-
А у БГ винда лицензионная!

Длина кривой в кореле

Добавить комментарий

Ваш e-mail не будет опубликован. Обязательные поля помечены *