提供:GizmoLabs - だいたい CAD LISP なサイト
					 
					- 構文
 
- (vlax-curve-getArea curve-obj)
 
- 機能
 
- 曲線の内側の面積を返す。
 
- 引数
 
- 
- curve-obj : 計測する VLA オブジェクト。
 
 
- 戻り値
 
- 成功した場合は曲線の面積を表す実数。 それ以外の場合は nil。
 
- サンプル
 
(defun ex_curvearea ()
  (vl-load-com)
  (setq ent1 (car (entsel "¥n円か楕円をクリック:"))) 
  (setq vlaobj1 (vlax-ename->vla-object ent1))
  (vlax-curve-getArea vlaobj1)
)