[DEM]

Прблема с присвоением значения
вот кусок проблемного кода

Код:

[Выделить все]

 (command "_.text" pt2 2.5 0 P)
  (setg L (strlen P))
  (setq pt3 (list (+ (nth 0 pt1) L) (nth 1 pt1) (nth 2 pt1)))
  (command "_.pline" pt2 pt3 "")

atoi и atof результата на дают

[Profan]

Прежде всего, надо исправить setg на setq.
Я составил такую программку:

Код:

[Выделить все]

(apply '(lambda ()
(setq pt1 (getpoint "\n Укажите 1 точку: "))
(setq pt2 (getpoint "\n Укажите 2 точку: "))
(setq p "Проверка")
(command "_.text" pt2 2.5 0 P) 
(setq L (strlen P)) 
(setq pt3 (list (+ (nth 0 pt1) L) (nth 1 pt1) (nth 2 pt1))) 
(command "_.pline" pt2 pt3 "")
(princ)
)
'()
)

Все работает.
Не знаю, правда, что у вас скрывается в переменной P. Может быть, текст без кавычек?

[DEM]

Спасибо :%))))))
А то сижу разбираюсь (туплю)