Этот номер не пройдет по уже приведенной мною причине - скриптом невозможно создать криволинейный сегмент в принципе.Либо вообще создать новую кривую и считывать свойства каждой точки в цикле, а старую кривую потом грохнуть.
Вы хоть сами поняли что написали? Какие усы в скриптинге? Гляньте свойства объекта PathPoint - какие там усы???? И покажите мне хоть один пример скрипта (не скриптограферовского) который кривую рисует.Рисуем точку, задаем любую кривизну усами
Main
Sub Main()
Set ap = CreateObject("Illustrator.Application")
Set doc = ap.ActiveDocument
sl = doc.Selection
Set slpath = sl(0)
slpath.PathPoints(1).LeftDirection = Array(50, 100)
slpath.PathPoints(1).RightDirection = Array(200, 300)
end sub