[求助]：如何把CAD图纸里的一系列数值放到EXCEL里面进行求和

feitian0

问一个弱弱的问题，在CAD里有时要做材料表还要算重量，在计算总重量时都要一项重量一项重量的相加，很麻烦的，请问有没有办法把在CAD里做好的单项重量复制到EXCEL里再求和就好了。

zcf108

炸成单行,ET---把所有数值转换为一个多行文字,粘贴到EXCEL,再求和

查尔斯

直接在CAD内部实现求和的LSP程序。大家试试吧！

zcf108

怎么下不了?

zcf108

请哪位大哥把原文件上传呀?????

a_good_guy

试试在CAD打开EXCEL文件，这样计算可能会方便些。
“Inert”（插入）-->OLE Object (OLE 对象)…

yduts

不知你是否是用表格作的，若是，可选中表格，点右键，再点“输出”，切记可不是菜单文件下的“输出”，然后在EXCEL下打开即可计算。

badyou

用TT（truetable）

民工

acad2007的表格Table就能够求和，就像在excel里的操作一样，连函数公式都一样：＝sum（A1：A8）

另外，请问7楼的，输出成什么格式的文件？
自己找到了，是csv格式，TABLEEXPORT命令，不过用excel打开后字段也成了数字。
这个方法也行，只是每次acad改动过都要重新转换，还是不如在acad里面直接求和方便。

cuining

cad里就可以进行相加运算的

xiaoer20

那位大虾能不能说明白点，还是搞不懂，我用的是2004版

czg09180274

数据导入EXCEL进行计算我没用过，
不过我自己写了个小程序是用来在CAD内进行普通运算的，源文件如下：（如果不好用，欢迎修改）

(defun c:he ()
  (setvar "cmdecho" 0)
  (setq oldtxtstyle (getvar "textstyle"))
  (setq ptint (getpoint "\n 输入文本写入点 :"))
  (princ "\n 选择要求和的数据")
  (setq zh (getvar "textsize"))
  (setq pttxtint (polar ptint (/ pi 2) (* zh 2)))
  (setq sst (ssget))
  (setq        he_list        0
        m 0
        n 0
  )
  (repeat (sslength sst)
    (setq heno (ssname sst m))
    (setq henodata (entget heno))
    (setq henotype (cdr (assoc 0 henodata)))
    (if        (= henotype "TEXT")
      (ai_he)
    )
    (setq m (1+ m))
  )
  (setq he_list1 (rtos he_list 2 2))
  (if (null (tblsearch "style" "HZ"))
    (command "style" "HZ" "hztxt.shx" "" "0.7" "" "" "" "")
  )
  (setvar "textstyle" "HZ")
  (command "text" ptint zh "0" (strcat "总和＝ " he_list1))
  (command "text"
           pttxtint
           zh
           "0"
           (strcat "参与运算的对象共< " (itoa n) " >个！")
  )
  (setvar "textstyle" oldtxtstyle)
  (princ)
)

(defun ai_he ()
  (setq henotxt (cdr (assoc 1 henodata)))
  (setq henott (atof henotxt))
  (if (= henott 0)
    (setq n (1- n))
  )
  (setq he_list (+ henott he_list))
  (setq n (1+ n))
)

(prompt "\n ***<<C:HE>>***　程序设计作者：ZG＊CHEN")
(prompt "\n 计算数据文本对象和")
(princ)

linmin9

有人知道如何搞定他的破解吗？搞预算的人少不了它阿。

zcs1983

我要下载来，试试