如何獲取選中的閉合圖形的面積

tianshanfe

如何獲取選中的閉合圖形的面積

比如我選擇了一個閉合多段線，如何用LISP得到它的面積

謝謝

elitefish

2. (defun EF-Curve-Area ( ename /
3.         ;etype
4.         obj )
5.   (setq obj (vlax-ename->vla-object ename))
6.   ;(setq etype (cdr (assoc 0 (entget ename))))
7.   (if (< (distance (vlax-curve-getStartPoint obj) (vlax-curve-getEndPoint obj)) 10e-6)
8.     (vla-get-area obj)
9.     nil
10.     )
11.   )

(defun EF-Curve-Area ( ename /         ;etype         obj )   (setq obj (vlax-ename->vla-object ename))   ;(setq etype (cdr (assoc 0 (entget ename))))   (if (< (distance (vlax-curve-getStartPoint obj) (vlax-curve-getEndPoint obj)) 10e-6)     (vla-get-area obj)     nil     )   )