如何统计一张CAD图纸中相同文字的数量

Question

一张石材订单的编号图，由于每块石材没有形成图形，只是线条，我要统计每种石材的数量智能通过我的编号，A1-1，A1-2之类的有多少，那么这个数字怎么统计？另外使用替换不行，因为我的编号有A1-10，我要替换A1-1的话连A1-10都替换了，数量会大了很多。求教

Answer 1

1、先打开电脑，找到画图软件加载完成CAD图纸中，在命令栏中输入QSELECT。

2、在工具中快速选择是CAD，自带的一个命令工作界面按空格弹出快速选择窗口。

3、接着选择特性，颜色，图层，线宽，线型比例、打印样式等。在应用到中选择（当前选择），实体类型中选择已知的图形。在工具框中选择需要统计的图形类型，现在为所有基元。

4、完成后选择搜索范围，找到当前选择点击。

5、继续选择其他内容、如颜色等。

6、完成所有选项后点击确定命令栏中显示对象数。

参考资料来源：百度百科-CAD

Answer 2

在“特性”里面，如下图，分选“多行文字”和“文字”，输入查找内容，点击“确定”，数量会在我下图左上面那个“无选择”里显示；

要替换的话，是会出现你那种情况，不要紧，先按你那样替换，再重新替换一次改回来，将A1-100替换为A1-10,自己明白是哪里会被替换掉就没问题的，目前只有这样的操作

Answer 3

有两个方法，

选择图形，右键，快速选择，文字，输入文字内容，就会把相同的文字全部找出来了。

使用autoLISP查找相同的文字。得到文字后，右键，属性，里面看文字数量即可。（高版本的AutoCAD里面有快捷面板，可以直接看数量）




(defun c:TT2 ( / #kw #k2 )
  (if (null vlax-dump-object) (vl-load-com) )
  (initget "T") (setq #kw (entsel "\n请选择文字或输入文字（T）[输入文字(T)]: <选择文字> "))
  (cond
   ((= (type #kw) 'LIST)
    (if (= (vla-get-objectname (setq #kw (vlax-ename->vla-object (car #kw)))) "AcDbText")
     (setq #kw (vla-get-textstring #kw))
     (progn
      (setq #kw nil) (princ "\n错误的对象,请选择单行文字对象!")
     )
    )
   )
   ((member #kw (list "t" "T"))
    (if (= (setq #kw (getstring "\n请输入要选取的文字: ")) "")
     (progn
      (setq #kw nil) (princ "\n未输入文字,程序退出!")
     )
    )
   )
  )
  (if #kw (princ (strcat "\n框选包含文字 < " #kw " >的对象")) )
  (if (and #kw (setq #kw (ssget (list (cons 0 "TEXT") (cons 1 #kw)))))
   (progn
    (initget "V C S E") (setq #k2 (getkword "\n选择文字或[移动(V)/复制(C)/删除(E)]: <选择(S)> "))
    (if (null #k2)
     (sssetfirst nil #kw)
     (cond
      ((member #k2 (list "v" "V")) (command "_.Move" #kw "" pause) )
      ((member #k2 (list "c" "C")) (command "_.Copy" #kw "" pause) )
      ((member #k2 (list "e" "E")) (command "_.Erase" #kw "") )
      ((member #k2 (list "s" "S")) (sssetfirst nil #kw) )
     )
    )
   )
   (princ "\n未定义文字或未选择对象!")
  )
  (prin1)
)
(prompt "\n《TT2》框选文字")
(prin1)

本回答被提问者采纳

Answer 4

编辑，查找。它不能统计个数，不过，你可以自己点击 查找，点击多少下，就是多少个。