[求助]：lisp有没有这个功能

cqxt00 · 发表于 2005-4-9 00:07:43

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

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

×

在vlisp函数中有没有这个功能的函数：
...........
（setq  pt(getpoint "point:")）----------- 1行
      (setq x(car pt) y(cadr pt))  ------------------             2行
   (if (> 500 x)
   返回 1    行重新运行
)

也就是说条件不成立时有没有函数返回 1行(或指定任一行)  重新从1行运行程序。

xyp1964 · 发表于 2005-4-9 13:27:30

用while函数实现：
[php]
(setq x 1)
(while (> 500 x)
  (setq pt (getpoint "point : ")
x  (car pt)
y  (cadr pt)
  )
)
[/php]

cqxt00 · 发表于 2005-4-11 21:24:53

哦
对
谢谢！

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

[求助]：lisp有没有这个功能

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

相关帖子

浏览过的版块