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

xbfengling · 发表于 2017-3-27 10:20:11

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

能不能具体说说怎么做，我把代码放进去了，但是用的时候报错了

goodboyfly · 发表于 2017-3-27 10:56:54

xbfengling 发表于 2017-3-27 10:20

要用小东工具箱才行的，

newer · 发表于 2017-3-27 11:35:59

xbfengling 发表于 2017-3-27 10:20

安装 XDRX API 或者安装晓东工具箱都行。

GTHHGOD · 发表于 2017-3-27 13:32:38

顶下。我也需要这个。最好输出加入图层列表，这样就可以把侧板，横版，背板，门板更加细化了。

GTHHGOD · 发表于 2017-3-27 14:33:55

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

你好，你这个工具哪里下的啊？

goodboyfly · 发表于 2017-3-27 16:30:54

GTHHGOD 发表于 2017-3-27 14:33

加我QQ460304737，不用小东工具箱也是可以的

newer · 发表于 2017-3-27 16:51:23

本帖最后由 newer 于 2017-3-27 20:48 编辑

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

来一个表格的版本，表格生成了，其实EXCEL也就有了。

衣柜生成表格.gif

(defun c:tt (/ ss p lst i)
(defun _maketable (lst)
(if (setq pt (getpoint "\n表格插入点<退出>:"))
(progn
(setq lst (cons (list "序号" "长" "宽" "高" "数量" "备注") lst)
lst (cons (list "板件尺寸详单(mm)" "" "" "" "" "") lst)
)
(setq #height (* 3.5 (xd::var:getscaleratio)(xd::var:getratio)))
(XD::Table:MakeFromList lst pt #height (/ #height 2.0))
)
)
)
(if (setq ss (ssget '((0 . "3dsolid"))))
(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)
(setq i 0
lst (mapcar '(lambda (x)
(cons (itoa (setq i (1+ i)))
(append (xdrx_string_split (car x) "*")
(list (itoa (length x)))
)
)
)
lst
)
)
(_maketable lst)
)
)
(princ)
)

(defun c:tt (/ ss p lst i) 
  (defun _maketable (lst) 
    (if        (setq pt (getpoint "\n表格插入点<退出>:")) 
      (progn 
        (setq lst (cons (list "序号" "长" "宽" "高" "数量" "备注") lst) 
              lst (cons (list "板件尺寸详单(mm)" "" "" "" "" "") lst) 
        ) 
        (setq #height (* 3.5 (xd::var:getscaleratio)(xd::var:getratio))) 
        (XD::Table:MakeFromList lst pt #height (/ #height 2.0)) 
      ) 
    ) 
  ) 
  (if (setq ss (ssget '((0 . "3dsolid")))) 
    (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) 
      (setq i 0 
        lst (mapcar '(lambda (x) 
                       (cons (itoa (setq i (1+ i))) 
                             (append (xdrx_string_split (car x) "*") 
                                     (list (itoa (length x))) 
                             ) 
                       ) 
                     ) 
                    lst 
            ) 
      ) 
      (_maketable lst) 
    ) 
  ) 
  (princ) 
)

xbfengling · 发表于 2017-3-27 16:59:40

这个也需要加晓东工具吗

newer · 发表于 2017-3-27 17:03:38

xbfengling 发表于 2017-3-27 16:59

下载 XDRX API ，安装就行了。

newer · 发表于 2017-3-27 18:54:56

xbfengling 发表于 2017-3-27 16:59

来个最后的表格转EXCEL，去每日插件论坛下载：http://bbs.xdcad.net/thread-707894-1-1.html

登录/注册后可看大图

xbfengling · 发表于 2017-3-27 19:00:45

GTHHGOD 发表于 2017-3-27 13:32

有什么办法吗？

xbfengling · 发表于 2017-3-27 19:23:12

newer 发表于 2017-3-27 16:51

我用了你的代码，但是报错了。已经装了晓东工具箱。你看图片

newer · 发表于 2017-3-27 19:42:47

xbfengling 发表于 2017-3-27 19:23

晓东工具箱下载链接下面有几排说明文字，你去看下，升级下XDRX API。

你的API是 2.12版本的，现在API是3.27了。

xbfengling · 发表于 2017-3-27 20:27:05

newer 发表于 2017-3-27 19:42

我重新装了3.27的，也是一样报错

newer · 发表于 2017-3-27 20:49:11

xbfengling 发表于 2017-3-27 20:27

代码有处BUG，重贴了，你重新拷贝回去加载试试。

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

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