・ 角度単位の変換

Lispの関数で返される角度や、エンティティーデータに含まれる角度は、ラジアン（Rad)です。
それに対し、コマンドラインでのユーザー入力は、度数（Deg）です。
そのため、ラジアン（Rad)と度数（Deg）の間で変換が必要となることがあります。

ラジアン（Rad)から度数（Deg）に

;********************************************************;
;角度をラジアンから度数に変換                            ;
;********************************************************;
(defun Jo_ang_r2d( / ang)
  (defun Jof_ang_r2d ( ang );角度をラジアンから度数に変換;
    (* (/ ang pi) 180)
    )

  (setq ang (getreal "\n角度<ラジアン>を入力"))
  (setq ang (Jof_ang_r2d ang))
  (princ "\n")
  (princ ang)
  (princ "°です")
  (princ)
  )

度数（Deg）からラジアン（Rad)に

;********************************************************;
;角度を度数からラジアンに変換                            ;
;********************************************************;
(defun Jo_ang_d2r( / ang)
  (defun Jof_ang_d2r ( ang );角度を度数からラジアンに変換;
    (* (/ ang 180.0) pi);2005/12/11 180→180.0に修正<(_ _)>;
    )

  (setq ang (getreal "\n角度<度数>を入力"))
  (setq ang (Jof_ang_d2r ang))
  (princ "\n")
  (princ ang)
  (princ "ラジアンです")
  (princ)
  )