Здравствуйте!
Мне нужна такая программа, которая измеряет расстояние между двумя точками и затем меняет значение указанного текста на вычисленное.
Примерно так:
(defun dist_all ()
(setq pt1 (getpoint "\n Start point >"))
(while t
(setq pt2 (getpoint pt1"\n Next point >"))
(setq x (distance pt1 pt2))
(print x)
(command ".__mtedit")
(command "._ctrlA")
(command "._ctrlv")
)
)
Только у меня она не работает после 7 строки. Надо чтобы значение Х, было введено вместо выделенного текста.