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

喜之郎cici · 发表于 2017-8-8 00:15:38

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

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

×

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

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

附图中图1为CAD文件局部截图图2为通过插件统计所选择的文字导出到到excel效果

请点击此处下载

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

您的用户组是：游客

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

Lispboy · 发表于 2017-8-15 23:21:00

(defun c:tt ()
(xdrx_begin)
(if (not #xd-tongji-textheight)
(setq #xd-tongji-textheight 3.5)
)
(if (setq val (getreal
(xdrx_prompt "\n字高<" #xd-tongji-textheight ">:" t)
)
)
(setq #xd-tongji-textheight val)
)
(if (and (xdrx_initssget "\n选取要统计的文字<退出>")
(setq ss (xdrx_ssget '((0 . "*TEXT"))))
)
(progn
(setq ents (xdrx_entity_getproperty ss "textstring")
ents (mapcar
'(lambda (x)
(if
(xdrx_string_regexps
"^([a-zA-Z][0-9]+([a-zA-Z]+)?|[0-9]+[A-Za-z]+([0-9]+)?)$"
x
)
(list x x)
)
)
ents
)
ents (vl-remove nil ents)
ents (xd::list:groupbyindex ents 1.0)
ents (mapcar '(lambda (x) (list (car x) (length (cdr x)))) ents)
ents (vl-sort ents '(lambda(x y)(< (car x)(car y))))
i 0
ents (mapcar '(lambda(x)(cons (itoa (setq i (1+ i))) x)) ents)
)
(setq ents (cons (list "序号" "编号" "计数") ents)
ents (cons (list "统计表" nil nil)
ents
)
)
(if (setq pt (getpoint "\n表格插入点<退出>:"))
(progn
(xd::text:init 1)
(xd::table:makefromlist
ents
pt
#xd-tongji-textheight
(/ #xd-tongji-textheight 2.0)
)
)
)
)
)
(princ)
)

(defun c:tt () 
  (xdrx_begin) 
  (if (not #xd-tongji-textheight) 
    (setq #xd-tongji-textheight 3.5) 
  ) 
  (if (setq val        (getreal 
                  (xdrx_prompt "\n字高<" #xd-tongji-textheight ">:" t) 
                ) 
      ) 
    (setq #xd-tongji-textheight val) 
  ) 
  (if (and (xdrx_initssget "\n选取要统计的文字<退出>") 
           (setq ss (xdrx_ssget '((0 . "*TEXT")))) 
      ) 
    (progn 
      (setq ents (xdrx_entity_getproperty ss "textstring") 
            ents (mapcar 
                   '(lambda (x) 
                      (if 
                        (xdrx_string_regexps 
                          "^([a-zA-Z][0-9]+([a-zA-Z]+)?|[0-9]+[A-Za-z]+([0-9]+)?)$" 
                          x 
                        ) 
                         (list x x) 
                      ) 
                    ) 
                   ents 
                 ) 
            ents (vl-remove nil ents) 
            ents (xd::list:groupbyindex ents 1.0) 
            ents (mapcar '(lambda (x) (list (car x) (length (cdr x)))) ents) 
            ents (vl-sort ents '(lambda(x y)(< (car x)(car y)))) 
            i 0 
            ents (mapcar '(lambda(x)(cons (itoa (setq i (1+ i))) x)) ents) 
      ) 
      (setq ents (cons (list "序 号" "编 号" "计 数") ents) 
            ents (cons (list "统 计 表" nil nil) 
                       ents 
                 ) 
      ) 
      (if (setq pt (getpoint "\n表格插入点<退出>:")) 
        (progn 
          (xd::text:init 1) 
          (xd::table:makefromlist 
            ents 
            pt 
            #xd-tongji-textheight 
            (/ #xd-tongji-textheight 2.0) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (princ) 
)

newer · 发表于 2017-8-8 00:39:47

把你做的成果例图放大截图贴上来，包括DWG的成果和EXCEL的成果。用图告诉大家你想要做什么。
DWG文件和EXCEL文件压缩传上来供测试。

newer · 发表于 2017-8-8 00:41:05

重叠文字，论坛有，用重叠搜索论坛。多看看以前的帖子。

喜之郎cici · 发表于 2017-8-8 22:29:24

newer 发表于 2017-8-8 00:41

谢谢你的回复,帖子也重新编辑了,上传附件了求教版主!

喜之郎cici · 发表于 2017-8-22 00:16:57

Lispboy 发表于 2017-8-15 23:21

实在太感谢你了!谢谢你!!!就是这个插件统计的结果不能导出到EXCEL,因为工作中还要把这个统计的结果导出到excel处理,如果加入这个功能就非常完美了!

XDSoft · 发表于 2017-8-22 00:30:07

喜之郎cici 发表于 2017-8-22 00:16

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

论坛也有现成的，用 EXCEL 搜索每日插件论坛。

阳光正好 · 发表于 2020-3-9 16:18:31

我也正需要一个这样的插件

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

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

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