[CDR X5-X8] CurveInfo площадь кривой

[Darsh]

Правильно ли я понимаю что Area в выводе данного макроса это площадь кривой (в квадратных единицах измерения)? Почему в этом файле https://forum.rudtp.ru/resources/area-calculation.2308/download?version=2489, у первой кривой площадь меньше чем у второй?

 

[_MBK_]

Файл с утюга посмотреть не могу, но вангую, что у вас кривая состоит из нескольких субконтуров или имеет самопересечения. Да, вы правильно поняли, area - косолапо реализована в модели.

 

[Darsh]

После правки небольших нахлестов в местах стыка букв (сделал надпись непрерывную), макрос стал показывать другие цифры, но все еще меньше чем должно быть.
Да я посмотрел исходник этого макроса, довольно просто вызывается .area (свойство или метод так понимаю самого Corel VBA) по вычислению площади. Есть ли альтернатива для вычисления площади? В Plotcalc и Ecut это как то иначе реализовано?

 

[_MBK_]

Свободу опоздавшим на праздник
Подарки раздарили со среды на четверг
[2017] - Доработать макрос расчета площади/периметра CorelDraw 2017

 

[dastin]

В Plotcalc и Ecut это как то иначе реализовано?

IMHO аналогично - просто собраны несколько алгоритмов подсчета площади - вся, внешняя, внутренняя, по растру - судите сами

ОДНАКО! присутствует предупреждение

Данная функция позволяет с высокой точностью вычислять площадь объектов. Причем отдельно площадь внутренних и внешних путей
Обязательное условие - отсутствие самопересечений, но даже если объекты пересекаются, то площадь таких объектов можно определить с помощью значения "площадь по растру"

 

[_MBK_]

Как видно из скриншота - площадь по умолчанию все равно считается встроенной функцией неправильно

 

[Darsh]

вся, внешняя, внутренняя, по растру

А это что за алгоритмы, отдельно написанные как я понимаю или тоже что то из стандартных свойств и методов Corel VBA?
По изучал проблему, есть еще IcoCalc и CAD Tools, может они лишены всех возможных багов?

 

[dastin]

VBA может выдать площадь простой (нескомбинированной) замкнутой кривой
на примеры буквы Q - она разбирается на три таких кривых - далее математика,
или берется длина и ширина охватывающего прямоугольника - BoundigBox
или в растр - и подсчет попиксельно - вот в качестве примера от известного автора
IcoCalc и CAD Tools . это ведь совсем другая песня ... и слова там не на VBA

 

[_MBK_]

Самый точный и надёжный вариант (я такой реализовывал) - площадь по растру. На всех остальных возможны коллизии.

 

[dastin]

(я такой реализовывал)

а известный автор - это таки кто?

 

[_MBK_]

Нет, там очень приблизительная оценка, я про другое.

 

[Darsh]

ли берется длина и ширина охватывающего прямоугольника - BoundigBox

Мне для просчета стоимости гравировки, сейчас примерно так и обходимся но это не очень удобно.

IcoCalc и CAD Tools . это ведь совсем другая песня ... и слова там не на VBA

Устроило бы решение и не на VBA, но внутри Corel Draw. По растру если не ошибаюсь площадь можно и в Photoshop глянуть, но это лишние телодвижения.

 

[_MBK_]

"Внутри CorelDraw" но "не на VBA" это как?