cal在Visual Lisp中的使用

cal在矢量计算中非常方便，而lisp中缺少相应的矢量函数。
但是lisp不能以(command "cal" "表达式")的形式调用cal命令。
cal是AutoCad的外部命令，在加载gromcal.arx后，cal可以在lisp中像其他函数一样使用。
加载方法：
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (if (= (type cal) nil) ;判断cal命令是否加载
    (arxload "geomcal.arx")
    )
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
在一篇文章中提到：
-----------------------------------------
需要注意的是，在Acad中gromcal.arx只能加载一次，重复加载将使Acad以外退出（无提示）。
需要使用cal函数的Lisp程序，应在程序尾部加上以下代码：
*******************
(if (or (= (type c:cal) 'LIST) ;R14使用
        (= (type c:cal) 'SUBR) ;R2000+使用
    )
    (arxload "geomcal.arx")
)
*******************
------------------------------------------
经试验，在08版中并无此现象。
可以使用cal函数来写通用的函数曲线绘制程序，但是需注意cal中角度的单位采用cad中的默认单位。