请大家帮忙编一个程序

sdo7758258 · 发表于 2004-2-19 22:02:00

帮我做一个程序，把相同的导线型号的数量相加，如BLV-35/38,BLV-35/120,把二全本、相加，得158，请大家帮忙了，在下感激不尽

meflying · 发表于 2004-2-20 08:49:00

这些线有什么特征？就线的本身

Student · 发表于 2004-2-20 15:34:00

下面的程序已测试通过，供参考： (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
-----------------------

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

多谢多谢，可我不懂怎么用？能教我使用否？OICQ:52001189

f5612140 · 发表于 2004-2-21 14:41:00

該程序檔案命名 ***.lsp ***為自定

command:下輸入appload 或 ap

載入檔案,執行dxcd

sdo7758258 · 发表于 2004-2-22 15:18:00

可我执行得下面的数字，和楼上的不一样命令: dxcd
统计结果
-----------------------
导线型号导线长度
-----------------------
LGJ-95 52.5
BLV-35 47.5
BLV-50 21
BLV-70 11.5
LGJ-70 38
LGJ-120 48
-----------------------

Student · 发表于 2004-2-23 12:51:00

是程序的第21行没有写全，下面已改过。对不起。
(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)
)

sdo7758258 · 发表于 2004-2-24 12:23:00

谢谢，我试试看

sdo7758258 · 发表于 2004-2-24 12:33:00

可以了谢谢

sdo7758258 · 发表于 2004-3-2 19:05:00

还有一个问题想请教，假如把“/”换成“\”程序如何改动？还有在图纸当中统计如“方框4”中各个方框数字的总和？

账号		自动登录	找回密码
密码			注册

请大家帮忙编一个程序

本帖子中包含更多资源