需要注意的是，在Acad中gromcal.arx只能加载一次，重复加载将使Acad以外退出（无提示）。需要使用cal函数的Lisp程序，应在程序尾部加上以下代码：
*******************
(if (or (= (type c:cal) LIST) ;R14使用
(= (type c:cal) SUBR) ;R2000+使用
)
(arxload "geomcal.arx")
)
*******************
cal的使用与加载
Acad随机附带了一些外部定义命令，其中cal（计算器）命令是最常用的命令之一，在加载gromcal.arx后cal可以在Lisp程序中像其它函数一样使用，这就使得我们在程序中对文本的四则运算处理变得简单，如“(cal "1+2/3")”，其中字符串"1+2/3"可以从图形的文本中提取，也可以是符合cal要求格式的任一字符串（详见Acad联机帮助）。
需要注意的是，在Acad中gromcal.arx只能加载一次，重复加载将使Acad以外退出（无提示）。需要使用cal函数的Lisp程序，应在程序尾部加上以下代码：
*******************
(if (or (= (type c:cal) LIST) ;R14使用
(= (type c:cal) SUBR) ;R2000+使用
)
(arxload "geomcal.arx")
)
*******************
需要注意的是，在Acad中gromcal.arx只能加载一次，重复加载将使Acad以外退出（无提示）。需要使用cal函数的Lisp程序，应在程序尾部加上以下代码：
*******************
(if (or (= (type c:cal) LIST) ;R14使用
(= (type c:cal) SUBR) ;R2000+使用
)
(arxload "geomcal.arx")
)
*******************