[求助]如何中止或结束程序

zzhua · 发表于 2006-7-22 18:13:00

请哪位高手指点一下：

中止或结束程序这句语法怎么写如：

(defun c:aa()

......

(c:aa)

接下来该怎么中止或结束

）

rongyifei · 发表于 2006-7-22 18:19:00

你说得这个问题很有趣.

Can you paste the whole code?

zzhua · 发表于 2006-7-22 20:11:00

怎么有趣法?

rongyifei · 发表于 2006-7-22 21:22:00

在一个函数内部调用它本身

(defun c:aa()

......

(c:aa)

）

不知道是否能实现?

zzhua · 发表于 2006-7-22 21:30:00

因为我需要它执行二次,但又不陷死循环,

rongyifei · 发表于 2006-7-22 21:53:00

你能提供你的源代码吗?

hhc · 发表于 2006-7-23 09:55:00

在程序中调用自身叫递归,一定要有一个这样的语句:当满足特定条件后就不再继续调用自身,否则会造成无限递归,直至耗尽内存,应该会死机.

飞诗(fsxm) · 发表于 2006-7-29 21:19:00

只要在加入if就行了啦1

比如：

（defun c:test ()

(if (setq p (getpoint "选取点："))

(progn (alert (strcat "点坐标为" (rtos p))) (c:test) )

(alert "没有选点退出")

)

blue123 · 发表于 2006-7-30 09:03:00

把它作为一个函数呼叫二次不就行了

ZZXXQQ · 发表于 2006-7-30 10:16:00

zzhua发表于2006-7-22 18:13:00回复：（zzhua）如何中止或结束程序请哪位高手指点一下：中止或结束程序这句语法怎么写如： (defun c:aa() ...... (c:aa)

(defun c:aa ()

......

(if (/= (type nn) 'INT) (setq nn 0))

(if (= nn 0) (progn

(setq nn 1)

(c:aa)

))

)

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