yuping913 发表于 2019-4-3 10:48:18

求一个取文本自动计算的LISP

一个对象的单行或者多行文本，内容如
200x300
200×300
200*300
或者是三个对象的 一个200，一个x, 一个300
选择之后计算出结果60000


是英文x或者是乘号或者是*号。

satan421 发表于 2019-4-3 10:48:19

本帖最后由 satan421 于 2019-4-12 11:37 编辑

;;目前只能处理单个运算符的乘法运算;;1.运算符和数值在同一文本内的:形如200*300,200x300,200X300,200×300
;;2.运算符与数值分开的(目前仅支持选择两个数值文本和一个运算符)

;;已修改 见19L附件


1291500406 发表于 2019-4-3 11:17:39

本帖最后由 1291500406 于 2019-4-3 11:30 编辑

x X 是字母   %%174
*是运算符
x先要转换为*


ll_j 发表于 2019-4-3 11:36:32

我网络U盘里的ce就是计算文本的，不过是很久前编的。只支持单行文字，并且只支持星号和x（xyz的x）的作为乘号。

1291500406 发表于 2019-4-3 13:11:48

本帖最后由 1291500406 于 2019-4-3 13:17 编辑

试试这个吧，

yuping913 发表于 2019-4-4 08:16:40

必强提示:选择文字:
选择文字:12X32参数类型错误: streamp nil
命令:
命令:BB
必强提示:选择文字:
选择文字:12*32参数类型错误: streamp nil

1291500406 发表于 2019-4-4 09:52:35

本帖最后由 1291500406 于 2019-4-4 10:03 编辑

yuping913 发表于 2019-4-4 08:16
必强提示:选择文字:
选择文字:12X32参数类型错误: streamp nil
命令:

我用CAD2017和CAD2007测试，均正常，你查杀一下cad病毒

yuping913 发表于 2019-4-4 13:53:54

先谢谢了，操作有点复杂，不用计算器可以吗？就像这样

xyp1964 发表于 2019-4-4 15:03:03


1291500406 发表于 2019-4-4 15:57:41

本帖最后由 1291500406 于 2019-4-4 16:22 编辑

yuping913 发表于 2019-4-4 13:53
先谢谢了，操作有点复杂，不用计算器可以吗？就像这样
试试这个，一个带对话框，一个不带对话
页: [1] 2 3
查看完整版本: 求一个取文本自动计算的LISP