Vla-get-area

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年12月14日 (土) 17:28時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-get-area ''vla-object'') ; 機能 : 図形(円弧、円、楕円、ハッチング、ライトウェイト ポリライン、ポリライ...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-get-area vla-object)


機能
図形(円弧、円、楕円、ハッチング、ライトウェイト ポリライン、ポリライン、リージョン、平面上で閉じたスプライン)の囲まれた面積を取得する。


引数
  • vla-object … VLA オブジェクト(Arc、Circle、Ellipse、Hatch、LightweightPolyline、Polyline、Region、Spline)
戻り値
平方作図単位によるオブジェクトの面積。倍精度浮動小数点数型


サンプル
(defun c:GZ-PlineAreaSum ( / sset i total g)
  ; 閉じたポリラインの面積合計
  (vl-load-com)
  (setq sset (ssget '((0 . "POLYLINE,LWPOLYLINE")(-4 . "&")(70 . 1))) 
        i    0 
        total  0.0)
  (while (< i (sslength sset))
    (setq g (vla-get-area (vlax-ename->vla-object (ssname sset i)))
          total (+ g total)
	   i (1+ i)))
total
)


関連事項