已解决：AB两列数据，A列是类型，B列是数量，如何归类并对每类求和。

dragoon33333

437271963 发表于 2016-10-2 11:16
写了一个，在命令行显示数据统计：

多谢，代码功能很强大。我这需求不用这么复杂。

437271963

dragoon33333 发表于 2016-10-2 11:46
多谢，代码功能很强大。我这需求不用这么复杂。

这个是样例，里面根据坐标排序功能可以参考。每两个水平文字一组进行分类。

yshf

试用以下程序:

2. (defun c:flqh()
   
3.   (command "_undo" "be")
   
4. 
   
5.   (defun tqsjzb(Xssa Xn / i n Xtymb)
   
6.        (setq i 0   n (sslength Xssa)  Xtymb ni)
   
7.        (repeat n
   
8.             (setq ent (ssname Xssa i)
   
9.                   dxf (entget ent)
   
10.             )
    
11.             (if (= Xn 0)
    
12.                 (setq Xtymb (cons (list (cdr (assoc 1 dxf)) (cdr (assoc 10 dxf))) Xtymb))
    
13.                 (setq Xtymb (cons (list (cdr (assoc 1 dxf)) (cdr (assoc 10 dxf)) ent) Xtymb))
    
14.             )
    
15.             (setq i (1+ i))
    
16.        )
    
17.       
    
18.        (setq Xtymb (vl-sort Xtymb '(lambda(e1 e2)
    
19.                                           (setq pt1 (cadr e1)
    
20.                                                 pt2 (cadr e2)
    
21.                                           )
    
22.                                           (if (equal (cadr pt1) (cadr pt2) 2.0)
    
23.                                               (< (car pt1) (car pt2))
    
24.                                               (> (cadr pt1) (cadr pt2))
    
25.                                           )
    
26.                                       )
    
27.                       )
    
28.        )
    
29.   )
    
30.   
    
31.   (if (progn
    
32.           (princ "\n请选取要统计的数据:")
    
33.           (setq ssa (ssget '((0 . "*text") (1 . "#*#"))))
    
34.       )
    
35.       (if (progn
    
36.              (princ "\n请选取更新的数据:")
    
37.              (setq ssb (ssget '((0 . "*text") (1 . "#*#壁厚管材,#*#"))))
    
38. 
    
39.          )
    
40.           (progn
    
41.               (setq tymba (tqsjzb ssa 0))
    
42.               (setq tymbb (tqsjzb ssb 1))
    
43.                     
    
44.               (setq sjb nil)
    
45.               (while tymba
    
46.                    (setq sjb (cons (list (car (car tymba)) (car (cadr tymba))) sjb))
    
47.                    (setq tymba (cdr (cdr tymba)))
    
48.               )
    
49.               (setq qhjg 'nil)
    
50.               (foreach zb sjb
    
51.                    (if (setq cxjg (assoc (car zb) qhjg))
    
52.                        (setq qhjg (subst (list (car zb) (+  (cadr cxjg) (read (cadr zb)))) cxjg qhjg))
    
53.                        (setq qhjg (cons (list (car zb) (read (cadr zb))) qhjg))
    
54.                    )
    
55.               )
    
56.               (setq qhjg (vl-sort qhjg '(lambda(x1 x2)(< (car x1) (car x2)))))
    
57.               (setq Newsjb nil)
    
58.               (while tymbb
    
59.                    (setq Newsjb (cons (list (car (car tymbb)) (last (cadr tymbb))) Newsjb))
    
60.                    (setq tymbb (cdr (cdr tymbb)))
    
61.               )
    
62.               (foreach zb qhjg
    
63.                    (If (setq cxjg (assoc (strcat (car zb) "壁厚管材" ) Newsjb))
    
64.                        (progn
    
65.                             (setq ent (last cxjg)
    
66.                                   dxf (entget ent)
    
67.                                   dxf (subst (cons 1 (rtos (cadr zb))) (assoc 1 dxf) dxf)
    
68.                             )
    
69.                             (entmod dxf)
    
70.                        )
    
71.                    )
    
72.               )
    
73.          )
    
74.       )
    
75.   )
    
76. 
    
77.   (command "_undo" "e")
    
78.   (princ)
    
79. )

(defun c:flqh()<br />   (command "_undo" "be")<br /> <br />   (defun tqsjzb(Xssa Xn / i n Xtymb)<br />        (setq i 0   n (sslength Xssa)  Xtymb ni)<br />        (repeat n<br />             (setq ent (ssname Xssa i)<br />                   dxf (entget ent)<br />             )<br />             (if (= Xn 0)<br />                 (setq Xtymb (cons (list (cdr (assoc 1 dxf)) (cdr (assoc 10 dxf))) Xtymb))<br />                 (setq Xtymb (cons (list (cdr (assoc 1 dxf)) (cdr (assoc 10 dxf)) ent) Xtymb))<br />             )<br />             (setq i (1+ i))<br />        )<br />        <br />        (setq Xtymb (vl-sort Xtymb '(lambda(e1 e2)<br />                                           (setq pt1 (cadr e1)<br />                                                 pt2 (cadr e2)<br />                                           )<br />                                           (if (equal (cadr pt1) (cadr pt2) 2.0)<br />                                               (< (car pt1) (car pt2))<br />                                               (> (cadr pt1) (cadr pt2))<br />                                           )<br />                                       )<br />                       )<br />        )<br />   )<br />   <br />   (if (progn<br />           (princ "\n请选取要统计的数据:")<br />           (setq ssa (ssget '((0 . "*text") (1 . "#*#"))))<br />       )<br />       (if (progn<br />              (princ "\n请选取更新的数据:")<br />              (setq ssb (ssget '((0 . "*text") (1 . "#*#壁厚管材,#*#"))))<br /> <br />          )<br />           (progn<br />               (setq tymba (tqsjzb ssa 0))<br />               (setq tymbb (tqsjzb ssb 1))<br />                     <br />               (setq sjb nil)<br />               (while tymba<br />                    (setq sjb (cons (list (car (car tymba)) (car (cadr tymba))) sjb))<br />                    (setq tymba (cdr (cdr tymba)))<br />               )<br />               (setq qhjg 'nil)<br />               (foreach zb sjb<br />                    (if (setq cxjg (assoc (car zb) qhjg))<br />                        (setq qhjg (subst (list (car zb) (+  (cadr cxjg) (read (cadr zb)))) cxjg qhjg))<br />                        (setq qhjg (cons (list (car zb) (read (cadr zb))) qhjg))<br />                    )<br />               )<br />               (setq qhjg (vl-sort qhjg '(lambda(x1 x2)(< (car x1) (car x2)))))<br />               (setq Newsjb nil)<br />               (while tymbb<br />                    (setq Newsjb (cons (list (car (car tymbb)) (last (cadr tymbb))) Newsjb))<br />                    (setq tymbb (cdr (cdr tymbb)))<br />               )<br />               (foreach zb qhjg<br />                    (If (setq cxjg (assoc (strcat (car zb) "壁厚管材" ) Newsjb))<br />                        (progn<br />                             (setq ent (last cxjg)<br />                                   dxf (entget ent)<br />                                   dxf (subst (cons 1 (rtos (cadr zb))) (assoc 1 dxf) dxf)<br />                             )<br />                             (entmod dxf)<br />                        )<br />                    )<br />               )<br />          )<br />       )<br />   )<br /> <br />   (command "_undo" "e")<br />   (princ)<br /> )

dragoon33333

yshf 发表于 2016-10-2 14:47
试用以下程序:

多谢大神，代码思路非常好。我嵌套了四五层最终也弄出来了。