给AutoCAD增加计算器功能# H. L' U. Z2 d/ {
4 A( F! \' J( Z) H% U
在用AutoCAD进行绘图时，经常需要进行一些必要的计算工作。尽管Autodesk公司随AutoCAD一起提供了一个可进行简单计算的LISP程序CALC.LSP，但该程序开发较早，在COMMAND命令下使用，界面不直观，且使用不方便。本文通过对AutoCAD内对话框结构及AutoLISP进行研究，提出了一种用对话框结构实现计算器功能的方法，同时给出程序流程图，供大家参考。该程序已应用于我院的实际工作中。 3 W0 ?5 X7 [" ^4 N, F
1 原理及方法
% I( z' [2 f w% O: t0 n AutoCAD对话框结构包含多种构件，如edit_box(编辑框)、text(文字)、button(按钮)等。利用这些工具，可以开发出界面友好的实用程序。图1就是用这种方法实现的。 将计算器中数字及各种运算符号以按钮(button)形式排成5行5列，并把计算结果以文字构件方式在对话框内显示，即可得到图1所示对话框结构(对话框文件#CAL.DCL)。最后编制对话框显示及完成各种运算功能的驱动程序即可(驱动程序#CAL.LSP)，程序流程图见图2。2 t9 A! D; K3 E% v4 W6 j; X
在#CAL.LSP程序中用到了AutoLISP提供的多种数值计算及变量转换函数。需要说明的是，笔者在调试过程中发现某些函数对变量有一些特殊要求，现介绍如下，与读者共同探讨：
) A4 B8 w, p9 q6 r 1、在幂运算函数(expt base power)中，对变量base(底)和power(幂)的要求与代数学中幂的运算要求是不同的。在代数学中对变量base和power的要求如下：
8 d# u/ R C% ^3 s 当 base>0时，power 可为任意实数；
( G3 I8 y& d4 i/ x' x 当base=0时，power须大于0；- B: x# C* c* t1 z" `0 N
当base<0时，power可为整数，若为小数或分数时要求当其化为最简分数时分母不能为偶数。
}2 Q) i. M; P. R$ g+ S0 V; q7 l 但在AutoLISP中当变量base<0时，要求power只能是整型数或小数点后均为0的实数，如2，-2.0等，否则将得到错误信息或返回一个错误结果(视power值而定)。此外，当计算结果太大而溢出时，对于FOR DOS版的AutoCAD将返回1.67e+308，而WINDOWS版则返回1.79769e+308。6 b9 I j4 N4 ^) C4 H. J" o
2、正余弦函数(sin x)及(cos x)要求变量x必须小于等于9.223372e+18(当然还可再延长小数位数)，否则得不到正确结果。例如当变量为9.223373e+18时，对于FOR DOS版的AutoCAD返回NAN，而WINDOWS版则返回变量值本身。
, U i( X3 U) l4 |. [, W4 t! p$ w 3、在使用函数(rtos)将数据转化为字符串时，笔者发现当数据大于1e+100(即10的100次方)时，会将指数100自动地改为99。例如，执行(rtos 6e+100 2 6)后得到"6.000000E+99"，而不是所期待的"6.000000E+100"。所以本程序规定最大数据不能大于1e+99，否则将显示溢出错误。当然，通过编制另外的转换程序是可以将最大数据提高到AutoCAD所能接受的最大数据(经测试发现其最大值可为1.79769e+308)。限于篇幅，本文不再提供该转换函数，需要的同志可与笔者联系。" N _% z( {0 X: d0 b+ {4 k- Y% L
2 程序使用方法
3 y# t" s* u9 @+ V 将程序#CAL.LSP 及对话框文件#CAL.DCL拷贝到AutoCAD所能找到的目录中，在Command：命令下键入(LOAD "#CAL")进行程序的加载，即可象其它AutoCAD内部命令一样使用#CAL了。也可在所使用的菜单文件(如ACAD.MNU)中的下拉式菜单或屏幕菜单部分加上下面一行：[计算器]^C^C^P(if (null c:#cal) (load"#cal")) #cal以后即可直接从菜单中驱动该程序。
8 w3 Z& r, k; D- ` 对话框内各个图标与普通计算器相似，"C"表示清零，"M+"表示存储结果，"MR"表示弹出所存储的结果，"sqrt"表示开方，"X**y"表示求幂。当所输入的数据不合适或计算结果溢出时对话框内会显示错误提示信息。
, e; r- Q* R, p/ E* S3 V 本程序在AutoCAD R12.0 FOR DOS及FOR WINDOWS版上均调试通过，但在WINDOWS版本中所显示的图形与图1略有不同。 |
发表于 2010-8-12 08:56