如何快速求出封闭图形的面积

yxp · 发表于 2005-6-9 14:11

这是一个工程问题，能否在在封闭的线框中点一下，自动搜索边界，求出其面积？用LISP解决。

meflying · 发表于 2005-6-9 15:37

(defun c:test( / pt)
(while (setq pt (getpoint "点击区域..."))
(command "_.boundary" "a" "o" "p" "" pt "")
(command "_.area" "o" (entlast))
(entdel (entlast))
(alert (rtos (getvar "area")))
)
(princ)
)

xyp1964 · 发表于 2005-6-9 22:05

本帖最后由作者于 2005-6-19 9:17:45 编辑

可以试试下面的“面积标注”程序：

yxp · 发表于 2005-6-10 13:49

多谢二位斑竹的斑竹，二楼的方法简单，但容错性不好。我再变通一下谢谢。

三楼的不能运行。

他哥 · 发表于 2005-6-11 23:33

不知求体积是否一样？

yxp · 发表于 2005-6-14 08:08

如果线段不封闭，求面积时会出现不可预料的结果。能不能让程序自动封闭？

如果建立好三维模型，能求出体积吗？

cjrun · 发表于 2005-6-16 08:27

程序不能自动封闭，更不能求体积！

hhc · 发表于 2005-6-16 10:51

求曲线面积（包括不封闭曲线）：(vla-get-area (vlax-ename->vla-object (car (entsel))))

求三维实体体积：(vla-get-volume (vlax-ename->vla-object (car (entsel))))

以上两个方法需先执行(vl-load-com)

renlong119 · 发表于 2005-6-17 15:22

可以自定义一个工具栏按钮在与此按钮关联的宏为 ^C^C_boundary \ _area o (entlast) 那位大侠帮改改，怎么去掉新创建的边界线

yxp · 发表于 2005-6-19 02:05

我们的 meflying 大侠不是给出代码了吗？ (entdel (entlast))

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

如何快速求出封闭图形的面积

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

浏览过的版块