[求助]高手们帮忙看下以下源码，我想按空格键退出WHILE循环，该如何做

tjuzkj

(defun c:plgj ()
(setq sn (entsel "\n选择文字"))
(setq sb (car sn)
p1 (cadr sn)
txtbasepoint (cdr (assoc 10 (entget sb)))
p2 t
i 1
)
(while (and (< i 9) p2)
(command "copy" sb "" txtbasepoint pause "")
(setq txt (entlast)
txt_list (entget txt)
txtbasepoint (cdr (assoc 10 txt_list))
)
(setq sb txt)
(setq old_wbnr_list (assoc 1 txt_list))
(cond ((= i 1) (setq new_wbnr_list (cons 1 "DN25")))
((or (= i 3) (= i 2)) (setq new_wbnr_list (cons 1 "DN32")))
((= i 4) (setq new_wbnr_list (cons 1 "DN40")))
((and (>= i 5) (<= i 8))
(setq new_wbnr_list (cons 1 "DN50"))
)
)
(setq txt_list (subst new_wbnr_list old_wbnr_list txt_list))
(entmod txt_list)
(setq i (1+ i))
)
)

Andyhon

...我想按空格键退出WHILE循环....

您得将 按空格键 的返回值加入 (and ....) 的判断式中
但看不到您有对 按空格键 取值 / 且在何处取值 ?

tjuzkj

麻烦您告知一下，如何 按空格键 取值 / 且在何处取值 。我的思路是这样的，按上面的程序，必须循环八次才能退出。但是我有时候需要循环的次数小于八次，因此我想在达到需要循环的次数后，按空格键退出循环。

Andyhon

问题是您并未 对 按空格键 取值 建立管道呀

xofox

;读取点坐标，输入两参数到e:/temp.csv----v1.0
(defun c:readid()
(setq temp (open "e:/temp.csv" "a"))

(princ "\n\n" temp)
(setq char "a") ;初始化char，必须地

(while (/= char "b")
  (setq p1 (getpoint "\n选择点：")) 
  (setq z1 (getreal "\n输入参数1的值："))
  (setq z2 (getreal "\n输入参数2的值："))
  (princ (strcat  (rtos (car p1) 2) "," (rtos (cadr p1) 2) ","  (rtos z1 2) ","  (rtos z2 2) "\n" ) temp)
  (setq char (getstring "继续(anykey)/中止(Break)："))  ;输入b退出循环
)

  (close temp)
)

看上面的循环，把B改成空格即成，把条件表达式or进去