Как узнать длину линий в coreldraw

[CDR 2017-2020] Подскажите где посмотреть длину нарисованной простой линии?

Хомячки не умеют плавать. Научить их – наша задача. Брось с размаху их в синее море! Пусть сопутствует им удача!

mxuper

Участник

Топикстартер
Сообщения 9 Реакции 0

Первая ссылка гугла по запросу «длина линии corel draw»

То есть, я так понял, чтобы посмотреть, какой длины получилась линия её нужно преобразовывать в кривую?

Jeine

Да здравствует разум! Да сгинет маразм!

15 лет на форуме
Сообщения 6 989 Реакции 6 086
А щас она есть что?
Развернуть подпись

Хомячки не умеют плавать. Научить их – наша задача. Брось с размаху их в синее море! Пусть сопутствует им удача!

mxuper

Участник

Топикстартер
Сообщения 9 Реакции 0
А щас она есть что?

Сейчас она: «Прямая соединительная линия» (рядом с инструментами «соединительная линия под прямым углом» и «соединительная линия под закруглённым прямым углом»

Jeine

Да здравствует разум! Да сгинет маразм!

15 лет на форуме
Сообщения 6 989 Реакции 6 086
В стартовом вопросе я прочёл буквально следующее:
посмотреть длину нарисованной обычной линии
Теперь же она чудесным образом трансмутировала в
Прямая соединительная линия
Ну да ладно.
Да.
Её нужно закривить.
Развернуть подпись

Хомячки не умеют плавать. Научить их – наша задача. Брось с размаху их в синее море! Пусть сопутствует им удача!

BazzilioTheCat

Сообщения 354 Реакции 76

можно еще вот так — Макросы для corel — теперь когда я знаю что скрипт общественный, всюду буду его пихать )
его дорабатывают тут — [2017] — Доработать макрос расчета площади/периметра CorelDraw 2017
мой, — это оригинальный от Corel )

Развернуть подпись

Поделиться:

• RUDTP gray fixed
• Русский (RU)

• Обратная связь
• Условия и правила
• Политика конфиденциальности
• Помощь
• RSS

Перевод: Jumuro | Хостинг: DataForce

На данном сайте используются cookie-файлы, чтобы персонализировать контент и сохранить Ваш вход в систему, если Вы зарегистрируетесь.
Продолжая использовать этот сайт, Вы соглашаетесь на использование наших cookie-файлов.

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

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

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

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

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

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

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

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

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

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

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

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

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

Как узнать длину линий в coreldraw

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

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

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

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

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

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

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

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