输入错误的回退问题

Ea

(setq tf t)


(while tf                       


         (setq a (getint "\n请输入一个整数:"))


         (cond


                 ((< a        5) (setq tf nil))


         ((> a 5) (princ "\n你输入了 ")(princ a) (princ " 重新输入!"))


         (t)


)


)

无痕

改进一下mccad的思路:不断提问，数值按最后一次输入，并回车确认

2. (setq a (getint "输入一个数:"))
3. (while
4.    (progn
5.      (setq b (getint "输入一个数/<确认>:"))
6.      (if b (setq a b) nil)
7.      )
8. )a

(setq a (getint "输入一个数:")) (while    (progn      (setq b (getint "输入一个数/<确认>:"))      (if b (setq a b) nil)      ) )a

mccad

呵呵，无兄的这一段有点象注册时输入密码的提示一样。

ljcgq

贴一个自己用的输入小程序一起讨论： ;=================================================
;本程序是为写入大量数据而编写的输入程序。
;输入 "+"---------写入上一次的文本
;输入 "++"--------修改上一次的文本
;回车-------------输入空行
;编程 ljc 2004.4.16 唐山
;=================================================
(defun c:bl()
(setq p1 (getpoint "请选择表格左上角点:"))
(setq p2 (getpoint "请选择表格右下角点:"))
(setq osmode(getvar "osmode"))
(setq tc(getvar "clayer" )) (setq p1y (cadr p1))
(setq p1x (car p1))
(setq p2y (cadr p2))
(setq bg(- p1y p2y))
(setq zg (* 4.5( getvar "dimscale")))
(setq p3y(/ ( + p1y p2y) 2))
(setq p3x(+ (car p1) (/ zg 2)))
(setq p3(list p3x p3y)) (setq p1y (- p1y bg))
(setq p1 (list p1x p1y 0.0))
(setq p2y (- p2y bg))
(setq p22x (+ p1x (* bg 22)))
(setq p22(list p22x p2y))
(COMMAND "ZOOM" "W" (polar P1 pi (* 20 zg)) P22)

(setq shuzhi(getstring "请输入字符:"))
(while shuzhi
(cond
((= shuzhi "+")
(progn
(command "layer" "s" "text" \n) (SETVAR "OSMODE" 0)
(command "text" "j" "ml" p3 zg 0 shuzhip "")
(SETVAR "OSMODE" osmode)
(setvar "clayer" tc)
(setq p1y (- p1y bg))
(setq p1 (list p1x p1y 0.0))
(setq p2y (- p2y bg))
(setq p22x (+ p1x (* bg 22)))
(setq p22(list p22x p2y))
(COMMAND "ZOOM" "W" (polar P1 pi (* 20 zg)) P22)

(setq p3y(- p3y bg))
(setq p3(list p3x p3y))
(setq shuzhi(getstring "请输入字符:")) )
)
((= shuzhi "++") (progn
(setq shuzhip shuzhi)
(setq a(getstring "文本修改为:"))
(setq d(entget (entlast)))
(setq d(subst (cons 1 a) (assoc 1 d) d))
(entmod d)
(setq shuzhip a)
(setq shuzhi(getstring "请输入字符:"))

)
)
( t
(progn
(setq shuzhip shuzhi)
(command "layer" "s" "text" \n) (SETVAR "OSMODE" 0)
(command "text" "j" "ml" p3 zg 0 shuzhi "")
(SETVAR "OSMODE" osmode)
(setvar "clayer" tc)
(setq p1y (- p1y bg))
(setq p1 (list p1x p1y 0.0))
(setq p2y (- p2y bg))
(setq p22x (+ p1x (* bg 22)))
(setq p22(list p22x p2y))
(COMMAND "ZOOM" "W" (polar P1 pi (* 20 zg)) P22) (setq p3y(- p3y bg))
(setq p3(list p3x p3y))
(setq shuzhi(getstring "请输入字符:"))

)
)

)
)

)

CADghost

Ea 你这段程序只能事先控制数字，假如我想输入3，却按了2不就没有办法了吗？ 老无的程序我觉得是不是不如(initget 1)来的快啊 ljgq的挺强，我再好好看看 谢谢各位了

无痕

我的程序不是只为(initget “1”)准备的。而是为你“反悔”上次输入（无论是什么）而准备的：）

CADghost

哦？刚才还真没注意，我再好好看看，

afeng0712

(initget "Undo")
(setq p1 (getpoint "\n 点取单元下一节点or[Undo]:")) 可以试试~