lisp编程中if怎么用？

disanrencheng

(if testexpr thenexpr [elseexpr]) 参数 testexpr 要判断的表达式。 thenexpr 如果 testexpr 不等于 nil 则执行该表达式。 elseexpr 如果 testexpr 等于 nil 则执行该表达式。 以上是网上找到的内容，就是不知道用在实际的编程中这个函数用的多不多，或者作用大不大，怎么使用，请帮忙举个例子最好了，谢谢了！

woaishuijia

在任何编程工具中条件判断都是不可缺少的。IF语句用得很多，作用很大，在面临多种可能性时必须使用它及它的派生语句决定程序向何处去。
( e+ ^( b1 Z: A$ i& b5 h以下是从前几天一个帖子上摘下来的例程

1. (defun c:myhatch (/ a b c d)
   0 H# k0 y& I1 `- k- X( N0 z4 U
2.   (setq pa '(0 0 0))
   7 _. [. C  l! ?5 ?* i7 V
3.   (setq pb '(400 400 0))
   " E" [0 J% p- @' |6 D, M) ]% j
4.   (setq po '(300 300 0))
   9 ~0 {4 L4 `2 {; x3 F
5.   (command "rectang" pa pb)
   
6.   (command "-hatch" po "P" "solid" ""  )
   9 v4 Z4 T$ X6 m: r0 X' k
7.   (setq a (entlast))
   ( `  i# m& y: [! @- _% q" `8 @
8.   (setq b (entget a))
   
9.   (setq c (assoc 62 b))
   * ~* Z5 F& O2 L4 M% H8 E
10.   (if c
    
11.     (progn
    
12.       (setq d (cons 62 1))
    
13.       (setq b (subst d c b))
    7 h5 Q, b, }) P( b2 D& W0 J% D6 o
14.     )
    
15.     (setq b (append b (list (cons 62 1))))
    7 t0 x3 a$ T" I9 _- S
16.   )
    ! U6 B4 M, y& O) K
17.   (entmod b)
    2 p7 K1 s1 J% P3 J$ M% M
18.   (princ)
    ! \) J. d3 w9 n& W+ l3 e; B2 Q
19. )

复制代码

第一行声明函数，第二到六行画一个矩形并填充，第七、八行提取填充的属性，第九行在属性列表中查找填充的颜色：如果原来的颜色为“bylayer”，则属性列表中没有颜色属性，c返回nil；否则颜色在属性列表中一个有两个元素的、第一个元素为62的列表的第二个元素上，c返回这个有两个元素的列表。第十到十六行就是用IF语句根据查找颜色属性的结果使用不同方法修改填充的颜色。如果c返回列表，程序执行第十二、十三行，用红颜色的列表替换原来的列表，从而修改颜色，然后跳到第十七行向下进行；如果c返回nil，程序执行第十五行，在属性列表中添加一个红颜色的列表，然后继续向下进行。

ryljun

回答得非常详细，学习了!

ysryc99001

在运行程序出现如下
) f" t; a2 z8 z_1$
/ `# V& y! F/ w4 c5 N8 U; 错误: 参数类型错误: numberp: nil
; M' a6 s* e5 G# n' T6 y9 a请问是什么意思，谢谢了！