[转帖]如何使用？

sdo7758258 · 发表于 2004-2-20 23:28:00

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:blzfzalopjh
下载次数:0 文件大小:65.58 KB 售价:2银币 [记录]
下载权限: 不限以上或 Vip会员 [开通Vip] [签到领银币] [免费赚银币]

有位老鸟帮我做了一个程序：
下面的程序已测试通过，供参考： (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
-----------------------
但我不知怎么用，望能帮忙

[转帖]如何使用？

发表回复

精选推荐