墨色寒冰 发表于 2004-9-19 14:41:00

[求助]如何求两交线之间的面积？多谢各位进来看看

有劳各位高手帮忙了，在此先谢过了

alin 发表于 2004-9-19 17:57:00

;;;By Alin 19/9/2004
(defun c:getarea (/ reglst elast area enext oldEcho)
   (setq oldEcho (getvar "CMDECHO"))
   (setvar "CMDECHO" 0)
   (setqelast (entlast)
area   0.0
)
   (princ "\n选择内部点:")
   (command "bpoly" "a" "o" "r" "")
   (while (> (getvar "CMDACTIVE") 0)
       (command pause)
       )
   (if (entnext elast)
       (progn
         (setq enext elast)
         (while (setq enext (entnext enext))
(setq
   area
       (+ area (vla-get-area (vlax-ename->vla-object enext)))
   )
(setq reglst (cons enext reglst))
)
         (foreach reg reglst (entdel reg))
         (alert (strcat "总面积：" (rtos area 2 2)))
         )
       (princ "\n没有选择到内部点。")
       )
   (setvar "CMDECHO" cmdEcho)
   (princ)
   )

墨色寒冰 发表于 2004-9-19 19:13:00

多谢版主，我去试试看

墨色寒冰 发表于 2004-9-19 20:07:00

版主，有没有办法不用       (princ "\n选择内部点:")而直接由程序去判断呢？<BR>

alin 发表于 2004-9-20 11:53:00

Yes, but at least you have to select the two Plines/Splines.

雪山飞狐_lzh 发表于 2004-9-20 14:48:00

打断于交点－》做成面域－》面积相加

无痕 发表于 2004-9-20 17:22:00

关于 交点－》做成面域 这一步，lzh有什么好方法么？


要知道一个交点打断后断点周围有4条线条，该怎么选来形成面域？

叶文军 发表于 2004-9-20 18:00:00

有封闭域面积程序,你们找一下会有的,FBYMJ

雪山飞狐_lzh 发表于 2004-9-20 18:05:00

无痕发表于2004-9-20 17:22:00static/image/common/back.gif关于 交点－》做成面域 这一步，lzh有什么好方法么？



要知道一个交点打断后断点周围有4条线条，该怎么选来形成面域？


那四条线加进来也不要紧，同样可以生成

<BR>

alin 发表于 2004-9-20 19:03:00

也可以在交点附近找到一个内点，用BPOLY生成面域
页: [1] 2 3
查看完整版本: [求助]如何求两交线之间的面积？多谢各位进来看看