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

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

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

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

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

日月明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

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

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

谢谢7楼的朋友，我不太明白，能否把你的源码传给我，供我学习。


我的E-Mail：<A href="mailto:zouxm@126.com" target="_blank" >zouxm@126.com</A>

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

很好！正是我想要的！

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

页: [1] 2
查看完整版本: [求助]怎样计算填充面的面积