Acet-geom-rect-points

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月12日 (火) 10:56時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-rect-points ''p1'' ''p2'' ) ; 機能 : p1 と p2 で定義される矩形の「矩形コーナー点」から矩形の4点を座標リストを作成する。 ; 引数 :* p1 … 矩形コーナーの座標点 :* p2 … p1の対角コーナーの座標点 ; 戻り値 : (左下 右下 右上 左上 左下) の点リストを返す。 : ってなってるけど、座標の大小は考慮していないようで4点の座標…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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))


関連事項