[shartal]

Господа, каким образом это реализовать? Значение переменной может быть произвольное (userr1).

[hwd]

мда... Сначала МишаИнженер, теперь shartal... Вопросы всё "мощнее" и "мощнее"...

[Do$]

Сообщение от shartal Создание команды на запрос изменения значения

Ну и формулировочка!
Непонятно, что нужно-то?

[shartal]

Кнопку которая вызовет в ком. строке строчку "Задайте значение ХХХ" После того как число введено, оно присвоено системной переменной.

Вариант ввести (setvar...) не устраивает.

[mamuk]

так может на лиспе написать повесить его на кнопку?

[Дима_]

Код:

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

 (defun set-var (var help)
  (setvar var
    (((lambda (tp)
      (cond
       ((= tp 'str) getstring)
       ((= tp 'int) getint)
       ((= tp 'real) getreal)))
     (type (getvar var))) help)))

пример вызова (set-var "pdsize" "\n Размер точек: ")

[Do$]

Или так (загрузить, запустить командой TEST):

Код:

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

 (defun c:test (/ real dimz)
  (setq dimz (getvar "dimzin"))
  (setvar "dimzin" 0)
  (if (numberp (setq real
		      (vl-catch-all-apply
			'(lambda ()
			   (getreal
			     (strcat
			       "\nЗадайте значение XXX:<"
			       (rtos (getvar "userr1")
				     (getvar "lunits")
				     (getvar "luprec")
			       ) ;_ end of rtos
			       ">"
			     ) ;_ end of strcat
			   ) ;_ end of getreal
			 ) ;_ end of lambda
		      ) ;_ end of vl-catch-all-apply
	       ) ;_ end of setq
      ) ;_ end of numberp
    (setvar "userr1" real)
  ) ;_ end of if
  (setvar "dimzin" dimz)
  (princ)
) ;_ end of defun

[shartal]

Спасибо Дима. Только зачем нужен весь код, достаточно строчки вызова

[Дима_]

По моему кому-то надо подучить лисп. А ты попробуй новый документ открой и без кода "строку вызова" запусти.