[Vladimir_Sergeevich]

Автокад помнит последние введеные значения и команды. управляется это дело переменной INPUTHISTORYMODE, а где автокад хранит сами значения?
Если команда не выполняется - листает последние команды/ввод в комстроку, если выполняется - последние вводимые параметры (может запоминать имена блоков/точки/просто числа) и ведь предлагает их там же где они вводились (если getpoint - предлагает последние координаты, если getreal - последнее вводимое число)
Собственно и хочу при вводе getreal предложить "значение по умолчанию" - предыдущий ввод.

[Дима_]

В лиспе наверное только через реакторы...

[Alan]

перенес ответ в п.6

[Кулик Алексей aka kpblc]

Сообщение от Vladimir_Sergeevich при вводе getreal предложить "значение по умолчанию" - предыдущий ввод.

(getvar "lastpoint")

[Vladimir_Sergeevich]

Сообщение от Alan Что мешает ТЕБЕ запомнить введенное значение?

Если я не ошибаюсь, значение локальной переменной не запомнит (речь об отдельных вызовах функции), а объявлять глобальную желания как то нет...

[Alan]

Сообщение от Vladimir_Sergeevich Автокад помнит последние введеные значения и команды. управляется это дело переменной INPUTHISTORYMODE, а где автокад хранит сами значения? Если команда не выполняется - листает последние команды/ввод в комстроку, если выполняется - последние вводимые параметры (может запоминать имена блоков/точки/просто числа) и ведь предлагает их там же где они вводились (если getpoint - предлагает последние координаты, если getreal - последнее вводимое число) Собственно и хочу при вводе getreal предложить "значение по умолчанию" - предыдущий ввод.

Ну ты же работаешь с Лиспом! Что мешает ТЕБЕ запомнить введенное значение?

Код:

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

(setq ypp 6000.0
      yp  (getreal
	    (strcat "\n Введите значение <"
		    (rtos ypp 2 0)
		    ">: "
	    ) ;_ конец strcat
	  ) ;_ конец getreal
      yp  (if yp
	    yp
	    ypp
	  ) ;_ конец if
      ypp yp
) ;_ конец setq

[Vladimir_Sergeevich]

Сообщение от Alan ypp

В твоем случае это должна быть глобальная переменная.
И сразу: первое выполнение - ввожу вручную. последующие - предыдущий ввод. альтернатива - каждый раз тыкать стрелочку вверх и энтер. Автокад уже помнит это число, как до него добраться хочу знать.

[Alan]

Сообщение от Vladimir_Sergeevich В твоем случае это должна быть глобальная переменная.

Локальная в данной функции.
Все повторяющиеся значения вводятся обычно в цикле функции и приведенный способ ИМХО наипростейший.
Собирать все введенные значения? Боюсь, что такими результатами пользоваться не удастся или не нужно.

Сообщение от Vladimir_Sergeevich Автокад уже помнит это число, как до него добраться хочу знать.

Вопрос конечно интересный!

[Vladimir_Sergeevich]

Повторяюсь...

Сообщение от Vladimir_Sergeevich (речь об отдельных вызовах функции),

[Дима_]

Если нужны параметры своей-же команды - то не надо мудрить - делай глобальную переменную (они для этого и существуют), если для "всевозможных" то пиши свой реактор и опять-таки сохраняй в глобальной (т.к. автолисп не имеет замыканий (внутренних переменых) и сохранить ее более попросту негде).

[Лентяй]

Если уж совсем выдрючиваться, то можно из использованных значений переменной создать открытый список и выбирать из него через раскрывающееся меню. Так что DCL в руки с пожеланием успехов.

[ShaggyDoc]

Везде применяю пару функций

Код:

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

 (defun ru-user-write-last-param	(name value)
  (vl-registry-write
    (strcat (ru-reg-hkcu-storage-key) "\\" (ru-user-login) "\\" "")
    name
    value
  )
)


(defun ru-user-read-last-param (name default)
  (cond
    ((vl-registry-read  (strcat (ru-reg-hkcu-storage-key) "\\" (ru-user-login)) name))
    (t default)
  )
)

Это позволяет всегда инициализировать значение по умолчанию или использованное ранее. Для простоты в реестр записывается в строковом виде.

[Vladimir_Sergeevich]

Любопытное наблюдение: стояли у меня подряд три ввода (getreal "\nh") (getint "\nf") (getint "\ne) передаются одноименным локальным переменным. При повторном вызове для каждого get в памяти автокада свое значение хранится! (Стрелкой вверх - подставляется нужное значение)