[LISP函数]：求助：progn语句有何作用？？？？

zxf5411 · 发表于 2005-7-12 14:36:17

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

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

×

请教大侠：progn语句有何作用？？？？

yshf · 发表于 2005-7-12 15:20:05

(progn [表达式] ...) 演算每一个表达式的值，并返回最后一个表达式的值。常常配合if、cond将多个表达式包起来使用，如：
(if (> ab)
      (progn  [表达式11]  [表达式12]  [表达式13]  ... [表达式1n] )
      (progn  [表达式21]  [表达式22]  [表达式23]  ... [表达式2n] )
   )
又如，每次选择点时，只选端点和交叉点
(while (prong (setvar "osmode" 33) (setq pt (getpoint "\n请选择点:")))
         <所要进行的操作>
   )

zxf5411 · 发表于 2005-7-12 15:30:58

请教二楼的大侠：
1“并返回最后一个表达式的值”是返回到屏幕显示呢，还是返回给某一变量？
2 为什么要配合if ,cond使用呢。

yshf · 发表于 2005-7-12 17:12:33

如果将它赋给某一变量，它就返回给某一变量。如果不关闭屏幕回显(cmdecho=1)，它就回显于屏幕。因为“(if <比较式> <表达式1> [表达式2])”<比较式>为真时，执行<表达式1>，否则执行<表达式2>；尚若<表达式1>是有很多操作，一个表达式完不成，需要用多个表达式，此时必须用“progn”包装起来组成一个表达式，否则程序会出错。最好找本有关的书看看，然后亲自试一试，才能体验到“progn”的作用。

zxf5411 · 发表于 2005-7-13 07:19:10

谢谢楼上

陌生人 · 发表于 2005-7-13 18:30:39

（progn 。。。）＝（last（list 。。。。））

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

[求助] [LISP函数]：求助：progn语句有何作用？？？？

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

相关帖子