| Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате |
| Форум программистов > LISP > Помогите, пожалуйста, исправить программку!) |
| Автор: juli777 22.12.2012, 11:25 |
| задание: К данному отрезку восстановить перпендикуляр в его середине. мой вариант решения: (setq P1 (getpoint)) (setq P2 (getpoint)) (setq D (/ (distance P1 P2) 2)) (setq P3 (list (/ (+ (nth 0 P1) (nth 0 P2) ) 2) (/ (+ (nth 1 P1) (nth 1 P2)) 2) )) (command "_-line" P3 (polar P3 (/ pi 2) "") (command "_line" P1 P2 "") Проблема:перпендикулял должен строиться, даже когда данная линия под углом(у меня это не получается...) зарание, бесконечно благодарна!!!) |