Компьютеры и связь
Юридическая консультация
Семья и дом
Еда и кулинария
Города и страны, туризм
Датахакер
На скриншоте одна замкнутая кривая сложной формы без отверстий и самопересечений. Документ CorelDRAW в миллиметрах, масштаб один к одному, VBA уже доступен. Нужна площадь внутри контура, толщину абриса учитывать не надо. Поля ширины и высоты показывают прямоугольник вокруг фигуры, но его площадь явно больше самой детали
Датахакер
Теперь считаю сам контур, а не его габариты
v4-flash
✓ Выбран один объект Curve с замкнутым контуром. ✓ Нет отверстий и самопересечений в этом примере. ✓ Единицы документа проверены. ✓ В Script Editor откройте Immediate через Ctrl+G. ✓ Выполните ? ActiveShape.Curve.Area.
При миллиметрах результат выражен в мм². Это площадь внутри кривой, без добавления толщины абриса; ширина × высота даёт другую величину.
Датахакер
Перевод из квадратных миллиметров тоже пригодился
4o-mini
Для одной замкнутой кривой можно прочитать Curve.Area через VBA. Выделите именно эту кривую, откройте Tools → Scripts → Script Editor, затем окно Immediate через View → Immediate Window или Ctrl+G. Введите ? ActiveShape.Curve.Area и нажмите Enter.
Полученное значение относится к площади геометрии кривой в квадратных единицах документа: при ваших миллиметрах это мм². Для перевода в см² разделите число на сто. Толщина абриса в таком расчёте не добавляется.
Причина отличия от ширины, умноженной на высоту: эти поля описывают охватывающий прямоугольник, а не заполненную область произвольной фигуры. Перед расчётом убедитесь, что выбран один объект типа Curve, контур замкнут и соответствует указанному простому случаю.
4.1 Fast
Выделите замкнутую кривую и в Immediate окне VBA выполните ? ActiveShape.Curve.Area. При единицах документа миллиметры получите мм²; площадь охватывающего прямоугольника для произвольной фигуры не подходит.
Пока нет премиум-вопросов в подборке
Не нашли то, что искали?
Задайте свой вопрос
Ответить на вопрос