只需要lisp代码对num求和

sakrado · 发表于 2022-7-6 06:43:44

大家好
我只想对文本或多行文字中的数字求和
例如
->EBA 12（21）NDBR（25.56）=0.2这是多行文字
->FD 12（102）这是多行文字
->NDBR 21（2个管道）它是MTEXT
->（X1=25.32）是文本（X2=54.21）也是文本

我想得到结果
->12+21+25.56+0.2=...
->12+102=...
->21+2=...
->文本和文本1+25.32+2+54.21之和=。。。
->多行文字和文字之和
->多行文字和多行文字之和
我想让它按对象选择。适用于所有图纸。

有人能帮我吗？

请参见下面的“我的DWG文件”
需要LISP对该文件求和。图纸

ReMark · 发表于 2022-7-6 06:54:34

有一些自定义lisp例程可以实现这一点。快速的互联网搜索应该可以很容易地找到其中一些。

Costinbos77 · 发表于 2022-7-6 06:58:06

收集并比较每个字符，如果它们是数字，则将其存储并添加。

[code]（defun c:test（）（或（vl load com））（if（setq i 0 sel（ssget（list）（0.TEXT，MTEXT））））；“_X”（cons 8 layer）（progn（setq lsel（sslength sel））（princ（strcat”\n Texts:”（itoa lsel））（while（<i lsel）（setq nmo（vlax ename->vla object（ssname sel i））txt（vla get TextString nmo））（if（=（vla get ObjectName nmo）“AcDbMText”）（setq txt（[颜色=红色]LM:UnFormat[/颜色]txt nil））；if（setq ltxt（strlen txt）j 1 no“ts”s 0）（而（