[LISP程序]：定义子程序

zhaozhi · 发表于 2003-9-10 08:57:10

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教高手, AUTOLISP 子程序中是否可以再套子程序? 为什么我的子程序不能调用? 错误提示没有定义子程序, 可我明明定义了子程序. 要想顺利调用子程序, 应如何作? 多谢.

tuger · 发表于 2003-9-10 11:02:42

上面的意思看不懂，能贴出来让大家看一下吗

lsjjm · 发表于 2003-9-10 12:23:04

子程序中当然可以再套子程序. 贴出来大家帮你看看?

ll_j · 发表于 2003-9-10 12:39:07

严格点说，AutoLisp中只有函数，没有子程序。实际上，我们将由外部函数（主程序）调用的函数都俗称子程序，每个函数，只要[B]定义[/B]并[B]加载[/B]了，在任何时候（包括其它程序）都可以加载（又俗称全局变量）。这就是说，“子程序”可以嵌套。
子程序嵌套的方式一（嵌套定义，加载函数c:A1即加载全部）：

(defun c:A1(/ a3) ;a3是局部函数，程序运行结束退出，a2将保留在内存中，其它程序可以调用
(defun a2()
...
)
(defun a3(/ a4) ;a4是局部函数，a3运行结束退出
(defun a4()
...
)
......
(a4) ;调用a4
......
)
......
(a2)
......
(a3)
......
[B](a4)[/B] ;这里程序将出错，因为a4已经退出
...
)

子程序嵌套的方式二（并行定义，必须加载全部程序）：

(defun a2()
...
)
(defun a3()
...
(a4)
...
)
(defun a4()
...
)
(defun c:A1()
......
(a2)
......
(a3)
......
[B](a4)[/B] ;a4可以单独调用
......
)

函数调用的方法1——正常调用，如前例。
函数调用的方法2——自身调用（递归？）：

(defun b1()
......
(if [B]test[/B] (b1))
......
)

函数调用的方法3——互相调用（嵌套？循环？，例中函数c1和c2必须平行定义）：

(defun c1()
......
(if [B]test1[/B] (c2))
......
)
(defun c2()
......
(if [B]test2[/B] (c1)
......
)

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：定义子程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

浏览过的版块