如何统计一张CAD图纸中相同文字的数量
来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/05/17 08:12:45
如何统计一张CAD图纸中相同文字的数量
一张石材订单的编号图,由于每块石材没有形成图形,只是线条,我要统计每种石材的数量智能通过我的编号,A1-1,A1-2之类的有多少,那么这个数字怎么统计?另外使用替换不行,因为我的编号有A1-10,我要替换A1-1的话连A1-10都替换了,数量会大了很多.求教
一张石材订单的编号图,由于每块石材没有形成图形,只是线条,我要统计每种石材的数量智能通过我的编号,A1-1,A1-2之类的有多少,那么这个数字怎么统计?另外使用替换不行,因为我的编号有A1-10,我要替换A1-1的话连A1-10都替换了,数量会大了很多.求教
有两个方法,
选择图形,右键,快速选择,文字,输入文字内容,就会把相同的文字全部找出来了.
使用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)
选择图形,右键,快速选择,文字,输入文字内容,就会把相同的文字全部找出来了.
使用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)
如何统计一张CAD图纸中相同文字的数量
一张CAD图纸中如何自动统计出不同文字的数量,并列出统计表
在CAD中如何统计相同字的数量,如图!统计ZH4的数量?
怎样在CAD图纸中快速统计出灯具数量
如何统计exce通一列l中相同内容的数量,并统计有几种内容,
sql 统计一张表中每种类型的记录数量
现在我统计CAD图纸上的喷头数量,但一个个数太麻烦,请问有什么快捷方式?
excel中怎么统计文字数量?
CAD里如何测量不连续的线段长度?或者统计某个图形的数量?
如何在excel里面统计一个表格中相同名字的数量,相同的只显示一个名称后面显示重复数量,去掉重复的名字.
在excel中怎样统计出相同的文字个数?
用什么命令可以在CAD里面查找出图纸中一个重复图形的数量?