[求助]：程序返回结果

haibinpro

(DEFUN c:qq()
  (setq num 220)
  (IF (> NUM 100)
    (PRINC "Very High")
  )
  (IF (AND
        (> NUM 50)
        (<= NUM 100)
      )
    (PRINC "High")
  )
  (IF (AND
        (> NUM 25)
        (<= NUM 50)
      )
    (PRINC "Medium")
  )
  (IF (<= NUM 25))
  (PRINC "Low")

  (PRINC)
)
为何没返回"Very High"？

雨箭风刀

去掉 最末 (PRINC)

似水无痕

最初由 haibinpro 发布
[B](DEFUN c:qq()
(setq num 220)
(IF (> NUM 100)
(PRINC "Very High")
)
(IF (AND
(> NUM 50)
(<= NUM 100)
)
(PRINC "High")
)
(IF (AND
(> NUM 25)
(<= NUM 50)
)
(PRINC "Medium")
)
(IF (<= NUM 25))[/COLOR]
(PRINC "Low")

(PRINC)
)

[/B]
括弧位置不对，应改为：

2. (DEFUN c:qq ()
   
3.   (setq num 220)
   
4.   (IF (> NUM 100)
   
5.     (PRINC "Very High")
   
6.   )
   
7.   (IF (AND
   
8.         (> NUM 50)
   
9.         (<= NUM 100)
   
10.       )
    
11.     (PRINC "High")
    
12.   )
    
13.   (IF (AND
    
14.         (> NUM 25)
    
15.         (<= NUM 50)
    
16.       )
    
17.     (PRINC "Medium")
    
18.   )
    
19.   (IF (<= NUM 25)
    
20.     (PRINC "Low")
    
21.   )
    
22. )

(DEFUN c:qq ()<br />   (setq num 220)<br />   (IF (> NUM 100)<br />     (PRINC "Very High")<br />   )<br />   (IF (AND<br />         (> NUM 50)<br />         (<= NUM 100)<br />       )<br />     (PRINC "High")<br />   )<br />   (IF (AND<br />         (> NUM 25)<br />         (<= NUM 50)<br />       )<br />     (PRINC "Medium")<br />   )<br />   (IF (<= NUM 25)<br />     (PRINC "Low")<br />   )<br /> )

haibinpro

T 2楼
因为是顺序执行，所以
去掉 最末 (PRINC)不需要。
这里(princ)是为了去除nill的显示。
如下：
命令: (load "F:/SS.LSP") C:SS

命令: ss Highnil

命令:
命令: *取消*

命令: *取消*

命令: (load "F:/SS.LSP") C:SS

命令: ss High

命令:
命令: 指定对角点: *取消*

t 3楼
问题解决，确实如此。
看来程序如果语法有误，其行为难以捉摸啊。
比如，
(DEFUN c:SS ()
  (setq num 100)
  (IF (> NUM 100)
    (PRINC "Very High")
  )
  (IF (AND
        (> NUM 50)
        (<= NUM 100)
      )
    (PRINC "High")
  )
  (IF (AND
        (> NUM 25)
        (<= NUM 50)
      )
    (PRINC "Medium")
  )
  (IF (<= NUM 25)
    (PRINC "Low")
  )
(princ)
)
返回high。
但如果将程序修改为
(DEFUN c:SS ()
  (setq num 40)
  (IF (> NUM 100)
    (PRINC "Very High")
  )
  (IF (AND
        (> NUM 50)
        (<= NUM 100)
      )
    (PRINC "High")
  )
  (IF (AND
        (> NUM 25)
        (<= NUM 50)
      )
    (PRINC "Medium")
  )
  (IF (<= NUM 25))
    (PRINC "Low")
  
(princ)
)

由于)的原因和原先一些残留在内存的东西，结果它就不显示Medium而仍然显示high。