[CDR 2017-2021] Автообновление данных.

[fedonkin]

Всем привет. Помогите пожалуйста. Хочется сделать выборку по всем замкнутым кривым и считать площадь. Текст с площадью внутри кривой автообновляется при ее изменении. Возможно ли автообновление?
Нашел макрос от cdrtools. Он считает площадь только выбранной кривой.
Нужно через For Each делать переборку? И как зафиксировать текст внутри кривой?

 

[DukereD]

нужно добавить в обработчик событий

 

[_MBK_]

Вообще то не на DocumentOpen, а на ShapeChange, или этот эвент не работает снова?

 

[DukereD]

Вообще то не на DocumentOpen, а на ShapeChange, или этот эвент не работает снова?

главное на скриншоте справа. а слева это у меня просто кусок готового кода был. )))
давать подсказку влоб - и люди совсем перестанут своей головой думать. итак половина "программистов" Ctrl+C Ctrl+V
я бы повесил на SelectionChange

 

[_MBK_]

я бы повесил на SelectionChange

А все таки, что не так с ShapeChange - oно таки работает в актуальных или нет?

 

[DukereD]

А все таки, что не так с ShapeChange - oно таки работает в актуальных или нет?

так его нет в списке.

 

[DukereD]

Всем привет. Помогите пожалуйста. Хочется сделать выборку по всем замкнутым кривым и считать площадь. Текст с площадью внутри кривой автообновляется при ее изменении. Возможно ли автообновление?
Нашел макрос от cdrtools. Он считает площадь только выбранной кривой.
Нужно через For Each делать переборку? И как зафиксировать текст внутри кривой?

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

 

[_MBK_]

так его нет в списке.

document.ShapeChange event - Developer Area - CorelDRAW Community

community.coreldraw.com

 

[_MBK_]

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

Трабл имеется, но сложные алгоритмы не обязательны

[CDR 2017-2021] - Доработать макрос расчета площади/периметра CorelDraw 2017

Добрый день! Есть макрос который нужно доработать, очень выручал при подсчете объемов! Сам в программировании не разбираюсь! Рассматриваю любые предложения! Основные задачи: 1) Макрос должен работать под CorelDraw 2017 64бит 2) Считать площадь/периметр с учетом текущего масштаба документа...

forum.rudtp.ru

 

[DukereD]

document.ShapeChange event - Developer Area - CorelDRAW Community

community.coreldraw.com

Private Sub GlobalMacroStorage_ShapeChange(ByVal Shape As Shape, ByVal Scope As cdrShapeChangeScope)
MsgBox 1
End Sub


не работает

 

[DukereD]

Трабл имеется, но сложные алгоритмы не обязательны

[CDR 2017-2021] - Доработать макрос расчета площади/периметра CorelDraw 2017

Добрый день! Есть макрос который нужно доработать, очень выручал при подсчете объемов! Сам в программировании не разбираюсь! Рассматриваю любые предложения! Основные задачи: 1) Макрос должен работать под CorelDraw 2017 64бит 2) Считать площадь/периметр с учетом текущего масштаба документа...

forum.rudtp.ru

перечитал тему а решения так и не нашел. то что надо искать вложенность и складывать - вычитать это итак понятно. но с самопересечением то вопрос все равно остается открытым.

 

[_MBK_]

перечитал тему а решения так и не нашел. то что надо искать вложенность и складывать - вычитать это итак понятно. но с самопересечением то вопрос все равно остается открытым.

Ну там в итоге сделали так: отрастрировали и посчитали точки. Тем более, в самом кореле это так и реализовано внутри

 

[DukereD]

Нужно через For Each делать переборку?

это уж скорее всего и не только через for each но и по всем внутренним "курвам" пробежаться.

И как зафиксировать текст внутри кривой?

что значит зафиксировать? если есть объект - есть его координаты - создаете объект тектса в нужных координатах . если надо чтобы "не отвалился" группируете вмест

 

[DukereD]

Ну там в итоге сделали так: отрастрировали и посчитали точки. Тем более, в самом кореле это так и реализовано внутри

ах епт... во как.. жостка ))) хочется математики. а какой простой способ найти самопересечение?

 

[dastin]

не работает

и шейп определен, и изменения?

 

[DukereD]

и шейп определен, и изменения?

да. менял и цвет и размер и в кривые переводил.

 

[_MBK_]

и шейп определен, и изменения?

Ну это тоже известная багофича, но я думал, мало ли, может пофиксили?

 

[_MBK_]

ах епт... во как.. жостка ))) хочется математики. а какой простой способ найти самопересечение?

Там ну очень взрослый матан для того, чтоб его на VBA реализовывать

 

[DukereD]

Там ну очень взрослый матан для того, чтоб его на VBA реализовывать

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

 

[_MBK_]

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

Я про площадь. А что, самопересечения сегмента самого с собой не нужны?