[求助]：谁知道如何把回车键赋给一个变量？

绘图员

或者有其他方法：某变量有一个初始值，想通过是否按下回车键，来改变它的值

zhynt

其实不用检查是否回车，因为一般来讲，当给变量赋值时，如果直接回车其值为“nil”只要检查变量的值是否为nil就行了。

这个问题其实和你前面的帖子是一个问题。给变量却省值就是这样的。
先设定一个全局变量，将却省值赋给他，然后在进行变量的赋值操作时进行判断，如果为nil，就将前面设定的全局变量的值赋给这个变量，如果不为ni，（这里你如果想将这次输入的值作为新的却省值，从而省去下次再输入，就将这个输入的值重新赋值给全局变量）
就象这样：
(if (= a1 nil)(setq a1 a2)(setq a2 a1))
这里a1是我们需要赋值的变量，a2就是保存却省值的全局变量。

一个完整的例子：
(defun c:queshzhi ()
(setq a2 "你好")
(prompt "\n 请你输入新值，直接回车为却省值:<")
(princ a2)
(setq a1 (getstring ">))
(if (= a1 nil)(setq a1 a2)(setq a2 a1))
(princ a1)
)

如果你想每次回车都是赋给同样的却省值程序就可以简化成这样：
(defun c:queshzhi ()
(setq a1 (getstring ""\n 请你输入新值，直接回车为却省值:<你好>"))
(if (= a1 nil)(setq a1 "你好"))
(princ a1)
)

绘图员

谢谢斑竹
请看看下面的有问题吗？
(defun c:tgsj()
;
   (prompt"\n本程序用于特观设计中放检波点和炮点")
   (setq k nil)
   (princ "\n请选择: 1、检波点; 2、炮点;")
   (setq k (getstring"<回车退出>"))
   (if (= k nil) (exit)
       (progn
           (setq 间距(getint"\请输入间距: "))
           (indive k))
   )
)

LUCAS

(defun C:TGSJ ()
  (prompt "\n本程序用于特观设计中放检波点和炮点")
  (setq K NIL)
  (initget "1 2 ")
  (setq K (getkword "\n请选择: 1、检波点 2、炮点<回车退出>"))
  (if (= K NIL)
    (exit)
    (progn
      (setq 间距 (getint "\请输入间距: "))
      (INDIVE K)
    )
  )
)

lijiao

后面的判断最好用COND函数。

zhynt

用(initget "1 2 ")控制输入项的好处是，程序只接受initget设定的值，其它的一概不认，象上面的程序一样，如果输入3、4呢？

cqnj023

一般不用考虑回车键，若需要知道回车键，可用(setq enter (read-char))获得