Создание контрольных точек на пересечениях контуров

[Slx1]

Коллеги! Необходим следующий макрос: имеем множество контурных объектов, выделяем пару -- в месте, где линии контуров пересекаются на верхнем из выделенных добавляются Nodes (в соответствии с кривизной контура)

Может уже есть готовое решение -- ткните носом
Или что будет стоить такое написать в виде макроса?

Заранее спасибо!

 

[lev]

Ответ: Создание контрольных точек на пересечениях контуров

Открываем хелп по Corel VBA, копируем пример кода из "SubPath.GetIntersections"
меняем строку
ActiveLayer.CreateEllipse2 cp.PositionX, cp.PositionY, 0.05
на
sp1.AddNodeAt cp.Offset.
Точки будут прибавляться не на верхнем объекте, а на первом по очерёдности выделения.

 

[Slx1]

Ответ: Создание контрольных точек на пересечениях контуров

Большое спасибо!!!!
(только не на первом, а на последнем