把AUTOCAD三维建模的数据导出到EXCEL表格

xbfengling · 发表于 2017-3-26 19:13:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 xbfengling 于 2017-3-26 21:05 编辑

我的工作用到AUTOCAD建模。其中百分之95%都是用BOX命令画出来的方块。我想把CAD里面的每一个方块的长宽高数据数据导出到EXCEL表格里面。求一个这个的插件，或者类似的方法。我是论坛新人，论坛币没多少。如果能解决赠送100红包表谢。谢谢。
如图片这样，把CAD的每个BOX的长宽高，自动输出生成一个EXCEL表格。

CAD文件在附件

newer · 发表于 2017-3-26 19:40:02

传个DWG图压缩上来吧。

xbfengling · 发表于 2017-3-26 21:05:58

newer 发表于 2017-3-26 19:40

已经上传了。

xbfengling · 发表于 2017-3-26 21:08:37

newer 发表于 2017-3-26 19:40

我用的是AUTOCAD2010版的，不知道方不方便

goodboyfly · 发表于 2017-3-26 22:32:17

本帖最后由 newer 于 2017-3-26 22:50 编辑

goodboyfly · 发表于 2017-3-26 22:35:11

本帖最后由 goodboyfly 于 2017-3-26 22:36 编辑

http://www.xfcad.com/flyit.html，，，，，看看这个怎么样，GIF发了两次没见到动，只能发地址了

newer · 发表于 2017-3-26 22:52:38

goodboyfly 发表于 2017-3-26 22:35

你要在网页图片上右键，复制图片地址，然后贴图时候，选择网络图片，把地址粘贴过去才行。

newer · 发表于 2017-3-26 22:53:18

你这些长方体序号顺序有要求吗？

goodboyfly · 发表于 2017-3-26 22:59:24

newer 发表于 2017-3-26 22:52

哦，明白了，谢谢

iLisp · 发表于 2017-3-27 00:38:45

(defun c:tt (/ ss p lst)
(if (and (setq ss (ssget '((0 . "3dsolid"))))
(setq p (getpoint "\nInsertion point: "))
)
(progn
(setq lst (xd::list:group
(mapcar '(lambda (x / p1 p2 p3 p4)
(mapcar 'set '(p1 p2 p3 p4) (xdrx_getpropertyvalue x "boundingbox"))
(xdrx_string_join
(mapcar '(lambda (a) (rtos a 2 1))
(mapcar '- p3 p1)
)
"*"
)
)
(xdrx_pickset->ents ss)
)
1
)
)
(setvar "dimzin" 8)
(foreach x lst
(xdrx_text_make p (strcat (car x) "=" (itoa (length x))) 25 0.0)
(setq p (mapcar '+ p '(0. -40 0.)))
)
)
)
(princ)
)

(defun c:tt (/ ss p lst) 
  (if (and (setq ss (ssget '((0 . "3dsolid")))) 
           (setq p (getpoint "\nInsertion point: ")) 
      ) 
    (progn 
      (setq lst        (xd::list:group 
                  (mapcar '(lambda (x / p1 p2 p3 p4) 
                             (mapcar 'set '(p1 p2 p3 p4) (xdrx_getpropertyvalue x "boundingbox")) 
                             (xdrx_string_join 
                               (mapcar '(lambda (a) (rtos a 2 1)) 
                                       (mapcar '- p3 p1) 
                               ) 
                               "*" 
                             ) 
                           ) 
                          (xdrx_pickset->ents ss) 
                  ) 
                  1 
                ) 
      ) 
      (setvar "dimzin" 8) 
      (foreach x lst 
        (xdrx_text_make p (strcat (car x) "=" (itoa (length x))) 25 0.0) 
        (setq p (mapcar '+ p '(0. -40 0.))) 
      ) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2017-3-27 01:17:22

iLisp 发表于 2017-3-27 00:38

帮做个动画

青梅煮茶 · 发表于 2017-3-27 08:35:33

确实是难得好帖啊，顶先

xbfengling · 发表于 2017-3-27 09:16:37

newer 发表于 2017-3-26 22:53

可以按照从上到下，从左到右。或者从下到上，从做到右

yzhyxh · 发表于 2017-3-27 09:26:50

回的人少，我来小顶一下

xbfengling · 发表于 2017-3-27 09:28:38

代码我也不会怎么用。具体应该怎么操作，我的VX：zero19951215
2、5、10楼的大兄弟加个。

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

[编程申请] 把AUTOCAD三维建模的数据导出到EXCEL表格

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子