找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: xbfengling

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

[复制链接]

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-27 20:49:11 | 显示全部楼层

代码有处BUG,重贴了,你重新拷贝回去加载试试。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2017-3-27 22:22:14 | 显示全部楼层

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

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2017-3-27 22:36:16 | 显示全部楼层
本帖最后由 newer 于 2017-3-27 22:41 编辑

试试

QQ截图20170327223409.png

QQ截图20170327223800.png


  1. (defun c:tt (/ ss p lst i)
  2.   (defun _maketable (lst)
  3.     (if        (setq pt (getpoint "\n表格插入点<退出>:"))
  4.       (progn
  5.         (setq lst (cons (list "序号" "长" "宽" "高" "数量" "备注") lst)
  6.               lst (cons (list "板件尺寸详单(mm)" "" "" "" "" "") lst)
  7.         )
  8.         (setq
  9.           #height (* 3.5 (xd::var:getscaleratio) (xd::var:getratio))
  10.         )
  11.         (xd::text:init 1)
  12.         (XD::Table:MakeFromList lst pt #height (/ #height 2.0))
  13.       )
  14.     )
  15.   )
  16.   (if (and (xdrx_initssget "\n选择3DSOLID立方体<退出>:")
  17.            (setq ss (xdrx_ssget '((0 . "3dsolid"))))
  18.       )
  19.     (progn
  20.       (setq lst
  21.              (xd::list:group
  22.                (mapcar '(lambda        (x / p1 p2 p3 p4)
  23.                           (mapcar 'set
  24.                                   '(p1 p2 p3 p4)
  25.                                   (xdrx_getpropertyvalue x "boundingbox")
  26.                           )
  27.                           (xdrx_string_join
  28.                             (mapcar '(lambda (a) (rtos a 2 1))
  29.                                     (vl-sort
  30.                                       (mapcar '- p3 p1)
  31.                                       '(lambda (x y) (> x y))
  32.                                     )
  33.                             )
  34.                             "*"
  35.                           )
  36.                         )
  37.                        (xdrx_pickset->ents ss)
  38.                )
  39.                1
  40.              )
  41.       )
  42.       (setvar "dimzin" 8)
  43.       (setq i        0
  44.             lst        (mapcar        '(lambda (x)
  45.                            (cons (itoa (setq i (1+ i)))
  46.                                  (append (xdrx_string_split (car x) "*")
  47.                                          (list (itoa (length x)))
  48.                                  )
  49.                            )
  50.                          )
  51.                         lst
  52.                 )
  53.       )
  54.       (_maketable lst)
  55.     )
  56.   )
  57.   (princ)
  58. )



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

 楼主| 发表于 2017-3-29 13:36:38 | 显示全部楼层

谢谢,能加个微信吗? zero19951215
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-4-1 18:53:02 | 显示全部楼层

帮忙写个说明啊!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 41个

财富等级: 招财进宝

发表于 2017-6-13 16:28:54 | 显示全部楼层

N版,我想把你这个代码在ucs里用来汇总矩形的边长和数量,可是对于成角度放置的矩形得到的数据不对,怎么改啊?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2019-9-3 19:49:34 | 显示全部楼层

请问大神是如何实现这个功能的?我也急需这样的功能。先谢谢了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2019-9-3 19:50:42 | 显示全部楼层

请问大神是如何实现这个功能的?我也急需这样的功能。先谢谢了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-14 14:39 , Processed in 0.375872 second(s), 48 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表