教你怎么修改公式计算类lisp插件

前面分享了怎么用lisp实现计算结果插入到屏幕中，链接：点击查看，结果好多粉丝问我，周站长我看不懂lisp插件，也不会编lisp插件。怎么把你给的计算插件改成自己想要的？那现在我来告诉你怎么把现成的改成符合你计算的，如果看完你还是不会改，那我就再想想办法。

此处计算类Lisp插件功能：cad屏幕中选取已知计算参数，计算并在cad中刷新计算值。

功能演示如下动图示意。

修改方法：

1. 你的计算公式中需要哪些已知参数，如果也是三个，只需修改选中的已知参数提示名即可。

如果少于三个，删掉多余的语句即可，即删除以下四行语句即可。

如果多于三个，也相应的复制以下四行语句，增设即可，并修改p1_data  p1_value变量名为任意英文字母即可。

(setq p1_data (assoc 1 (entget (car (entsel)))))
(setq p1_value (atof (number (cdr p1_data))))
(princ "单相设备功率：")
(princ p1_value)

2. 修改计算公式。

如果你也需要计算两个值，相应的修改阴影部分的计算公式即可。

如果你需要计算一个值，将其中一个计算语句删除即可，比如删除 pjs的计算语句：

(setq pjs (* k1_value p1_value))

并将之后有关于此值的刷新语句删除（即删除所有有pjs字母的语句）：

(setq pjs (rtos pjs 2 1))
(setq pjs (strcat "Pjs=" pjs "Kw"))
(setq pjs_data (entget (car (entsel))))
(entmod (subst (cons 1 pjs) (assoc 1 pjs_data) pjs_data))

3.修改输出到cad屏幕上的无关计算数据的其他内容。

还是那句老话，授你以鱼不如授你以渔。如果不会编，那就要会改，看不懂也没关系，只要知道改哪里也是可以的。如果你看完还是蒙，或者我再想想办法，或者你再开动开动大脑。

完整lisp代码下载，联系后台。此外，如电气专业计算电流直接用此代码时，注意功率因数中的ø保证是%%C形式生成的，如是特殊符号插入生成识别会有误。

（完）