[求助]怎样计算填充面的面积

日月明3721 · 发表于 2004-10-4 21:53:00

各位大侠：如何用LISP程序计算填充面的面积？？？

hangc · 发表于 2004-10-4 22:22:00

;;From 韩光聪四川 . 成都
(defun c:myarea()
(setvar "osmode" 0)
(setq pt (getpoint "\n选取点："))
(while pt
(setvar "cecolor" "1")
(command "bpoly" pt "")
(setq en (entlast))
(if (/= en nil)
(progn
(command "area" "o" en)
(setq aa (getvar "area"))
(redraw en 3)
(alert (strcat "面积:" (rtos aa 2)))
);end progn
);end if
(entdel en)
(setvar "cecolor" "bylayer")
(setq pt (getpoint "\n选取点:"))
);end while
(prin1)
);end fun

日月明3721 · 发表于 2004-10-10 21:00:00

谢谢二楼成都的朋友，如果有孤岛时，面积未扣除孤岛面积。见图所示：

hangc · 发表于 2004-10-12 16:51:00

只要内外区域都是封闭的，本程序可以分开计算

日月明3721 · 发表于 2004-10-12 21:35:00

谢谢！

ttthhh_hb · 发表于 2004-10-23 06:05:00

很简单的问题。

pfrynwgkq · 发表于 2004-10-31 19:04:00

我是用理正来做的。它里面有一个算图案的命。个人觉得满好用的。

日月明3721 · 发表于 2004-11-6 20:27:00

谢谢7楼的朋友，我不太明白，能否把你的源码传给我，供我学习。我的E-Mail：zouxm@126.com

zb_lou · 发表于 2004-12-5 00:50:00

很好！正是我想要的！

洋葱老爹 · 发表于 2005-6-9 19:19:00

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

[求助]怎样计算填充面的面积

本帖子中包含更多资源

本帖子中包含更多资源