帮我修改一下这个LSP

sdo7758258 · 发表于 2004-7-28 17:40:00

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

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

david96007 · 发表于 2004-7-29 23:40:00

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

ZZXXQQ · 发表于 2004-7-30 08:08: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 (- 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)
)

帮我修改一下这个LSP

发表回复

精选推荐