[evgm]

Здравствуйте,

подскажите пожалуйста,
как на VB построить перпендикуляр к примитиву
конкретно пока интерисует к линии, полилинии и дуге
координаты точек для перпендикуляра на этих примитивах известны

Вообще-то нужно из конечной точки одного примитива отрисовать другой примитив так чтобы перпендикуляр первого примитива в конечной точке совпадал с перпендикуляром другого примитива в начальной точке, чтобы получался плавный переход. Что-то типа построения трассы автодороги, где прямые участки сопрягаются с круговыми кривыми через переходные кривые...

Может есть какие-то другие идеи?
Заранее спасибо.

[stas_org]

кроме координат точки нужно знать длину этого перпендикуляра и тогда по теореме Пифагора и функциям углов можно найти координату другой точки перпендикуляра.

[evgm]

длина перпендикуляра может быть любой (после построения он будет удален)
рассчитать-то тоже конечно можно, просто я подумал что это можно средствами акада как-то сделать, например что-то типа
.AddPerpendicular(AcadPLine, dInsertionPoint)
Можно конечно еще нарисовать линию совпадающую с существующей
сделать AcadPLine.Rotate(dPointEnd, PI/2) а потом удалить...

[Кулик Алексей aka kpblc]

На лиспе это vlax-curve-getclosesetpointto. На VB(A) есть возможность подключаться к лиспу (см. поиск по форуму; по-моему, было в "Готовых программах").

[zamtmn]

У тебя двумерный случай? т.к. в 3d к линии перпендикуляров много.

в 2д перпендикуляр к линии (x1,y1)(x2,y2) - (y2-y1,x2-x1)
также для сегментов полилинии
для дуги перпендикуляр - отрезок от центра дуги к точке на дуге

[evgm]

Спасибо большое
а может есть другой способ решения? без перпендикуляров?
без построения и удаления перпендикуляров
поскольку координаты всех примитивов вычисляются начиная от (0,0,0)
потом переносятся в конечную точку последнего и перпендикуляры нужны только чтобы узнать угол поворота
см вложение