Acet-geom-unit-vector

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


機能
p1からp2までのベクトルの単位ベクトル(長さは1.0)を返す。


引数
  • p1 … 座標点リスト。
  • p2 … 座標点リスト。


戻り値
単位ベクトル座標値


サンプル
(acet-geom-unit-vector (getpoint) (getpoint))
(1.0 0.0 0.0)

(setq unt (acet-geom-unit-vector (getpoint) (getpoint))) ; p1->p2 が 60度だった時
(0.499999999999999 0.866025403784439 0.0)
(gz:rad->deg (angle '(0 0 0) unt))
60.0000000000001 ; 誤差は出ることがあるよね。

(setq unt (acet-geom-unit-vector (getpoint) (getpoint))) ; p1->p2 が 180度だった時
(-1.0 0.0 0.0)
(gz:rad->deg (angle '(0 0 0) unt))
180


関連事項