[求助]：问: 为何2次出现"画圆任务完成"的提示,如何才能去掉一个?

sidney2002 · 发表于 2003-3-28 09:23:59

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

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

×

程序如下:
      (setq cenpt (getpoint "输入圆心:"))
      (setq rad (getdist cenpt "\n输入圆半径"))
      (if (> rad 0)
         (progn
            (command "circle" cenpt rad)
            (command "chprop" (entlast) "" "c" 3 "")
            (princ "\n画圆任务完成")
            )
            (progn
               (alert "半径有问题")
               (princ "\n画圆任务失败")

            )
         )

      Command : (load “ce”)
      输入圆心:
      输入圆半径:20
      画圆任务完成 “\n画圆任务完成”


      问: 为何2次出现"画圆任务完成"的提示,如何才能去掉一个?

lsjjm · 发表于 2003-3-28 09:32:56

在最后加一个函数(princ).

sidney2002 · 发表于 2003-3-28 09:47:24

謝謝！！

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

[求助] [求助]：问: 为何2次出现"画圆任务完成"的提示,如何才能去掉一个?

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

相关帖子

浏览过的版块

[求助] [求助]： 问: 为何2次出现"画圆任务完成"的提示,如何才能去掉一个?

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

相关帖子

浏览过的版块

[求助] [求助]：问: 为何2次出现"画圆任务完成"的提示,如何才能去掉一个?