「Acet-angle-equal」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (acet-angle-equal angle1 angle2 [tolerance]) ; 機能 : 2つの角度（ラジアン単位）が、指定した許容誤差の範囲内で等しいかどうかを比較する。 ; 引数 :* angle1 … 比較する最初の角度（ラジアン）。 :* angle2 … 比較する2番目の角度（ラジアン）。 :* tolerance … 許容誤差（ラジアン）。デフォルトは 1.0e-10 ; 戻り値 : 角度が許容誤差内で等し…」) |
編集の要約なし |
||
| 1行目: | 1行目: | ||
{{AutoLISP}} | {{AutoLISP}} | ||
; 構文 | ; 構文 | ||
: (acet-angle-equal angle1 angle2 [tolerance]) | : (acet-angle-equal ''angle1'' ''angle2'' [ ''tolerance'' ]) | ||
2025年8月2日 (土) 18:38時点における最新版
- 構文
- (acet-angle-equal angle1 angle2 [ tolerance ])
- 機能
- 2つの角度（ラジアン単位）が、指定した許容誤差の範囲内で等しいかどうかを比較する。
- 引数
-
- angle1 … 比較する最初の角度（ラジアン）。
- angle2 … 比較する2番目の角度（ラジアン）。
- tolerance … 許容誤差（ラジアン）。デフォルトは 1.0e-10
- 戻り値
- 角度が許容誤差内で等しい場合は T、そうでない場合は nil。
- サンプル
(defun c:CompareAngles ()
(setq ang1 (/ pi 4.0)) ; 45度
(setq ang2 (+ (/ pi 4.0) 1.0e-12)) ; 非常に近い角度
(if (acet-angle-equal ang1 ang2)
(princ "\n2つの角度は等しいっぽよ。")
(princ "\n2つの角度は違うっぽいよ。")
)
(princ)
)
関連事項