如何在SKILL中创建函数

vivienluo

SKILL中可使用procedure和defun创建函数。创建方法和C类似。
函数必须有函数名，可以包含传递参数、返回值。

下面例子通过使用ComputeBBoxHeight计算bBox的高度

1. procedure( ComputeBBoxHeight( )
   
2. 
   
3. bBox = list( 100:150 250:400)
   
4. 
   
5. ll = car( bBox )
   
6. 
   
7. ur= cadr( bBox )
   
8. 
   
9. lly = yCoord( ll )
   
10. 
    
11. ury = yCoord(ur)
    
12. 
    
13. ury – lly
    
14. 
    
15. ) ; procedure
    
16. 
    
17. bBoxHeight = ComputeBBoxHeight()

复制代码

定义函数参数为了使函数具有更多的功能，我们可以通过函数进行数据传递。在函数名括号中可定义变量参数。下面例子中bBox就是一个传递参数：

1. procedure( ComputeBBoxHeight( bBox )
   
2. 
   
3. ll = car( bBox )
   
4. 
   
5. ur= cadr( bBox )
   
6. 
   
7. lly = yCoord( ll )
   
8. 
   
9. ury = yCoord(ur)
   
10. 
    
11. ury – lly
    
12. 
    
13. ) ; procedure

复制代码

为了使函数能够正确执行，必须给参数传递一个值：

1. bBox = list( 100:150 250:400)
   
2. 
   
3. bBoxHeight = ComputeBBoxHeight( bBox )

复制代码

rjxvicky

学到东西了，谢谢楼主！

wuyuhe

学习了，谢谢楼主的分享