Показать сообщение отдельно
Непрочитано 26.04.2010, 10:24 #1
Вопрос: Интерактивное построение полилинии внутри lisp-программы
Tonic
 
Воронеж
Регистрация: 26.06.2007
Сообщений: 135

Всем привет!
Вот такая небольшая проблемка появилась: нужно организовать построение полилинии (заданной толщины) с возможностью построения дуговых сегментов по трём точкам (то есть, по двум - первая известна), с отключенным "эхом".
Что-то вроде этого (в таком виде не работает):
Код:
[Выделить все]
(initget "Arc Дуга")
(setvar "CMDECHO" 0); всё равно потом включается
(while (setq stat (getpoint "\nНачало полилинии или [Arc/Дуга]: <Завершить>"))
(command "_pline" stat "_w" 3.0 3.0)
(while (/= (getvar "cmdactive") 0) (command pause))
);while
(initget 0)
;если указана точка - построение полилинии сегментами (как обычно)
;если выбрано ключ. слово - указание двух точек (вторая точка дуги и конечная) и построение дугового сегмента с переходом снова в режим линейного сегмента
;если нажата Enter ("Завершить"), то выход из цикла

Вроде, не сложно, но правильная идея реализации не приходит.
Просмотров: 2816
 
Размещение рекламы