[求助]：Lisp中可不可以有嵌套语句？

fundoll

if语句可不可以嵌套（我试过好象不行）
该怎么办？

ll_j

最初由 fundoll 发布
if语句可不可以嵌套（我试过好象不行）
该怎么办？

可以，看我这段

2. 
   
3.   (defun tt_t1_psel ()
   
4.     (setq xh0 xh)
   
5.     (princ "\n拾取一个样板文本：")
   
6.     (setq txt (entsel))
   
7.     (if        txt
   
8.       (progn
   
9.         (setq txt (entget (car txt)))
   
10.         (if (/= (cdr (assoc 0 txt)) "TEXT")
    
11.           (tt_t1_psel)
    
12.           (progn
    
13.             (setq str0 (cdr (assoc 1 txt))
    
14.                   str1 (tt_substr str0 tt:fg t t)
    
15.             )
    
16.             (if (or (= str1 "") (= str0 "Other"))
    
17.               (progn
    
18.                 (alert "所选实体没有型号")
    
19.                 (mode_tile "15" 2)
    
20.               )
    
21.               (if (and (= (tt_xh str1) "Other") (/= str0 "Other"))
    
22.                 (progn
    
23.                   (if (not (new_dialog "t1_alert" dcl_id)) (exit))
    
24.                   (action_tile "accept" "(done_dialog 1)")
    
25.                   (action_tile "cancel" "(done_dialog 0)")
    
26.                   (if (= (start_dialog) 0)
    
27.                     (progn
    
28.                       (setq xh xh0)
    
29.                       (set_tile "15" xh)
    
30.                       (mode_tile "15" 2)
    
31.                     )
    
32.                     (progn
    
33.                       (setq xh str1)
    
34.                       (set_tile "15" xh)
    
35.                     )
    
36.                   )
    
37.                 )
    
38.               )
    
39.             )
    
40.           )
    
41.         )
    
42.       )
    
43.       (tt_t1_psel)               ;子函数自身嵌套——递归
    
44.     )
    
45.   )
    

<br />   (defun tt_t1_psel ()<br />     (setq xh0 xh)<br />     (princ "\n拾取一个样板文本：")<br />     (setq txt (entsel))<br />     (if        txt<br />       (progn<br />         (setq txt (entget (car txt)))<br />         (if (/= (cdr (assoc 0 txt)) "TEXT")<br />           (tt_t1_psel)<br />           (progn<br />             (setq str0 (cdr (assoc 1 txt))<br />                   str1 (tt_substr str0 tt:fg t t)<br />             )<br />             (if (or (= str1 "") (= str0 "Other"))<br />               (progn<br />                 (alert "所选实体没有型号")<br />                 (mode_tile "15" 2)<br />               )<br />               (if (and (= (tt_xh str1) "Other") (/= str0 "Other"))<br />                 (progn<br />                   (if (not (new_dialog "t1_alert" dcl_id)) (exit))<br />                   (action_tile "accept" "(done_dialog 1)")<br />                   (action_tile "cancel" "(done_dialog 0)")<br />                   (if (= (start_dialog) 0)<br />                     (progn<br />                       (setq xh xh0)<br />                       (set_tile "15" xh)<br />                       (mode_tile "15" 2)<br />                     )<br />                     (progn<br />                       (setq xh str1)<br />                       (set_tile "15" xh)<br />                     )<br />                   )<br />                 )<br />               )<br />             )<br />           )<br />         )<br />       )<br />       (tt_t1_psel)               ;子函数自身嵌套——递归<br />     )<br />   )<br />

if一般不进行多层嵌套，需要多项判断时一般用cond，但有时用if嵌套可能使程序更容易理解些。