（完成）[编程申请]：统计同样文字在图中出现的次数

doongs · 发表于 2003-5-15 18:10:37

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

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

×

文字可能是MTEXT，也可能是SINGLTEXT
也能够支持英文！因为有很多可能写得是代号
最好是指定层上的，这样才好控制！

XDSoft · 发表于 2003-5-15 20:16:13

最初由 doongs 发布
[B]文字可能是MTEXT，也可能是SINGLTEXT
也能够支持英文！因为有很多可能写得是代号
最好是指定层上的，这样才好控制！ [/B]

贴一张图上来吧，说下你要统计什么。

doongs · 发表于 2003-5-16 09:24:34

下面是一张植栽平面图，用面和英文其实是植物的拉丁文代号，我想统计一下我用过了多少种植物，以方便做植栽表，统计次数完全是为修改来用了，因为一般的来说，在一个地方植物一般不用一次，如果只用一次了，可能就会用别的来代替一下!

eachy · 发表于 2003-5-16 18:52:39

(ssget '((0 . "text") (1 . "RS*"))) 统计选择区域所有 RS 开头的文字。
(ssget '((0 . "text") (1 . "RS"))) 统计选择区域 RS 文字

仅适用text文字，MTEXT查DXF手册。
例如统计 RS 文字

(defun c:test (/ ss e)
(setq e (xdrx_entsel "\n点选统计文字:" '((0 . "text"))))
(if e
(progn
(xdrx_setenttodb (car e))
(princ (strcat "\n选择文字为 " (xdrx_getentdxf 1)))
(princ "\n拾取选择范围[ALL - 全选]...")
(setq ss (ssget (list '(0 . "text") (assoc 1 (entget (car e))))))
(if ss
(princ (strcat "\n文字 "
(xdrx_getentdxf 1)
" 数量为 "
(itoa (sslength ss))
)
)
)
)
)
(princ)
)

aeo · 发表于 2003-5-16 20:56:37

最初由 eachy 发布
[B](ssget '((0 . "text") (1 . "RS*"))) 统计选择区域所有 RS 开头的文字。
(ssget '((0 . "text") (1 . "RS"))) 统计选择区域 RS 文字

仅适用text文字，MTEXT查DXF手册。
例如统计 RS 文字
[code]
(defun c:te... [/B]

可能他还要写在文字中间的.(一个文字可能有好几个的)
比如:"玫瑰3朵","玫瑰4朵"

doongs · 发表于 2003-5-17 14:06:46

to eachy:
我的意思不是一个一个地去找，比如，这一个层上，一共有多少个文字，直接罗列出来，如香樟出现了三次，黄杨出现了6次……，而不是我先知道香樟，然后再去找用了多少次香樟

eachy · 发表于 2003-5-17 15:47:37

最初由 doongs 发布
[B]to eachy:
我的意思不是一个一个地去找，比如，这一个层上，一共有多少个文字，直接罗列出来，如香樟出现了三次，黄杨出现了6次……，而不是我先知道香樟，然后再去找用了多少次香樟 [/B]

改好了，统计单字的，还可以扩展到统计“黄杨5棵”“黄杨3棵”等，其实就是一个用关键字排序问题。

(defun c:test (/ ss e string txtlst)
(setq e (xdrx_entsel "\n点选统计文字:" '((0 . "text"))))
(if e
(progn
(xdrx_setenttodb (car e))
(princ (strcat "\n选择文字为 " (xdrx_getentdxf 1)))
(princ "\n拾取选择范围[ALL - 全选]...")
(setq ss (ssget (list '(0 . "text") (assoc 8 (entget (car e))))))
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq string (xdrx_getentdxf 1))
(if txtlst
(progn
(if (assoc string txtlst)
(setq
txtlst (subst
(append (list string) (assoc string txtlst))
(assoc string txtlst)
txtlst
)
)
(setq txtlst (append (list (list string)) txtlst))
)
)
(setq txtlst (list (list string)))
)
)
(mapcar '(lambda (x)
(princ (strcat "\n\t " (car x) "\t" (itoa (length x)))
)
)
txtlst
)
)
)
(princ)
)

(defun c:test (/ ss e string txtlst) 
  (setq e (xdrx_entsel "\n点选统计文字:" '((0 . "text")))) 
  (if e 
    (progn 
      (xdrx_setenttodb (car e)) 
      (princ (strcat "\n选择文字为 " (xdrx_getentdxf 1))) 
      (princ "\n拾取选择范围[ALL - 全选]...") 
      (setq ss (ssget (list '(0 . "text") (assoc 8 (entget (car e)))))) 
      (xdrx_setsstodb ss 0) 
      (while (setq e (xdrx_getentdata 0)) 
        (setq string (xdrx_getentdxf 1)) 
        (if txtlst 
          (progn 
            (if        (assoc string txtlst) 
              (setq 
                txtlst (subst 
                         (append (list string) (assoc string txtlst)) 
                         (assoc string txtlst) 
                         txtlst 
                       ) 
              ) 
              (setq txtlst (append (list (list string)) txtlst)) 
            ) 
          ) 
          (setq txtlst (list (list string))) 
        ) 
      ) 
      (mapcar '(lambda (x) 
                 (princ        (strcat "\n\t   " (car x) "\t" (itoa (length x))) 
                 ) 
               ) 
              txtlst 
      ) 
    ) 
  ) 
  (princ) 
)

doongs · 发表于 2003-5-17 19:47:44

试用了一下，正是我想要的东西，谢谢你！
在我用的时候我把打印换行的除掉了，东西看起来就更紧凑了！

aeo · 发表于 2003-5-18 21:56:18

最初由 eachy 发布
改好了，统计单字的，还可以扩展到统计“黄杨5棵”“黄杨3棵”等，其实就是一个用关键字排序问题。

才怪.
"黄杨5棵"是名字,还是"黄杨"是名字,你的cad神了

eachy · 发表于 2003-5-18 22:25:37

最初由 aeo 发布
[B]
才怪.
"黄杨5棵"是名字,还是"黄杨"是名字,你的cad神了 [/B]

当然还要对字串处理后才可以，我说的是扩展后。给你个思路，把字串根据需要转换成这样的表
（（“RC” “RC” ... ）（（“黄杨” “5” “棵”）“黄杨” （“黄杨” “3”“棵”） ....） ... ）是不是可以统计呀：）

以你的功力写这个应该很容易的。

aeo · 发表于 2003-5-19 00:14:51

刚好是有个数字分了一下.
比如"施工" "施工" "施工说明"...
"厨房1""厨房1卫生间2"""厨房2卫生间1"......
看来每个只能是出现一次.

eachy · 发表于 2003-5-19 18:16:12

最初由 aeo 发布
[B]刚好是有个数字分了一下.
比如"施工" "施工" "施工说明"...
"厨房1""厨房1卫生间2"""厨房2卫生间1"......
看来每个只能是出现一次. [/B]

分是肯定可以继续分的，对字串拆分，以第一个字串为索引分类形成子表，然后再对子表以第二个字串为索引再对子表分类，依次类推，总会分清的。不过最好有个估计，统计的字串的深度到几层，比如实际中可能到3层分类就够了，也许到四层如你的例子，如果用文字来限定，最大的层次就是单字串拆分后 length 的最大数。

lzws03 · 发表于 2005-4-22 15:08:05

eachy版主：
看了好些您编的程序里，发现您的帖子中，编的程序没有右上角那“拷贝至剪切版”功能？好像发帖说明里有详细说明的。
（等级不够，不能耳语，见谅）

2sunny2 · 发表于 2005-9-15 16:41:38

我找了很久，今天终于让我搜到了，哈哈哈哈，还有一个“谢谢各位”。

zxdvip · 发表于 2006-1-30 21:47:56

和建筑上的门窗统计有些象.可以列一个表

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

（完成）[编程申请]：统计同样文字在图中出现的次数

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

相关帖子

Re: [编程申请]：统计同样文字在图中出现的次数