设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

返回列表
查看: 102|回复: 6

[编程申请] 求助统计CAD文件内单行文字编号和数量两列导出到excel

[复制链接]

签到天数: 21 天

连续签到: 1 天

[LV.4]偶尔看看III

发表于 2017-8-8 00:15:38 | 显示全部楼层 |阅读模式

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

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 喜之郎cici 于 2017-8-8 22:24 编辑

工作中经常需要统计CAD文件中所选择的文字的编号和数量,而且又要导出到excel处理,用CAD自带的数据提取太麻烦了,希望大神帮助!谢谢!
另外工作中常需要查找完全重叠(并不是文字相交了)了相同内容的单行文字的地方,并不仅仅去重,而是要知道哪些地方的文字有完全重叠,求教各位大神!
附件为样例!
TIM图片20170808221653.png TIM图片20170808221846.png
附图中图1为CAD文件局部截图  图2为通过插件统计所选择的文字导出到到excel效果
请点击此处下载

查看状态:需购买或无权限

您的用户组是:游客

文件名称:示例.rar  备注: 
下载次数:7  文件大小:191.99 KB 
下载权限: 不限 以上  [免费赚D豆]





上一篇:请教一个问题,安装了晓东,原快捷键被修改?
下一篇:【已解决】CAD中带文字的数字分别求和插件
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复
百度谷歌雅虎搜狗搜搜有道360奇虎

使用道具 举报

签到天数: 339 天

连续签到: 1 天

[LV.8]以坛为家I

已领礼包: 51个

财富等级: 招财进宝

发表于 2017-8-15 23:21:00 | 显示全部楼层
搜狗截图20170815231823.png


  1. (defun c:tt ()
  2.   (xdrx_begin)
  3.   (if (not #xd-tongji-textheight)
  4.     (setq #xd-tongji-textheight 3.5)
  5.   )
  6.   (if (setq val        (getreal
  7.                   (xdrx_prompt "\n字高<" #xd-tongji-textheight ">:" t)
  8.                 )
  9.       )
  10.     (setq #xd-tongji-textheight val)
  11.   )
  12.   (if (and (xdrx_initssget "\n选取要统计的文字<退出>")
  13.            (setq ss (xdrx_ssget '((0 . "*TEXT"))))
  14.       )
  15.     (progn
  16.       (setq ents (xdrx_entity_getproperty ss "textstring")
  17.             ents (mapcar
  18.                    '(lambda (x)
  19.                       (if
  20.                         (xdrx_string_regexps
  21.                           "^([a-zA-Z][0-9]+([a-zA-Z]+)?|[0-9]+[A-Za-z]+([0-9]+)?)$"
  22.                           x
  23.                         )
  24.                          (list x x)
  25.                       )
  26.                     )
  27.                    ents
  28.                  )
  29.             ents (vl-remove nil ents)
  30.             ents (xd::list:groupbyindex ents 1.0)
  31.             ents (mapcar '(lambda (x) (list (car x) (length (cdr x)))) ents)
  32.             ents (vl-sort ents '(lambda(x y)(< (car x)(car y))))
  33.             i 0
  34.             ents (mapcar '(lambda(x)(cons (itoa (setq i (1+ i))) x)) ents)
  35.       )
  36.       (setq ents (cons (list "序 号" "编 号" "计 数") ents)
  37.             ents (cons (list "统 计 表" nil nil)
  38.                        ents
  39.                  )
  40.       )
  41.       (if (setq pt (getpoint "\n表格插入点<退出>:"))
  42.         (progn
  43.           (xd::text:init 1)
  44.           (xd::table:makefromlist
  45.             ents
  46.             pt
  47.             #xd-tongji-textheight
  48.             (/ #xd-tongji-textheight 2.0)
  49.           )
  50.         )
  51.       )
  52.     )
  53.   )
  54.   (princ)
  55. )

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

使用道具 举报

签到天数: 921 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-8-8 00:39:47 | 显示全部楼层
把你做的成果例图 放大 截图贴上来,包括DWG的成果和EXCEL的成果。用图告诉大家你想要做什么。
DWG文件和EXCEL文件压缩传上来供测试。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 921 天

连续签到: 1 天

[LV.10]以坛为家III

已领礼包: 39个

财富等级: 招财进宝

发表于 2017-8-8 00:41:05 | 显示全部楼层
重叠文字,论坛有,用 重叠 搜索论坛。多看看以前的帖子。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 21 天

连续签到: 1 天

[LV.4]偶尔看看III

 楼主| 发表于 2017-8-8 22:29:24 | 显示全部楼层

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

使用道具 举报

签到天数: 21 天

连续签到: 1 天

[LV.4]偶尔看看III

 楼主| 发表于 2017-8-22 00:16:57 | 显示全部楼层

实在太感谢你了!谢谢你!!!就是这个插件统计的结果不能导出到EXCEL,因为工作中还要把这个统计的结果导出到excel处理,如果加入这个功能就非常完美了!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

签到天数: 1184 天

连续签到: 7 天

[LV.10]以坛为家III

点击这里给我发消息

已领礼包: 142个

财富等级: 日进斗金

发表于 2017-8-22 00:30:07 | 显示全部楼层

晓东工具箱 - 表格 - 导出EXCEL

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

使用道具 举报

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

本版积分规则

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

辽公网安备 21040202000005号

GMT+8, 2018-2-23 06:52 , Processed in 0.536081 second(s), 75 queries , Gzip On.

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

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