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

yshf

2. ;;;对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义) by yshf
3. ;;;1.将下载的文件“wbszys0.fas”
4. ;;;  存到“H”盘中，如存入其它地方，
5. ;;;  请更改程序中第二行中的相应路径名。
6. ;;;2.在命令行中键入wbszys，即可以对图中所选择
7. ;;;  范围内的单行文本进行四则运算。
8. ;;;3.支持小数位数按原数字的小数位数保留或自定义
9. (defun c:wbszys()
10.    (if (null wbszys0)(load "H:wbszys0.fas"));请注意文件wbszys0.fas”存盘路径名
11.    (wbszys0)
12. )
13. (prompt "\n在命令行中键入wbszys，对图中的单行文本进行四则运算。")

;;;对图中的单行文本进行四则运算(支持保留原数字的小数位数或自定义) 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，对图中的单行文本进行四则运算。")

461045462

谢谢 yshf

那么久的了

我顶一下

让她浮出水面