[LISP程序]：对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义)

yshf

[php];;;对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义) by yshf
;;;1.将下载的文件“wbszys0.fas”
;;;  存到“H”盘中，如存入其它地方，
;;;  请更改程序中第二行中的相应路径名。
;;;2.在命令行中键入wbszys，即可以对图中所选择
;;;  范围内的单行文本进行四则运算。
;;;3.支持小数位数按原数字的小数位数保留或自定义

(defun c:wbszys()
   (if (null wbszys0)(load "H:wbszys0.fas"));请注意文件wbszys0.fas”存盘路径名
   (wbszys0)
)
(prompt "\n在命令行中键入wbszys，对图中的单行文本进行四则运算。")[/php]

marcoyuwen

发源码吧，让有需要的人学习一下。