Команда AutoLispa

[ИВэТэшка]

Если кто-нибудь разбирается в языке AutoLisp-е, помогите плиз) Необходимо сделать сопряжение некоторых углов полилинии. Команду сопряжения я нашел... а как в ней указывать необходимые объекты незнаю
(command "_fillet" 45 ...)
//45 - угол сопряжения, ... - надо выбирать необходимые обекты.

[Rio309]

Что бы выбрать обьекты надо задать координаты, которые принадлежат каждой из линий.

[ИВэТэшка]

у меня есть все точки (p1, p2 .... ) углов которых надо сделать сопряжение, как их в команду запихать? Например... отрезок р1-р2 и отрезок р2-р3, с углом между ними надо сделать сопряжение.

[Rio309]

Сейчас лень запускать Автокад . Попробуйте что то типа:
(setq a(list (-(car p1) 5) (cadr p1)))
(setq b(list (car p2) (-(cadr p2)5)))
Это зависит от того откуда линии идут .Тоесть надо взять координаты, которые принадлежат именно этим линиям.
потом
(command "fillet" a b "")
Честно говоря не помню, как там правильно филлет задается, постройте вручную 2 линии и посмотрите что нажимаете при исспользовании филлета. В том что я написал, выбираете 1 линию, потом вторую, потом энтер.
Попробуйте.
Если не выйдет, пишите, таки запущу автокад .
И вопрос. Случайно не умеете пользоватся лямбда функциями и функционалами в MULisp'е? Просто мне тож помощь по лиспу нужна .

[ИВэТэшка]

спс, попробую! Про лямбда функции есть мануалы, примеры... а вот про функционалы ничего сказать не могу :-)

[ИВэТэшка]

(defun c:ept()
(setq p1 (getpoint "\ Точка: "))
(setq b (getdist "\ Длина: "))
(setq p2 (polar p1 (/ PI 2) (* b 3)))
(setq p3 (polar p2 0 (* b 4)))
(setq p4 (polar p3 (* 1.5 PI) (* b 9)))
(setq p5 (polar p4 0 (* b 3)))
(command "_pline" p1 p2 p3 p4 p5"_C" "")
)

вот так у меня задаются точки, через создание списков что-то не получается :-(

[Rio309]

а какая фигура? и где какие точки у нее?

[ИВэТэшка]

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