[d2alex]

Помогите пожалуйста написать программу в AutoLISP для построения крюка. 23 июня- экзамен, а у меня еще ничего нет. В AutoLISP я полный профан, нам его преподали в ознакомительных целях, рассмотрели только самые простые операторы и попробовали создать простую фигуру:
(defun box1 (x y a b r)
(setq t1 (list x y)
t2 (list (+ x a) y)
t3 (list (+ x a) (+ y b))
t4 (list (+ x (+ (/ a 2) r)) (+ y b))
t5 (list (+ x (- (/ a 2) r)) (+ y b))
t6 (list x (+ y b))
t7 (list (+ x (/ a 2)) (+ y (- b r)))
)
(command "pline" t1 t2 t3 t4 "arc" "dir" 270 t7 t5 "line" t6 "close")
)
Моих знаний хватит, чтобы самому нарисовать требуемый крюк (по типу вышеуказанной программы), но при попытке изменить входные данные (что является обязательным условием задания) все мои дуги разбегутся в разные стороны, т.к. строить я их могу только по конечным точкам ( посчитанные для построения крюка в AutoCAD), а вот просчитать изменение этих точек в AutoLISP- выше моих сил, да и времени на изучение совсем не осталось. Пожалуйста помогите! Заранее благодарен.
[ATTACH]1182358054.gif[/ATTACH]

[d2alex]

Люди добрые перевелись? Помогите хоть советом. А то пожар разгорается: препод перенес экзамен, сказал чтобы работа была на консультации, т.е. 22.06.07 в 13-30 и у меня меньше суток. Заранее благодарен. Помогите!!!

[lee]

Сообщение от d2alex Люди добрые перевелись?

Уверен, не перевелись. Сам-то я глуп в ЛИСПе и даже советом поддержать не могу, кроме как "Мы верим в тебя, сынок".
Просто даже у добрых людей бывает плохое настроение и проблемы со сроками по работе. И если они совпадут с твоими проблемами, то это не значит, что мир против тебя.
А вот и совет созрел: купи банку кофе, и ночь впереди твоя.

[Геннадий aka PG]

Сообщение от d2alex ...а вот просчитать изменение этих точек в AutoLISP- выше моих сил, да и времени на изучение совсем не осталось. Пожалуйста помогите! Заранее благодарен. [ATTACH]1182358054.gif[/ATTACH]

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

[d2alex]

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

В том то и дело, что я могу это все посчитать вручную, могу в Pascal, но вся беда в том, что я не знаю языка AutoLISP

установи математические зависимости

установив эти зависимости я не смогу их реализовать ПРОГРАММНО, поэтому и обратился за помощью.

[Zouss]

так если можешь посчитай и покажи зависимости, а на LISP их реализуют махом