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

  • Автор темы Автор темы Slx1
  • Дата начала Дата начала
Статус
Закрыто для дальнейших ответов.

Slx1

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

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

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

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

Большое спасибо!!!!
(только не на первом, а на последнем :))
 
Статус
Закрыто для дальнейших ответов.