tianshanfe 发表于 2009-7-29 11:14:00

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

<p>如何獲取選中的閉合圖形的面積</p><p>比如我選擇了一個閉合多段線，如何用LISP得到它的面積</p><p>謝謝</p>

elitefish 发表于 2009-7-29 12:01:00

(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
    )
)
页: [1]
查看完整版本: 如何獲取選中的閉合圖形的面積