求助，如何统计不同颜色的文本的数量，感觉好困难，跪求大侠们指点！！！

highflybird

去参考 晓东CAD 开源函数库论坛，看 XD::List:GroupBYIdex 源代码。
你这个问题几行代码就解决了。
http://bbs.xdcad.net/forum-260-1.html

llsheng_73

需要明确一点的是如果随层，是否需要考虑图层？
因为对于颜色、线型、线宽等可以随层的属性可能看着是一样，实际上也一样，但它的数据是不一样的，相应的处理方式也不一样

xyp1964

2. ;; tt(不同颜色文本数量统计) 需要e派工具箱(XCAD)的支持: http://yunpan.cn/cAtx5rcDR4VnY  提取码 eca7
   
3. (defun c:tt ()
   
4.   (setq ss (ssget '((0 . "text"))))
   
5.   (setq        lst (xyp-ss2list ss)
   
6.         lst (mapcar '(lambda (x) (itoa (xyp-get-color x))) lst)
   
7.         lst (vl-sort lst '<)
   
8.         lst (xyp-List-Count lst)
   
9.   )
   
10.   (foreach a lst
    
11.     (princ "\n颜色")
    
12.     (princ (car a))
    
13.     (princ ", 数量")
    
14.     (princ (cadr a))
    
15.   )
    
16.   (princ)
    
17. )

;; tt(不同颜色文本数量统计) 需要e派工具箱(XCAD)的支持: http://yunpan.cn/cAtx5rcDR4VnY  提取码 eca7<br /> (defun c:tt ()<br />   (setq ss (ssget '((0 . "text"))))<br />   (setq        lst (xyp-ss2list ss)<br />         lst (mapcar '(lambda (x) (itoa (xyp-get-color x))) lst)<br />         lst (vl-sort lst '<)<br />         lst (xyp-List-Count lst)<br />   )<br />   (foreach a lst<br />     (princ "\n颜色")<br />     (princ (car a))<br />     (princ ", 数量")<br />     (princ (cadr a))<br />   )<br />   (princ)<br /> )

llsheng_73

1. (defun c:tt(/ a c snl i lst)
   
2.   (setq a(tblnext"layer"t)
   
3.         snl(cons(mapcar'(lambda(x)(cdr(assoc x a)))'(2 62))snl))
   
4.   (while (setq a(tblnext"layer"nil))
   
5.     (setq snl(cons(mapcar'(lambda(x)(cdr(assoc x a)))'(2 62))snl)))
   
6.   (if(setq i -1 ss(ssget"X"'((0 . "TEXT"))))
   
7.     (progn
   
8.       (repeat (sslength ss)
   
9.         (setq i(1+ i)
   
10.               a(entget(ssname ss i))
    
11.               c(cdr(assoc 62 a))
    
12.               c(if c c(last(assoc(cdr(assoc 8 a))snl)))
    
13.               a(assoc c lst)
    
14.               lst(if a(subst(list c(1+(last a)))a lst)
    
15.                    (cons(list c 1)lst))))
    
16. (alert(apply'strcat(mapcar'(lambda(x)(strcat(vl-princ-to-string(car x))"        "(vl-princ-to-string(last x))(chr 13)))(cons'(颜色 数量)lst))))))
    
17.   )

(defun c:tt(/ a c snl i lst)<br />   (setq a(tblnext"layer"t)<br />         snl(cons(mapcar'(lambda(x)(cdr(assoc x a)))'(2 62))snl))<br />   (while (setq a(tblnext"layer"nil))<br />     (setq snl(cons(mapcar'(lambda(x)(cdr(assoc x a)))'(2 62))snl)))<br />   (if(setq i -1 ss(ssget"X"'((0 . "TEXT"))))<br />     (progn<br />       (repeat (sslength ss)<br />         (setq i(1+ i)<br />               a(entget(ssname ss i))<br />               c(cdr(assoc 62 a))<br />               c(if c c(last(assoc(cdr(assoc 8 a))snl)))<br />               a(assoc c lst)<br />               lst(if a(subst(list c(1+(last a)))a lst)<br />                    (cons(list c 1)lst))))<br /> (alert(apply'strcat(mapcar'(lambda(x)(strcat(vl-princ-to-string(car x))"        "(vl-princ-to-string(last x))(chr 13)))(cons'(颜色 数量)lst))))))<br />   )

写得比较啰嗦

放羊去的

守仁格竹GM 发表于 2014-12-17 13:23
调用格式XD:ist:GroupByIndex lst fuzz)
详见http://bbs.xdcad.net/forum.php?mod=viewthread&tid=67 ...

谢谢大侠的回复帮助！

放羊去的

ㄘ丶转裑ㄧ灬 发表于 2014-12-17 19:51
代码我没有，也不会写，
看来你只能按颜色多次统计了。。
方法一：CAD自带命令：fi（比较繁琐）

多谢“ㄘ丶转裑ㄧ灬”大侠的回复和热心帮助

放羊去的

highflybird 发表于 2014-12-17 22:07
去参考 晓东CAD 开源函数库论坛，看 XD:ist:GroupBYIdex 源代码。
你这个问题几行代码就解决了。
http: ...

多谢高飞鸟版主的回复帮助。

放羊去的

xyp1964 发表于 2014-12-20 13:19

非常感谢“xyp1964”版主的帮助和回复，可能是我没有表达清楚，其实我想要把文本也一起统计出来的，每一个文本有多少个，对应的颜色是什么，要的是这样的效果。待会在一楼上个图，版主的方法已经很接近了，功能很强大，我还得多多学习啊！

放羊去的

llsheng_73 发表于 2014-12-20 16:27
写得比较啰嗦

非常感谢“llsheng_73”大侠能抽出时间给写代码帮助小弟，我试了下，也是和楼上的版主的功能一样。我表达的不够清楚之前，文本也要一起统计出来的是想要，每一个文本有多少个，对应的颜色是什么。我下去会好好研究下大侠的源码，感觉已经很接近了。一楼我贴出来的统计文本的代码（出自明经）不能在上面修改一下吗？文本已经统计出来了，后面的个数统计要重新写一下，这个统计是所有的文本的数量，要按照颜色（或者图层）再来统计其相对应的数量，就是在统计出来的文本中再次循环一遍，按照相应的颜色（或者图层）进行筛选，我写的有点罗嗦了~

xyp1964

2. ;; tt(不同颜色文本数量统计)
   
3. ;; 需要e派工具箱(XCAD)的支持: http://yunpan.cn/cAtx5rcDR4VnY  提取码 eca7
   
4. (defun c:tt ()
   
5.   (setq ss (ssget '((0 . "text"))))
   
6.   (setq lst  (xyp-ss2list ss)
   
7.         lst (mapcar '(lambda (x) (list (xyp-DXF 1 x) (xyp-get-color x))) lst)
   
8.         lst  (vl-sort lst '(lambda (x y)
   
9.                          (cond ((< (car x) (car y)) t)
   
10.                                ((and (= (car x) (car y)) (< (cadr x) (cadr y)))t)
    
11.                          )
    
12.                        )
    
13.              )
    
14.         lst  (xyp-List-CountSub lst)
    
15.         lst2 (mapcar '(lambda (x) (list (caar x) (cadar x) (cadr x))) lst)
    
16.         lst3 (xyp-Count-Num lst2 2)
    
17.   )
    
18.   (foreach a lst2
    
19.     (princ "\n文本: ") (princ (car a)) (princ ", 颜色: ") (princ (cadr a)) (princ ", 数量:") (princ (caddr a))   
    
20.   )
    
21.   (princ"\n")
    
22.   (foreach a lst3
    
23.     (princ "\n文本: ") (princ (car a)) (princ ", 合计数量: ") (princ (cadr a))
    
24.   )
    
25.   (princ)
    
26. )

;; tt(不同颜色文本数量统计)<br /> ;; 需要e派工具箱(XCAD)的支持: http://yunpan.cn/cAtx5rcDR4VnY  提取码 eca7<br /> (defun c:tt ()<br />   (setq ss (ssget '((0 . "text"))))<br />   (setq lst  (xyp-ss2list ss)<br />         lst (mapcar '(lambda (x) (list (xyp-DXF 1 x) (xyp-get-color x))) lst)<br />         lst  (vl-sort lst '(lambda (x y)<br />                          (cond ((< (car x) (car y)) t)<br />                                ((and (= (car x) (car y)) (< (cadr x) (cadr y)))t)<br />                          )<br />                        )<br />              )<br />         lst  (xyp-List-CountSub lst)<br />         lst2 (mapcar '(lambda (x) (list (caar x) (cadar x) (cadr x))) lst)<br />         lst3 (xyp-Count-Num lst2 2)<br />   )<br />   (foreach a lst2<br />     (princ "\n文本: ") (princ (car a)) (princ ", 颜色: ") (princ (cadr a)) (princ ", 数量:") (princ (caddr a))    <br />   )<br />   (princ"\n")<br />   (foreach a lst3<br />     (princ "\n文本: ") (princ (car a)) (princ ", 合计数量: ") (princ (cadr a))<br />   )<br />   (princ)<br /> )