[LISP程序]：如何在程序中实现多重选择执行语句

qqdswan

我在写lisp 时遇到这样一个问题，需要输入四4参数，每个参数对应不同的操作，不知道该如何实现，使其更简单。

gysjy

给一例，供参考：

2. 
   
3.   [FONT=courier new]
   
4. (defun ju_j()   ;自角点绘矩形
   
5.   (setq osm 0)
   
6.   (while pe
   
7.     (initget "C P M F")
   
8.     (setvar "OSMODE" osm)
   
9.     (if (= osm 0) (princ "\n**捕捉已关闭**")
   
10.       (if (= osm 2 )
    
11.         (princ "\n**已设定中点捕捉**") (princ "\n**已设定交点+节点捕捉**")
    
12.       )
    
13.     )
    
14.     (princ "\t\t**当前绘图比例为1:")(princ (fix blx0))(princ "**\n")
    
15.     (setq p (getpoint "\n/C中心点/P宽高/M中点/F关闭捕捉/<矩形第一角点>:"))
    
16.     (cond ((= p nil) (setq pe nil))
    
17.           ((eq p "C") (ju_c))
    
18.           ((eq p "P") (ju_p))
    
19.           ((eq p "M") (setq osm 2))
    
20.           ((eq p "F") (setq osm 0))
    
21.           (t
    
22.             (setq pt2 (getcorner "\n矩形第二角点:" p))
    
23.             (setq p1 (list (car p) (cadr pt2)) p2 (list (car pt2) (cadr p)))
    
24.             (setvar "osmode" 0)
    
25.             (command "pline" p p1 pt2 p2 "c")
    
26.           )
    
27.     )
    
28.   )
    
29. )
    
30.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun ju_j()   ;自角点绘矩形<br />   (setq osm 0)<br />   (while pe<br />     (initget "C P M F")<br />     (setvar "OSMODE" osm) <br />     (if (= osm 0) (princ "\n**捕捉已关闭**")<br />       (if (= osm 2 )<br />         (princ "\n**已设定中点捕捉**") (princ "\n**已设定交点+节点捕捉**")<br />       )<br />     )<br />     (princ "\t\t**当前绘图比例为1:")(princ (fix blx0))(princ "**\n")<br />     (setq p (getpoint "\n/C中心点/P宽高/M中点/F关闭捕捉/<矩形第一角点>:"))<br />     (cond ((= p nil) (setq pe nil))<br />           ((eq p "C") (ju_c))<br />           ((eq p "P") (ju_p))<br />           ((eq p "M") (setq osm 2))<br />           ((eq p "F") (setq osm 0))<br />           (t<br />             (setq pt2 (getcorner "\n矩形第二角点:" p)) <br />             (setq p1 (list (car p) (cadr pt2)) p2 (list (car pt2) (cadr p)))<br />             (setvar "osmode" 0)<br />             (command "pline" p p1 pt2 p2 "c") <br />           )<br />     )<br />   )<br /> )<br />   [/FONT]<br />

zxq0220

最初由 qqdswan 发布
[B]我在写lisp 时遇到这样一个问题，需要输入四4参数，每个参数对应不同的操作，不知道该如何实现，使其更简单。 [/B]

用COND函数
(SETQ A (GETINT "\n输入选择 (1,2,3,4) :"))
(COND
((= A 1)
;操作一
)
((= A 2)
;操作二
)
((= A 3)
;操作三
)
((= A 4)
;操作四
)
)