Acet-geom-vector-parallel

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月14日 (木) 08:41時点におけるGizmon (トーク | 投稿記録)による版
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(acet-geom-vector-parallel v1 v2)


機能
ベクトル v1 と v2 が平行かどうかをチェックする。


引数
  • v1 … ベクトル座標リスト
  • v2 … ベクトル座標リスト


戻り値
ベクトル v1 と v2 が平行であれば T 、そうでなければ nil。


サンプル
(acet-geom-vector-parallel  '(1 1)  '(2 2))
T

(acet-geom-vector-parallel  '(1 1)  '(-2 -2))
T

(acet-geom-vector-parallel  '(0 0 1)  '(0 0 2))
T

(acet-geom-vector-parallel  '(1 1 1)  '(2 2 2))
T

(acet-geom-vector-parallel  '(0 0 0)  '(2 2 2))
nil



関連事項