[原创]：如图示的两条多义线，如何得到两者之间的面积

ll_j

这段程序缺输出部分，当系统变量cmdecho关闭时，command结果将不在命令行回显，程序应该在(entdel(entlast))之后加上
(princ (getvar "area"))
(princ)

maxbug

借鉴楼上诸位的意见,写了如下程序,2002下能用.

(defun c:ww1 (/ pt ename vlaobject )
  (if (bpoly (getpoint "\n内部点: "))
    (progn     
      (vl-load-com)
      (setq ename     (entlast)
            vlaobject (vlax-ename->vla-object ename)          
      )
      (princ (vlax-curve-getArea vlaobject))
      (entdel ename)
    )
  )
  (princ)
)

Qming

n你先BOUNDARY一下。再看面积不就可以了啊 。
多的话在aa加起来啊！

lyc3029

(princ "\noa,测量实体面积/周长！Writen by lyc")
(defun c:oa (/ ss1 ss a n d  x m b va nu1 c e f g nu times per)
(princ "\n请选择你要测量的实体!")
(setvar "cmdecho" 0)
(setq a (ssget))
(setq n (sslength a))
(setq e (ssname a 0))
(setq f (entget e))(setq g (assoc 0 f))
(setq va1 (cdr g))
(setq nu1 0)
(if (= "LWPOLYLINE" va1 ) (setq nu1 (+ nu1 1)))
(if (= nu1 0) (setq c a) (progn (command "EXPLODE" a) (setq c (ssget "p"))) )
(setq nu 0)
(setq x (ssname c 0))
(setq m (entget x))(setq b (assoc 0 m))
(setq va (cdr b))
(if  ( = "LWPOLYLINE" va ) (setq nu (+ nu 1)))
(if (= nu 1) (command "pedit" c "j" "all" "" "") (command "pedit" c "y" "j" "all" "" ""))
(setq ss1 (ssget "l"))
(setq ss (ssname ss1 0))
(command "area" "o" ss)
(setq d (getvar "area"))(setq per (getvar "Perimeter"))
(princ "\n该实体的面积:")
(princ d)
(princ "\n  周长:")
(princ per)
(princ "\n 请点取屏幕上一点,输出面积 and 周长")
(setq th (getvar "textsize") )
(command "text" "j" "mc" (getpoint) th 0 (strcat "面积:  " (rtos d 2 4) "  周长: " (rtos per 2 4)  ))
(princ)
)

选择边界,无论是LWP,ARC,LINE,,但要把边界多余的线裁掉

y-004

这句还是不能执行

and2008

楼上的程序怎么都不能实现呢？！麻烦发一个最终的结果上来，多谢了。

xyp1964

试试签名栏下的“面积标注”程序：
http://www.xdcad.net/forum/showthread.php?s=&threadid=272117

snoopychen

[PHP]
(defun c:my()
(command "-boundary" pause "" )
(command "area" "o" "l"  )
(command "erase" "l" "" )
(prompt "\n the area is ")
(getvar "area")
)
[/PHP]

and2008

郁闷，还是没找到能计算包括spline线在内所围成的面积......

snoopychen

这样就可以求spline的了吧
[PHP]
(defun c:my1()
(command "-boundary" pause "" "y")
(command "region" "l" "")
(command "area" "o" "l"  )
(command "erase" "l" "" )
(prompt "\n the area is ")
(getvar "area")
)
[/PHP]

and2008

楼上的程序可以满足了。如果我想求若干封闭曲线的总面积，其中线型有很多中，比如line,arc,circle,spline,ellipse......不知能否通过程序来实现？

wxl1981807

是框选的所有封闭面积吗

snoopychen

假如只是一点点的点击封闭区域内的话，倒也比较容易，这个以前有编过
主要是帮同学算公路的挖填面积
假如要框选的话，用这种思路来编，就得先判别出所有的封闭区域，然后找出每个区域内的一点来求，这个寻找所有封闭区域再求面积的程序我编过，不过思路比较乱，程序不太稳定，就不献丑了
或许有更好的方法来求解这个问题

and2008

对阿，是框选的，包括所有线型，谁能提供一个阿？

weiqiang011

功能真强大，超出我的想象了
谢谢搂住