帮我修改一下这个LSP

sdo7758258

在图中把相同类的/后面的数字相加？附有图纸和LSP程序，谢谢

david96007

我也装了2004，但发现别人已经改了你的程序，自己研究了半天才搞明白！
不过我也有我自己的想法，如果你将mtext改为text，程序就简单多了！
不妨一试！

ZZXXQQ

更改程序如下： (defun c:dxcd(/ )
(setq ss (ssget "x" '((0 . "MTEXT"))))
(setq sn (sslength ss))
(setq dxtab nil i 0)

(while(< i sn)
(setq si (ssname ss i)
str (cdr (assoc 1 (entget si)))
)
(setq pos nil)
; (if(< (strlen str) 15)
(setq pos (vl-string-position (ascii "/") str))
; )
(if pos
(progn
(setq xx (substr str (- pos 5) 6) cd (substr str (+ pos 2)) cd(atof cd))
(setq dxlst (assoc xx dxtab))
(if dxlst (progn
(setq cd (+ (cdr dxlst) cd))
(setq dxtab (subst (cons xx cd) dxlst dxtab))
)
(setq dxtab (append dxtab (list(cons xx cd))))
)
)
)
(setq i(1+ i))
)
(princ "\n统计结果")
(princ "\n-----------------------")
(princ "\n导线型号 导线长度")
(princ "\n-----------------------")

(setq i 0)
(while(< i (length dxtab))
(setq dxlst (nth i dxtab))
(princ (strcat "\n" (car dxlst) " " (rtos (cdr dxlst) 2 2)))
(setq i (1+ i))
)
(princ "\n-----------------------")
(princ)
)