[Victorovich]

Всем здрасьте

Сори, но что-то поиск на форуме не работает уже неделю, поэтому сразу пишу в новую тему.

У меня в программе имеется строчка присваивания
setq TextCable (getstring T "\nEnter Type of cable: ")
и каждый раз надо по новой вводить значение переменной TextCable.

Можно ли как-то задать программе, чтобы она предлагала по умолчанию (нажав Ентер) текущее значение переменной TextCable ???

заранее спасибо

[Alaspher]

Както так:

Код:

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

(if (not textcable)
 (setq textcable "Very good cable")
)
(if (/= (setq tmp (vl-string-trim
                   " "
                   (getstring t (strcat "\nEnter Type of cable <" textcable ">: "))
                  )
        )
        ""
    )
 (setq textcable tmp)
)

[VVA]

Как-то так

Код:

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

(defun C:TEST ( / str)
  (if (/= (type TextCable) 'STR)(setq TextCable "unknown"))
  (princ "\nEnter Type of cable < ")
  (princ TextCable)
  (princ" >: ")
  (setq str (getstring T))
  (if (= str "")(setq str TextCable))
  (setq TextCable str)
  (princ (strcat "\nTextCable value: " TextCable))
  (princ)
  )

[Victorovich]

спасибо, разобрался