本帖最后由 lucas_3333 于 2015-7-20 08:56 编辑
粗略的看了下楼主的程序
虽然所有变局部变量都定义在主函数下是可行了, 但为何不做到每个子函数都有自己的局部变量呢?
另外我觉得这些子函数都可以作为局部子函数 , 通常来说用局部子函数会比全局函数慢, 但是于这种小程序是没有一点影响的
个人建议这样 (欢迎各位大师拍砖)
- (defun main (/ v1 v2 _subfun1 _subfun2)
- (defun _subfun1(a0/ v2 v3)
- (setq a0 (.....))
- ......
- (setq v2 (......))
- (setq v3 (......))
- ......
- V3
- );;end_defun_subfun1
-
- (defun _subfun2(/ _subb v4 v5 v6)
- (defun _subb(a0/ a b c)
- (setq a (...))
- (setq b (...))
- (setq c (* (atoi a0) 10))
- ......
- c
- );;end_defun_subb
- (setq v4 (.....))
- (setq v5 (*(atoi v4) 13))
- (setq v6 (_subb v5))
- ......
- V6
- );;end_defun_subfun2
-
- (setq v1 (......))
- (setq v2 (_subfun1 v1))
- ......
- ......
- );;end_defun_main
|