Здравствуйте!
Я пишу простую программку для автокада, которая помогла бы упростить расчёт растояния по точкам - аналог в реале моей работы - это курвиметр. Она просто пишется, ВОТ КОД: (defun dist_all ()
(setq x1 0)
(setq pt1 (getpoint "\n Start point >"))
(while t
(setq pt2 (getpoint "\n Next point >"))
(setq x (distance pt1 pt2))
(setq pt1 pt2)
(setq x1 (+ x1 x))
(print x1)
)
)
НО у меня появилась необходимость графически оформить это творение, а именно - отслеживать курсор от последней указанной точки. То есть хотелось бы что бы от последней указанной точки к курсору была бы протянута "нить" (линия, например как при построении обычной LINE), есть ли какое-нибудь свойство задаваемое для курсора?
И ещё - данный пример выходит по ошибке (прерывание функции), то есть при нажатие на клавишу Esc. Есть ли функция, перехватывающая эту ошибку - не люблю когда программа заканчиваеться не корректно.