将度数转换为弧度

现在，您将创建一个函数来防止重复键入公式。它看起来像这样：

(defun Degrees->Radians (numberOfDegrees) 
(* pi (/ numberOfDegrees 180.0)))

调用此函数。函数名称指示其用途。Degrees->Radians

为什么需要一个函数来转换角度测量值？在后台，AutoCAD®使用弧度角度测量来跟踪角度，而大多数人则以度数来思考。工具包中的此函数允许您以度为单位思考，并允许 AutoLISP®将这些数字转换为弧度。

测试实用工具函数

1. 在 Visual LISP 控制台提示符下输入以下内容：

   (defun Degrees->Radians (numberOfDegrees) 
   (* pi (/ numberOfDegrees 180.0)))

2. 在 Visual LISP 控制台提示符下输入以下内容：

   (degrees->radians 180)

   该函数返回数字 3.14159。根据此函数的工作原理，180 度相当于 3.14159 弧度。

要在程序中使用此函数，只需将函数定义从控制台窗口复制到gpmain.lsp文件中即可。您可以将其粘贴到文件中的任何位置，只要不将其粘贴到现有函数的中间即可。

要清理您的工作，请选择您刚刚粘贴的文本，然后单击 格式选择 按钮;Visual LISP 将正确缩进并格式化代码。

接下来，添加一些描述函数的注释。完整记录函数后，代码应如下所示：

;;;--------------------------------------------------------------;
;;;     Function: Degrees->Radians                               ;
;;;--------------------------------------------------------------;
;;; Description: This function converts a number representing an ;
;;;              angular measurement in degrees, into its radian ;
;;;              equivalent. There is no error checking on the   ;
;;;              numberOfDegrees parameter -- it is always       ;
;;;              expected to be a valid number.                  ;
;;;--------------------------------------------------------------;
(defun Degrees->Radians (numberOfDegrees)
  (* pi (/ numberOfDegrees 180.0))
)