批量计算面积（POLYLINE,LWPOLYLINE,SPLINE,ARC,CIRCLE,SPLINE,HATCH,REGION）

Lispboy

1. (defun c:tt ()
   
2.   (if (setq
   
3.         ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,SPLINE,ARC,REGION,HATCH"))
   
4.            )
   
5.       )
   
6.     (progn (setq ar (apply '+ (xdrx_entity_getproperty ss "area")))
   
7.            (princ (xdrx_string_format "\n总面积=%.2f" ar))
   
8.     )
   
9.   )
   
10.   (princ)
    
11. )
    

(defun c:tt ()<br />   (if (setq<br />         ss (ssget '((0 . "*POLYLINE,CIRCLE,ELLIPSE,SPLINE,ARC,REGION,HATCH"))<br />            )<br />       )<br />     (progn (setq ar (apply '+ (xdrx_entity_getproperty ss "area")))<br />            (princ (xdrx_string_format "\n总面积=%.2f" ar))<br />     )<br />   )<br />   (princ)<br /> )<br />

命令: tt
选择对象: 指定对角点: 找到 4 个

选择对象:

总面积=4382119.29