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

zhuqiqing · 发表于 2007-9-16 22:12:42

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

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

×

工作经常要统计门窗表，编了号之后要统计数量，曾在论坛中找到过统计图块数量的lsp,并且还可以把统计的图块名称和数量列表出来，本人想能不能把图块换成文字，统计数量之后也列表出来，这样就方便很多！请斑主帮帮忙！

PLgis · 发表于 2007-9-20 13:12:14

如果只想统计“文字数量”，可用下面的小程序：

(defun c:wzsl(/ ss)
(setq ss(ssget "x" '((0 . "*TEXT"))))
(if ss
(sslength ss)
0
)
)
;

但可能你还有其他要求吧。

zhuqiqing · 发表于 2007-9-21 19:18:07

感谢二楼热心帮助,我的目的就是要统计门窗表方便些,想把编号和数量列出一个表格来,就跟图块的统计一样,不知能否做到?

xyp1964 · 发表于 2007-9-22 13:44:17

效果示意：

xyp1964 · 发表于 2007-9-22 17:24:55

程序：

zhuqiqing · 发表于 2007-9-23 01:25:38

真是感谢班主，我要的就是这个，不过我加载之后出运行出现错误，提示说字体找不到等，我贴了个图片出来，请班主帮我看下！！

mann_ygw · 发表于 2007-10-9 23:02:34

如果能导出文本，那就更好啦。

颦颦 · 发表于 2007-10-30 22:01:10

[FONT=courier new]
(defun txtcount (/ ss len i entn entx c ltext s1 s2 count)
(setvar "cmdecho" 0)
(princ "文字分类汇总")
(setq ss (ssget))
(if ss
(progn (setq len (sslength ss))
(setq i 0)
;; extract all text in selection and save in list var "ltext"
(repeat len
(setq entn (ssname ss i))
(setq entx (entget entn))
(if (or (= (cdr (assoc '0 entx)) "TEXT")
(= (cdr (assoc '0 entx)) "MTEXT")
)
(progn (setq c (cdr (assoc '1 entx)))
(setq ltext (cons c ltext))
)
)
(setq i (+ i 1))
)
;; Sort and count ltext and then report result
(setq ltext (acad_strlsort ltext)
len (length ltext)
i 0
count 0
)
(textscr)
(princ "\n选中单行及多行文字分类汇总结果:\n")
(princ "引用次数\t文字\n")
(princ "---------------------------------\n")
(repeat len
(setq s1 (nth i ltext))
(if (= s2 nil)
(setq s2 s1)
)
(if (/= s2 s1)
(progn
(princ (strcat (itoa count) "\t\t\t\t"" s2 ""\n"))
(setq s2 s1
count 1
)
)
(progn
(setq count (1+ count))
)
)
(setq i (1+ i))
)
;; the last text item
(princ (strcat (itoa count) "\t\t\t\t"" s2 ""\n"))
)
)
(setvar "cmdecho" 1)
(princ)
)
[/FONT]

[FONT=courier new] 
(defun txtcount        (/ ss len i entn entx c ltext s1 s2 count) 
  (setvar "cmdecho" 0) 
  (princ "文字分类汇总") 
  (setq ss (ssget)) 
  (if ss 
    (progn (setq len (sslength ss)) 
           (setq i 0) 
 
           ;; extract all text in selection and save in list var "ltext" 
           (repeat len 
             (setq entn (ssname ss i)) 
             (setq entx (entget entn)) 
             (if (or (= (cdr (assoc '0 entx)) "TEXT") 
                     (= (cdr (assoc '0 entx)) "MTEXT") 
                 ) 
               (progn (setq c (cdr (assoc '1 entx))) 
                      (setq ltext (cons c ltext)) 
               ) 
             ) 
             (setq i (+ i 1)) 
           ) 
 
           ;; Sort and count ltext and then report result 
           (setq ltext (acad_strlsort ltext) 
                 len   (length ltext) 
                 i     0 
                 count 0 
           ) 
 
           (textscr) 
           (princ "\n选中单行及多行文字分类汇总结果:\n") 
           (princ "引用次数\t文字\n") 
           (princ "---------------------------------\n") 
 
           (repeat len 
             (setq s1 (nth i ltext)) 
             (if (= s2 nil) 
               (setq s2 s1) 
             ) 
             (if (/= s2 s1) 
               (progn 
                 (princ (strcat (itoa count) "\t\t\t\t"" s2 ""\n")) 
                 (setq s2 s1 
                       count 1 
                 ) 
               ) 
               (progn 
                 (setq count (1+ count)) 
               ) 
             ) 
             (setq i (1+ i)) 
           ) 
 
           ;; the last text item 
           (princ (strcat (itoa count) "\t\t\t\t"" s2 ""\n")) 
    ) 
  ) 
  (setvar "cmdecho" 1) 
  (princ) 
) 
  [/FONT]

yaya-54 · 发表于 2007-11-22 13:27:00

文修改大师有这个功能的。

mann_ygw · 发表于 2007-12-9 23:29:17

文字修改大师是有这个功能，但不是lisp。不方便自己编程序。

imlx · 发表于 2008-7-5 15:59:40

文修改大师有这个功能

wfs1980 · 发表于 2008-7-15 16:43:33

大大大大大大大大大大大大大大

idchris · 发表于 2008-7-27 20:33:44

一直在找这个东西！！太好了！！

feige12 · 发表于 2008-9-8 10:09:42

不知道可以不可以啊

夜精灵 · 发表于 2009-2-18 23:26:17

版主的程序不错

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

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

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

相关帖子

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