Question

cad autolisp或者vlisp如何实现框选：a 11，a 22，g 33，g 44....

cad autolisp或者vlisp如何实现框选：a 11，a 22，g 33，g 44......得出结果：a 33，g 77......,大神施恩，追加分数。

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）+提问者悬赏30（财富值+成长值）

Answer 1

一些提示吧，得到直线 用的是ssget，它建立一个选择集，然后在选择集中分别取各实体
(sslength xzj)获得选择集中对象的个数n

以下几行供参考
(setq en (ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))
(repeat (sslength en)
(setq ss (ssname en i))
(setq line (entget ss))
(setq x (cdr (assoc 11 line)))

(setq y (cdr (assoc 10 line)))

追问

是文字与数字的组合，如何实现？

追答

你到底是何意，就是框选一个表格，累计其中连续的两个类目吗?
请把意图补充完全。

追问

能理解吗？

追答

你这个其实很简单啊，就是分析处理一下字符串就ok了。我手上没有完整的环境，无法给出完整的程序。你可以写一个，我在你的基础上做修改。写部分核心代码：
(setq en (ssget (list '(0 . "text")))) ;;选中范围内的text对象
用一个列表储存结果，用一个循环对en迭代，分解字符串两部分，累加

追问

我已经把文字，数字分开了，就是没思路怎把同文字的数字求和，请指点

这怎么发代码？

我的代码怎么发给你？

这样可以吗？

追答

你的代码如果比较长，通过私信的方式发送给我。
已经分开就好办了，关键你要构造一个数据结构，(list (cons aa 11) (cons bb 11))类似于这种的。 每次读入一个值，对list进行迭代，如果存在该文字，就累加上，不存在就创建一个新的(list (cons c 11))append在旧表末尾。

追问

私信维护中发不了

思路是这样的，但是我不知道如何确定数据结构，刚学还不会

追答

既然使用的是lisp，那必然是链表list啊，所有数据都以list来储存。我不是说了吗，构造成(list (cons aa 11) (cons bb 11))
这样的形式就可以了。

追问

然后怎么对比分类呢？

把同文字的统计出来求和，郁闷了好久了，无思路，求解。

请说明下用到的函数，我学习下

Answer 2

附上个DWG图纸

追问

就是把文字内容一样的数字求和，怎样才能实现，给个思路 多谢

追答

如果像你这样说的a 11什么的，可以用空格作为分割的符号，然后分割成前后两部分，按前一部分a g 什么的分类，然后对于后一部分转换成数字求和

追问

对的，怎么实现呢？如何把文字和数字分开？

没有空格的情况呢？

请大神帮忙完成