进来看一下

sdo7758258

如图里面所示，如方框内的数字，我想统计整张图的方框里面的数据，程序如何写？ 一些如BLV-25/36之类的数据程序已做好如下： (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 1 pos) 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)
) 假如我把BLV-25/36，改成BLV-36\36，即“/”改成“\”如何改动，望指教！在下不胜感激。

meflying

(ascii "/")-&gt;(ascii "\\")

sdo7758258

谢谢班竹，如想统计方框里的数据又如何编写？即总和