请问如何用lisp实现预输入

peraperson

比如我用getinit函数时 界面上会预先出现10的一个值 如果10是我想要输入的值则点空格即可 如果要输入的是其他的值则直接输入即可
有人能点拨一下吗 谢谢

Andyhon

Ref link:
http://bbs.mjtd.com/thread-93169-1-1.html

自贡黄明儒

(setq a (getint));如果回车，则a =nil,所以下行写
(if a nil (setq a 10))

xyp1964

(setq int (Uint 1 "" "整数" int))

自贡黄明儒

xyp1964 发表于 2013-10-19 08:29
(setq int (Uint 1 "" "整数" int))

Uint是你自定义的吗？

xyp1964

(defun uint (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (itoa def) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getint msg))
  (if inp inp def)
)

peraperson

自贡黄明儒 发表于 2013-10-19 08:07
(setq a (getint));如果回车，则a =nil,所以下行写
(if a nil (setq a 10))

谢谢 但是有个问题就是这个10不会出现在屏幕上 我想要的效果是预先显示有10这个值 如果要输入的是10按enter即可

peraperson

xyp1964 发表于 2013-10-19 18:10
(defun uint (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg ": ")

谢谢 可是版主我这个看不太懂。。。 能解释下 或者根据我这个实际例子写个具体点的具体点的lisp吗

peraperson

peraperson 发表于 2013-10-21 13:16
谢谢 但是有个问题就是这个10不会出现在屏幕上 我想要的效果是预先显示有10这个值 如果要输入的是10按ent ...

thx 有没有不出现对话框的方式 就是直接在我的getint "\n Enter the number" 提示后直接在cad预显示呢 ?

peraperson

自贡黄明儒 发表于 2013-10-19 08:07
(setq a (getint));如果回车，则a =nil,所以下行写
(if a nil (setq a 10))

thx 有没有不用出现对话框的方式 就是直接在我的getint "\n Enter the number" 提示后直接在cad预显示呢 ?