[求助]：面积函数出错

pppppp4053 · 发表于 2006-10-9 09:09:27

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

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

×

请各位大侠帮我看一下这段代码，这是我编的程序中定义的一个面积函数，拾取一点得到所在的封闭区域的面积，程序运行时，在封闭区域小时，常常不能执行 (command "bpoly" zkd "")这句，我加了一段代码用来防错，但还是没有效果，想不出原因，请各位指教。

(defun dy (zkd)
  (setq en nil)
(command "bpoly" zkd "")
  (setq en (entlast))
  (if (= en nil)
(progn
   (command "bpoly" zkd "")
   (setq en (entlast))
)
  )
  (command "area" "o" en)
  (setq dymj (getvar "area"))
  (entdel en)
  (* 1 dymj)

)

xfzzmzj · 发表于 2006-10-9 12:00:01

不要太相信 acad 的命令,
这些命令是有限制的,
例如面积太小是, 他就会忽略掉
例如填充时,如果太大,填充数据太大就会装不下,填充就会失败

dwg001 · 发表于 2006-10-9 14:29:01

试试它。

(defun c:dy (/ zkd)
  (setq en nil)
  ;(command "bpoly" zkd "")
  ;(setq en (entlast))
  (if (= en nil)
(progn
   ;(command "bpoly" zkd "")
   (command "bpoly" (setq zkd (getpoint "\n input a point...") ) "")
   (setq en (entlast))
)
  )
  (command "area" "o" en)
  (setq dymj (getvar "area"))
  (entdel en)
  (princ "\n  area=")
  (* 1 dymj)

)

pppppp4053 · 发表于 2006-10-9 15:41:32

谢谢两位，zkd是主程序中得到然后调用程序dy来求出面积，所以最好是先用主程序传来的点zkd，如果程序没有执行，再手工加点，不知道有没有什么函数能够判断(command "bpoly" zkd "")这句代码是否已经执行

雨箭风刀 · 发表于 2006-10-9 18:06:08

判断entlast是否改变

pppppp4053 · 发表于 2006-10-11 08:42:42

谢谢

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

[求助] [求助]：面积函数出错

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

相关帖子