Acet-geom-rect-points

提供:GizmoLabs - だいたい CAD LISP なサイト
構文
(acet-geom-rect-points p1 p2 )


機能
p1 と p2 で定義される矩形の「矩形コーナー点」から矩形の4点を座標リストを作成する。


引数
  • p1 … 矩形コーナーの座標点
  • p2 … p1の対角コーナーの座標点


戻り値
(左下 右下 右上 左上 左下) の点リストを返す。
ってなってるけど、座標の大小は考慮していないようで4点の座標の順番は固定ではない。


サンプル
; 4点は出るが p1, p2 の点を入れ替えると座標準が変わる。
(acet-geom-rect-points  '(0 0 0) '(-100 500)))
((0 0 0.0) (-100 0 0.0) (-100 500 0.0) (0 500 0.0) (0 0 0.0))

(acet-geom-rect-points   '(-100 500) '(0 0 0)))
((-100 500 0.0) (0 500 0.0) (0 0 0.0) (-100 0 0.0) (-100 500 0.0))


関連事項