找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 4225|回复: 30

[编程申请]:急求统计文字数量的lsp!各斑主帮忙!

[复制链接]

已领礼包: 83个

财富等级: 招财进宝

发表于 2007-9-16 22:12:42 | 显示全部楼层 |阅读模式

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

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

×
工作经常要统计门窗表,编了号之后要统计数量,曾在论坛中找到过统计图块数量的lsp,并且还可以把统计的图块名称和数量列表出来,本人想能不能把图块换成文字,统计数量之后也列表出来,这样就方便很多!请斑主帮帮忙!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2007-9-20 13:12:14 | 显示全部楼层
如果只想统计“文字数量”,可用下面的小程序:

  1. (defun c:wzsl(/ ss)
  2.     (setq ss(ssget "x" '((0 . "*TEXT"))))
  3.     (if ss
  4.         (sslength  ss)
  5.         0
  6.     )
  7. )
  8. ;

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

使用道具 举报

已领礼包: 83个

财富等级: 招财进宝

 楼主| 发表于 2007-9-21 19:18:07 | 显示全部楼层
感谢二楼热心帮助,我的目的就是要统计门窗表方便些,想把编号和数量列出一个表格来,就跟图块的统计一样,不知能否做到?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

已领礼包: 83个

财富等级: 招财进宝

 楼主| 发表于 2007-9-23 01:25:38 | 显示全部楼层
真是感谢班主,我要的就是这个,不过我加载之后出运行出现错误,提示说字体找不到等,我贴了个图片出来,请班主帮我看下!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-10-9 23:02:34 | 显示全部楼层
如果能导出文本,那就更好啦。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-10-30 22:01:10 | 显示全部楼层

我自己做的,文字分类汇总源代码


  1.   [FONT=courier new]
  2. (defun txtcount        (/ ss len i entn entx c ltext s1 s2 count)
  3.   (setvar "cmdecho" 0)
  4.   (princ "文字分类汇总")
  5.   (setq ss (ssget))
  6.   (if ss
  7.     (progn (setq len (sslength ss))
  8.            (setq i 0)

  9.            ;; extract all text in selection and save in list var "ltext"
  10.            (repeat len
  11.              (setq entn (ssname ss i))
  12.              (setq entx (entget entn))
  13.              (if (or (= (cdr (assoc '0 entx)) "TEXT")
  14.                      (= (cdr (assoc '0 entx)) "MTEXT")
  15.                  )
  16.                (progn (setq c (cdr (assoc '1 entx)))
  17.                       (setq ltext (cons c ltext))
  18.                )
  19.              )
  20.              (setq i (+ i 1))
  21.            )

  22.            ;; Sort and count ltext and then report result
  23.            (setq ltext (acad_strlsort ltext)
  24.                  len   (length ltext)
  25.                  i     0
  26.                  count 0
  27.            )

  28.            (textscr)
  29.            (princ "\n选中单行及多行文字分类汇总结果:\n")
  30.            (princ "引用次数\t文字\n")
  31.            (princ "---------------------------------\n")

  32.            (repeat len
  33.              (setq s1 (nth i ltext))
  34.              (if (= s2 nil)
  35.                (setq s2 s1)
  36.              )
  37.              (if (/= s2 s1)
  38.                (progn
  39.                  (princ (strcat (itoa count) "\t\t\t\t"" s2 ""\n"))
  40.                  (setq s2 s1
  41.                        count 1
  42.                  )
  43.                )
  44.                (progn
  45.                  (setq count (1+ count))
  46.                )
  47.              )
  48.              (setq i (1+ i))
  49.            )

  50.            ;; the last text item
  51.            (princ (strcat (itoa count) "\t\t\t\t"" s2 ""\n"))
  52.     )
  53.   )
  54.   (setvar "cmdecho" 1)
  55.   (princ)
  56. )
  57.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-11-22 13:27:00 | 显示全部楼层
文修改大师有这个功能的。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-12-9 23:29:17 | 显示全部楼层
文字修改大师是有这个功能,但不是lisp。不方便自己编程序。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

发表于 2008-7-27 20:33:44 | 显示全部楼层
一直在找这个东西!!太好了!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 14:16 , Processed in 0.612645 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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