[ALEXGVOZ]

Добрый день. Подскажите пож-та как вставить блок в первую вершину полилинии (полилиний много) чтобы он вставился с оринтецией по объекту (тоесть чтобы повернулся по направлению к полилинии). надо вставить только в первую вершину!!!!!!

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

Где код и в каком конкретно месте проблема?

[trir]

я такое в Excel'e делал

[VVA]

vlax-curve-getpointatparam и vlax-curve-getfirstderiv в помощь
Пример (запускать в прикрепленном файле, выбрать полилинию)

Код:

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

(vl-load-com)
(setq pl (car(entsel "\nВыберите полилинию: ")))
(setq pt1vx (vlax-curve-getPointAtParam pl 0));_ Координаты первой вершины полилинии
(setq d1 (vlax-curve-getFirstDeriv pl 0));_первая производная в 1-й точвке полинии
(setq pt2 (mapcar '+ pt1vx d1))
(command "_.-INSERT"
         "TEST" ;_имя блока
         "_none"
         pt1vx ;_точка вставки
         1     ;_масштаб по Х
         1     ;_масштаб по Z
         (/ (* (angle pt1vx pt2) 180.0) pi) ;_Угол в градусах
                                            ;_угол в радианах (angle pt1vx pt2) 
         )