求一个打印出某层重复的单行文字内容插件

清风明月10

我一张图在名为“不打印”的图层上有几百个单行文字，我想求一个插件，可以找出内容重复的单行文字，打印到命令行，比如“ZK1”有2个，ZK3”有4个，ZK9”有6个，其它的单行文本都是每个内容只有唯一 一个，这时就在命令窗口打印“ZK1、ZK3、ZK9”。
请求高手 帮我写一个！

st788796

清风明月10 发表于 2014-1-23 18:12
这是调试用的DWG文件。

找不到你的字在哪
自己接着写吧

1. (defun c:tt (/ ss lst)
   
2.   (if (setq ss (ssget '((0 . "text") (8 . "不打印"))))
   
3.     (progn
   
4.       (setq lst        (mapcar        '(lambda (x)
   
5.                            (list (xdrx_getpropertyvalue x "Textstring") x)
   
6.                          )
   
7.                         (xdrx_pickset->ents ss)
   
8.                 )
   
9.             lst        (XD::List:GroupByIndex lst 0)
   
10.             lst        (mapcar        '(lambda (x)
    
11.                            (list (car x) (length (cdr x)))
    
12.                          )
    
13.                         lst
    
14.                 );_(("1" 2) ("2" 34) ...)((字符1 数量1) (字符2 数量2) ...)
    
15.       )
    
16.     )
    
17.   )
    
18. )

(defun c:tt (/ ss lst)<br />   (if (setq ss (ssget '((0 . "text") (8 . "不打印"))))<br />     (progn<br />       (setq lst        (mapcar        '(lambda (x)<br />                            (list (xdrx_getpropertyvalue x "Textstring") x)<br />                          )<br />                         (xdrx_pickset->ents ss)<br />                 )<br />             lst        (XD::List:GroupByIndex lst 0)<br />             lst        (mapcar        '(lambda (x)<br />                            (list (car x) (length (cdr x)))<br />                          )<br />                         lst<br />                 );_(("1" 2) ("2" 34) ...)((字符1 数量1) (字符2 数量2) ...)<br />       )<br />     )<br />   )<br /> )

st788796

再提问能不能把图发上来！

清风明月10

st788796 发表于 2014-1-23 17:08
再提问能不能把图发上来！

这是调试用的DWG文件。

请点击此处下载

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

您的用户组是：游客

文件名称:在命令行打印出“OID”图层中重复了的文本内容调试用.dwg.rar 
下载次数:2  文件大小:58.34 KB 
下载权限: 不限 以上  [免费赚D豆]

wangxf888

做记号  有空学习