[转帖]如何使用？

sdo7758258

有位老鸟帮我做了一个程序： 下面的程序已测试通过，供参考： (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))
(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)
)

下面是运行结果：
Command: dxcd 统计结果
-----------------------
导线型号 导线长度
-----------------------
LGJ-95 690.5
BLV-35 2873
BLV-50 1482.5
BLV-70 252
LGJ-70 125
LGJ-120 92
-----------------------
但我不知怎么用，望能帮忙