Acet-geom-unit-vector

提供:GizmoLabs - だいたい CAD LISP なサイト
2025年8月11日 (月) 16:35時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (acet-geom-unit-vector ''p1'' ''p2'') ; 機能 : p1からp2までのベクトルの単位ベクトル(長さは1.0)を返す。 ; 引数 :* p1 … 座標点リスト。 :* p2 … 座標点リスト。 ; 戻り値 : 単位ベクトル座標値 ; サンプル <pre class="brush:autolisp;"> (acet-geom-unit-vector (getpoint) (getpoint)) (1.0 0.0 0.0) (setq unt (acet-geom-unit-vector (getpoint) (getpoint))) ; p1->p2 が 60度だった…」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(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


関連事項