找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 2285|回复: 6

[已解决] 求一个打印出某层重复的单行文字内容插件

[复制链接]
发表于 2014-1-23 16:29:27 | 显示全部楼层 |阅读模式
悬赏100D豆已解决
我一张图在名为“不打印”的图层上有几百个单行文字,我想求一个插件,可以找出内容重复的单行文字,打印到命令行,比如“ZK1”有2个,ZK3”有4个,ZK9”有6个,其它的单行文本都是每个内容只有唯一 一个,这时就在命令窗口打印“ZK1、ZK3、ZK9”。
请求高手 帮我写一个!

最佳答案

查看完整内容

找不到你的字在哪 自己接着写吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-1-23 16:29:28 | 显示全部楼层
清风明月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. )

点评

谢谢您!改好了  发表于 2014-1-24 10:55
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2014-1-23 17:08:34 来自手机 | 显示全部楼层
再提问能不能把图发上来!

点评

这是调试用的DWG文件。  详情 回复 发表于 2014-1-23 18:12
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

 楼主| 发表于 2014-1-23 18:12:53 | 显示全部楼层
st788796 发表于 2014-1-23 17:08
再提问能不能把图发上来!

这是调试用的DWG文件。
请点击此处下载

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

您的用户组是:游客

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





论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 14个

财富等级: 恭喜发财

发表于 2016-5-24 17:28:58 | 显示全部楼层
做记号  有空学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-4 16:53 , Processed in 0.428343 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表