如何强制退出程序？

原地踏步 · 发表于 2017-5-27 19:11:18

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

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

×

在执行CAD的 revcloud 命令时，选择“对象”，如果对象太小，将无法转换成云线。此时如何退出程序？
请高手指点。
(defun c:tt ()
  (setq ent (car (entsel "\n选矩形框:")))  ;选一个很小的矩形框
  (command "revcloud" "" ent "")
  (if (= (getvar "cmdactive") 1)
(progn
   (print "对象太小。")
   (exit)
)
  )
)
运行结果无法退出程序。

marting · 发表于 2017-5-27 19:25:45

自己先判断矩形大小和最大弧长，最小弧长比较，可行再去执行命令revcloud

原地踏步 · 发表于 2017-5-27 19:49:10

请问该如何判断呢？比如最大最小弧长均为100，矩形框的长宽应为多少？

marting · 发表于 2017-5-27 20:00:54

原地踏步发表于 2017-5-27 19:49

他说的最大弧长，其实是最大的弦长，你自己画个，量下。

longer1000 · 发表于 2017-5-28 00:36:59

学习学习学习学习学习

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

[求助] 如何强制退出程序？

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