[CB]

Подскажите пожалуйста как по двум точкам с помощью функции еntmakex создать дуговой сегмент полилинии.

[Александр Ривилис]

По двум точкам не создашь. Через две точку можно провести только прямую. А вот для дуги нужны две точки и радиус или три точки.

[CB]

Хорошо. Тогда по двум точкам и радиусу.

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

Так это... DXF Reference:

Код:

[Выделить все]

(entmakex (list (cons 0 "LWPOLYLINE")
                (cons 100 "AcDbEntity")
                (cons 100 "AcDbPolyline")
                (cons 90 2)
                (cons 70 0)
                (cons 10 (list 0. 0. 0.))
                (cons 42 1.)
                (cons 10 (list 100. 0. 0.))
                ) ;_ end of list
          ) ;_ end of entmakex

Строится по точкам и тангенсу четверти угла, вписанного в дуговой сегмент

[VVA]

Здесь приведена вся геометрия для расчета кривизны (bulge):
Polyline Bulges on AfraLISP

[CB]

Спасибо всем! Собственно меня и интересовал расчет 42 кода DXF.