[求助]：一段LSP限定输入1和2,非1,2重新输入

dhxf

;;;;;;;;;;;;;;;;;;;/
(defun sqkg()
(setq sq (getreal "\n [GLD]_1/[WAT]_2/<1>:"))
(if ( not sq ) (setq sq 1))
(if (or (/= sq 1 ) (/= sq 2) )
(progn
(prompt "\nre-choice")
(sqkg)
)
)
)
知道是死循环,不知道怎么解决;

eachy

2. ;;;;;;;;;;;;;;;;;;;/
   
3. (defun sqkg (/ tf sq)
   
4.   (initget 128 "1 2")
   
5.   (setq tf t)
   
6.   (while tf
   
7.     (setq sq (getkword "\n [GLD]_1/[WAT]_2/<1>:"))
   
8.     (cond
   
9.       ((or (= sq "1") (not sq))
   
10.        (setq tf nil)
    
11.       )
    
12.       ((= sq "2")
    
13.        (setq tf nil)
    
14.       )
    
15.       (t (princ "\nre-choice"))
    
16.     )
    
17.   )
    
18. )
    
19. ;|(if (not sq)
    
20.   (setq sq 1)
    
21. )
    
22. (if (or (/= sq 1) (/= sq 2))
    
23.   (progn
    
24.     (prompt "\nre-choice")
    
25.     (sqkg)
    
26.   )
    
27. )
    
28. |;

;;;;;;;;;;;;;;;;;;;/<br /> (defun sqkg (/ tf sq)<br />   (initget 128 "1 2")<br />   (setq tf t)<br />   (while tf<br />     (setq sq (getkword "\n [GLD]_1/[WAT]_2/<1>:"))<br />     (cond<br />       ((or (= sq "1") (not sq))<br />        (setq tf nil)<br />       )<br />       ((= sq "2")<br />        (setq tf nil)<br />       )<br />       (t (princ "\nre-choice"))<br />     )<br />   )<br /> )<br /> ;|(if (not sq)<br />   (setq sq 1)<br /> )<br /> (if (or (/= sq 1) (/= sq 2))<br />   (progn<br />     (prompt "\nre-choice")<br />     (sqkg)<br />   )<br /> )<br /> |;

dhxf

还是有问题:
不论sq=1,2,3,4,5
(if (or (/= sq 1) (/= sq 2))
  (progn
    (prompt "\nre-choice")
    (sqkg)
还是死循环;
!sq  "2")

xyp1964

不接受1、2以外的其他如何输入（UKWORD函数）：
[php]
(load "xyp_lib")
;|
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在每个程序内增加(load"xyp_lib")
2.在acad.lsp中增加(load"xyp_lib")
3.在command下输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
下载地址：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
|;

(setq sq (ukword 1 "1 2" "\n1-[GLD]/2-[WAT]" sq))
[/php]

dhxf

;;;;;;;;;;;;;;;;;;;/
(defun sqkg-e()
(setq sq (getint "\n [GLD]_1/[WAT]_2/<1>:"))
(if ( not sq ) (setq sq 1))
(setq tpaper "white")
( if (= sq 1 ) (setq sskg "GLD" ))
( if (= sq 2 ) (setq sskg "WAT" ))

(if (= sq 1) (setq tpaper "red"))
(if (= sq 2) (setq tpaper "red"))
(if (/= tpaper "red")
(progn
(prompt "\nre-choice")
(sqkg-e)
)
)
)

调好了

十分感谢各位;

狂刀

(initget "1 2")
(setq k (getstring "1-aaa / 2 - bbb"))
(cond
  ((= "1" k) ....)
  ((= "2" k)...)
)