广告源于生活点滴
我们不是无所不能,只是在不断进步,不断超越自我
咨询热线:QQ:1790466627
公司简介
经营理念
合作共赢
联系我们
您当前的位置:主页 > 软件教程 > CAD教程 >

怎么用lisp写一个公式类cad计算程序

发布于:2022-01-12 19:35来源:admin 作者:admin 点击:

画图中应该会有不少计算类相关内容。有些是公式性的计算,这种计算也许有人用第三方软件可以解决,还有人直接更喜手动计算器完成。那么这类的,如果用lisp怎么实现呢。

编辑的逻辑,也是思考的逻辑。首先要解决什么问题,这个问题怎么解决,怎么用lisp实现。

以下以电气中的单相负荷计算电流为例,说明公式类计算程序怎么写。

问题:

计算单相负荷电流,能够在cad中通过输入功率、利用系数、功率因数,自动计算出电流。

方法:

通过公式计算,I=kP/Ucosɸ,其中I是电流(A),k是利用系数,p是功率(W),U是电压220(V),cosɸ是功率因数。

Lisp

需要有可获取键盘输入数据的函数,需要实现公式计算的运算,需要能输入计算结果的函数。

通过以上三步思考,大脑基本会有一个成型的lisp框架。接下来就是用lisp搭建出来。

打开cad,命令行输入vlide,调出lisp编辑器,新建一个lisp文件。根据以上思考,就可以将一个公式计算的程序编辑出来。一共三个部分,一是获取数据,二是执行计算公式,三是输出计算结果。

lisp程序:


  1. (defun c:dx();定义单相计算电流的函数名称,即cad的命令快捷键

  2.   (setq p (getreal " 请输入单相负荷功率(kW):"));键盘输入功率,get是获取,real是实数,即获取一个实数值,setq是将获取的实数值赋值给变量p

  3.   (setq k (getreal " 请输入利用系数:"));另起一行,输入利用系数

  4.   (setq fi(getreal " 请输入功率因数:"));另起一行,输入利用系数

  5.   (setq i (/(* k p 1000)220fi));计算电流,并把结果赋值给i

  6.   (print"单相计算电流(A)是:");输出文字

  7.   (princ i);输出计算电流值i

  8.   (prin1);结束

  9.   )

语句分号后内容是说明,不参与程序执行,只是便于这里说明所加。

加载应用程序,cad命令行输入快捷键dx,得到如下结果。

动图演示:

根据以上,是不是自制lisp插件并没有你想象的那么难呢,你可以试着改写,变成你想要的公式计算。如此你便拥有了一个自制的简单插件。就算是纯cad,你也可以立即写出程序。
本文转自CAD自学网,如有侵权告知
更多学习资料尽在遵义尚美冠广告

 

------分隔线----------------------------
  • 上一篇:没有了
  • 下一篇:没有了
------分隔线----------------------------
分享到:
回到顶部