×

关注微信公众号

免备案网站空间虚拟主机双线空间域名查询PS数码后期
photoshop互助课堂数百G视频教程下载英语培训机构初中英语如何学随时随地聆听大师开讲/课堂
软件安装教程 远程服务 超值!手绘教程抠图教程路径专辑photoshop cs3视频教程
查看: 2016|回复: 7

[技巧] 给AutoCAD增加计算器功能

[复制链接]
发表于 2007-7-27 15:55:35 | 显示全部楼层 |阅读模式
在用AutoCAD进行绘图时,经常需要进行一些必要的计算工作。尽管Autodesk公司随AutoCAD一起提供了一个可进行简单计算的LISP程序CALC.LSP,但该程序开发较早,在COMMAND命令下使用,界面不直观,且使用不方便。本文通过对AutoCAD内对话框结构及AutoLISP进行研究,提出了一种用对话框结构实现计算器功能的方法,同时给出程序流程图,供大家参考。该程序已应用于我院的实际工作中。
1 原理及方法
  AutoCAD对话框结构包含多种构件,如edit_box(编辑框)、text(文字)、button(按钮)等。利用这些工具,可以开发出界面友好的实用程序。图1就是用这种方法实现的。 将计算器中数字及各种运算符号以按钮(button)形式排成5行5列,并把计算结果以文字构件方式在对话框内显示,即可得到图1所示对话框结构(对话框文件#CAL.DCL)。最后编制对话框显示及完成各种运算功能的驱动程序即可(驱动程序#CAL.LSP),程序流程图见图2。
  在#CAL.LSP程序中用到了AutoLISP提供的多种数值计算及变量转换函数。需要说明的是,笔者在调试过程中发现某些函数对变量有一些特殊要求,现介绍如下,与读者共同探讨:
  1、在幂运算函数(expt base power)中,对变量base(底)和power(幂)的要求与代数学中幂的运算要求是不同的。在代数学中对变量base和power的要求如下:
  当 base>0时,power 可为任意实数;
  当base=0时,power须大于0;
  当base<0时,power可为整数,若为小数或分数时要求当其化为最简分数时分母不能为偶数。
  但在AutoLISP中当变量base<0时,要求power只能是整型数或小数点后均为0的实数,如2,-2.0等,否则将得到错误信息或返回一个错误结果(视power值而定)。此外,当计算结果太大而溢出时,对于FOR DOS版的AutoCAD将返回1.67e+308,而WINDOWS版则返回1.79769e+308。
2、正余弦函数(sin x)及(cos x)要求变量x必须小于等于9.223372e+18(当然还可再延长小数位数),否则得不到正确结果。例如当变量为9.223373e+18时,对于FOR DOS版的AutoCAD返回NAN,而WINDOWS版则返回变量值本身。
  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)。限于篇幅,本文不再提供该转换函数,需要的同志可与笔者联系。
2 程序使用方法
  将程序#CAL.LSP 及对话框文件#CAL.DCL拷贝到AutoCAD所能找到的目录中,在Command:命令下键入(LOAD "#CAL")进行程序的加载,即可象其它AutoCAD内部命令一样使用#CAL了。也可在所使用的菜单文件(如ACAD.MNU)中的下拉式菜单或屏幕菜单部分加上下面一行:[计算器]^C^C^P(if (null c:#cal) (load"#cal")) #cal以后即可直接从菜单中驱动该程序。
  对话框内各个图标与普通计算器相似,"C"表示清零,"M+"表示存储结果,"MR"表示弹出所存储的结果,"sqrt"表示开方,"X**y"表示求幂。当所输入的数据不合适或计算结果溢出时对话框内会显示错误提示信息。
  本程序在AutoCAD R12.0 FOR DOS及FOR WINDOWS版上均调试通过,但在WINDOWS版本中所显示的图形与图1略有不同。〔转帖〕
本帖的地址:http://bbs.jcwcn.com/forum.php?mod=viewthread&tid=102417
跟着教程做一遍,做完的图要到这里评论交作业,教程有看不懂的地方,可以在贴子下面评论
发表于 2007-7-27 21:02:00 | 显示全部楼层
酷素材
如何做,怎么操作,我替人咨询的
回复 支持 反对

使用道具 举报

发表于 2007-7-28 12:42:00 | 显示全部楼层
怎么操作
回复 支持 反对

使用道具 举报

发表于 2017-11-14 21:15:37 | 显示全部楼层
楼主是超人
回复 支持 反对

使用道具 举报

发表于 2017-11-14 20:43:03 | 显示全部楼层
酷素材
顶顶多好
回复 支持 反对

使用道具 举报

发表于 2017-11-14 20:17:29 | 显示全部楼层
酷素材
难得一见的好帖
回复 支持 反对

使用道具 举报

发表于 2017-11-14 20:32:25 | 显示全部楼层
说的非常好
回复 支持 反对

使用道具 举报

发表于 2017-11-14 20:31:11 | 显示全部楼层
不错不错
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | [立即注册]

本版积分规则

2345