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

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

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

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

xbfengling · 发表于 2017-3-27 22:22:14

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

谢谢，已经捣鼓出来了。还有个问题，长宽高三列，能不能把数值大的放到长那里，第二大的放到宽那里。最小的放到高那里？
像现在自动生成的长宽高意义不大呀！

newer · 发表于 2017-3-27 22:36:16

本帖最后由 newer 于 2017-3-27 22:41 编辑

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

试试

(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::text:init 1)
(XD::Table:MakeFromList lst pt #height (/ #height 2.0))
)
)
)
(if (and (xdrx_initssget "\n选择3DSOLID立方体<退出>:")
(setq ss (xdrx_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))
(vl-sort
(mapcar '- p3 p1)
'(lambda (x y) (> x y))
)
)
"*"
)
)
(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::text:init 1) 
        (XD::Table:MakeFromList lst pt #height (/ #height 2.0)) 
      ) 
    ) 
  ) 
  (if (and (xdrx_initssget "\n选择3DSOLID立方体<退出>:") 
           (setq ss (xdrx_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)) 
                                    (vl-sort 
                                      (mapcar '- p3 p1) 
                                      '(lambda (x y) (> x y)) 
                                    ) 
                            ) 
                            "*" 
                          ) 
                        ) 
                       (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-29 13:36:38

newer 发表于 2017-3-27 22:36

谢谢，能加个微信吗？ zero19951215

比目大神 · 发表于 2017-4-1 18:53:02

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

帮忙写个说明啊！！

pezyl · 发表于 2017-6-13 16:28:54

newer 发表于 2017-3-27 22:36

N版，我想把你这个代码在ucs里用来汇总矩形的边长和数量，可是对于成角度放置的矩形得到的数据不对，怎么改啊？

人在江湖飘 · 发表于 2019-9-3 19:49:34

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

请问大神是如何实现这个功能的？我也急需这样的功能。先谢谢了！

人在江湖飘 · 发表于 2019-9-3 19:50:42

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

请问大神是如何实现这个功能的？我也急需这样的功能。先谢谢了！

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

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