Тема: Как получить длину кривой?

Получить растояние от точки до точки по прямой очень просто. Посоветуйте как получить длину сплайна между точками лежащими на нем используя VBA.

Re: Как получить длину кривой?

В лиспе есть хорошие функции по работе с кривыми.
Вам наверно поможет функция Vlax-curve-getDistAtPoint и др.
Пример:
(Vlax-curve-getDistAtPoint (car(entsel)) '(200 200))
т. е. постройте сплайн чтобы он проходил через точку 200 200,
запустите в ком. строке то что написано выше, получите длину от начальной точки до точки 200 200

Re: Как получить длину кривой?

P. S.  Насколько я знаю вызвать функцию лиспа из ВБА можно через SentCommand. Присвойте то что вернёт ф-ция лиспа переменной USERI, далее читайте её в ВБА.

Re: Как получить длину кривой?

Спасибо AV.