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

墨色寒冰

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

alin

2. ;;;By Alin 19/9/2004
3. (defun c:getarea (/ reglst elast area enext oldEcho)
4.    (setq oldEcho (getvar "CMDECHO"))
5.    (setvar "CMDECHO" 0)
6.    (setq  elast (entlast)
7.   area   0.0
8.   )
9.    (princ "\n选择内部点:")
10.    (command "bpoly" "a" "o" "r" "")
11.    (while (> (getvar "CMDACTIVE") 0)
12.        (command pause)
13.        )
14.    (if (entnext elast)
15.        (progn
16.            (setq enext elast)
17.            (while (setq enext (entnext enext))
18.   (setq
19.      area
20.        (+ area (vla-get-area (vlax-ename->vla-object enext)))
21.      )
22.   (setq reglst (cons enext reglst))
23.   )
24.            (foreach reg reglst (entdel reg))
25.            (alert (strcat "总面积：" (rtos area 2 2)))
26.            )
27.        (princ "\n没有选择到内部点。")
28.        )
29.    (setvar "CMDECHO" cmdEcho)
30.    (princ)
31.    )

;;;By Alin 19/9/2004 (defun c:getarea (/ reglst elast area enext oldEcho)    (setq oldEcho (getvar "CMDECHO"))    (setvar "CMDECHO" 0)    (setq  elast (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)    )

墨色寒冰

多谢版主，我去试试看

墨色寒冰

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

alin

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

雪山飞狐_lzh

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

无痕

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


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

叶文军

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

雪山飞狐_lzh

无痕发表于2004-9-20 17:22:00关于 交点－》做成面域 这一步，lzh有什么好方法么？ 要知道一个交点打断后断点周围有4条线条，该怎么选来形成面域？

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

alin

也可以在交点附近找到一个内点，用BPOLY生成面域