关于子函数的返回值

赖赖旺

子函数的返回值，我有点不明白是怎么返回的
比如我做一个读取几行数据并对数据进行一些操作的子函数，我需要返回操作完成的数据，应该怎么定义呢
还没入门，各种障碍，哪位大侠给个例子呗，就开头和结尾就行，我也体会下

ll_j

返回值就是一个函数运行的最后结果，把这个结果用setq“回收”一下即可，比如你定义一个函数fun，函数有参数x，则调用函数fun时返回值用(setq y (fun x))即得到函数fun的返回值。

edata

2. (defun c:main(/ a b c)
   
3.   (setq a 1 b 2 c 3)
   
4.   (setq addresult(sub_add a b c));调用子函数并将结果赋值给addresult
   
5.   (setq decresult(sub_dec a b c));调用子函数并将结果赋值给decresult
   
6.   (princ addresult)
   
7.   (princ"\n")
   
8.   (princ decresult)
   
9.   (princ)
   
10.   )
    
11. (defun sub_add(a b c);子函数1
    
12.   (+ a b c);对abc求值后会返回最后结果
    
13.   )
    
14. (defun sub_dec(x y z / result);子函数2
    
15.   (setq result (- x y z));对xyz求值后会赋值给变量result
    
16.   result ;执行变量 将返回该变量的值
    
17.   )

(defun c:main(/ a b c)<br />   (setq a 1 b 2 c 3)<br />   (setq addresult(sub_add a b c));调用子函数并将结果赋值给addresult<br />   (setq decresult(sub_dec a b c));调用子函数并将结果赋值给decresult<br />   (princ addresult)<br />   (princ"\n")<br />   (princ decresult)<br />   (princ)<br />   )<br /> (defun sub_add(a b c);子函数1<br />   (+ a b c);对abc求值后会返回最后结果<br />   )<br /> (defun sub_dec(x y z / result);子函数2<br />   (setq result (- x y z));对xyz求值后会赋值给变量result<br />   result ;执行变量 将返回该变量的值<br />   )

赖赖旺

edata 发表于 2014-1-16 17:43

谢谢！好好体会下

赖赖旺

ll_j 发表于 2014-1-16 16:56
返回值就是一个函数运行的最后结果，把这个结果用setq“回收”一下即可，比如你定义一个函数fun，函数有参数 ...

返回的就是子程序的最后一个运算值呗！是这样吧

自贡黄明儒

赖赖旺 发表于 2014-1-17 09:25
返回的就是子程序的最后一个运算值呗！是这样吧

正是。如(setq a 8 b 5)=>返回5

312735894

建议参考沙发上那位大大的“函数赋值与定义”那篇帖子！

lostbalance

对于特定的子函数，可以考虑直接处理主函数的参数，就不用管返回值了

bzhjl

edata 发表于 2014-1-16 17:43

谢谢指点~！