设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 字符串统计个数问题
12下一页
返回列表 发新帖
查看: 4376|回复: 13

字符串统计个数问题

  [复制链接]
nmdboby
发表于 2007-9-10 10:45:00 | 显示全部楼层 |阅读模式

各位大侠:

     在CAD里 怎样用LSP统计相同字符串的个数呢

E:\AA\3\TXT.JPG
回复

使用道具 举报

carrot1983
发表于 2007-9-10 12:42:00 | 显示全部楼层
练练手..
  3. (defun c:tt (/ DATA ENAME K SS STR V1 V0)
  4.   (if (setq ss (ssget "X" '((0 . "*TEXT"))))
  5.     (progn
  6.       (setq str (getstring "\n>>>输入字符串或<回车选择>:"))
  7.       (if (and (= str "")
  8.         (setq ename (car (entsel "\r>>>请单选需要统计的源字符串:")))
  9.         (setq data (entget ename))
  10.         (setq v1 (cdr (assoc 1 data)))
  11.         (setq v0 (cdr (assoc 0 data)))
  12.         (wcmatch v0 "*TEXT")
  13.    )
  14. (setq str v1)
  15.       )
  16.       (setq i 0
  17.      k 0
  18.       )
  19.       (repeat (sslength ss)
  20. (setq ename (ssname ss i))
  21. (setq data (entget ename))
  22. (setq v1 (cdr (assoc 1 data)))
  23. (if (= v1 str)
  24.    (if (= k 0)
  25.      (setq k 1)
  26.      (setq k (1+ k))
  27.    )
  28. )
  29. (setq i (1+ i))
  30.       )
  31.       (princ
  32. (strcat "\r>>>图形中存在字符串<" str ">总的个数为:" (itoa k))
  33.       )
  34.     )
  35.     (princ "\r>>>图形中不存在字符串...")
  36.   )
  37.   (princ)
  38. )
回复 支持 反对

使用道具 举报

无痕
发表于 2007-9-10 13:13:00 | 显示全部楼层

(sslength (ssget (list (cons 0 "*TEXT")(cons 1 (getstring "\n 输入字符串:")))))

回复 支持 反对

使用道具 举报

zml84
发表于 2007-9-10 13:28:00 | 显示全部楼层
楼上的代码改动如下：
  3. ;;统计图形中内容相通的文本
  4. (defun C:TT (/ SS LST I STR TMP)
  5. &#160;&#160;&#160; (if&#160;&#160;&#160; (setq SS (ssget "X" '((0 . "*TEXT"))))
  6. &#160;&#160;&#160; (progn
  7. &#160;&#160;&#160; &#160;&#160;&#160; ;;统计数量
  8. &#160;&#160;&#160; &#160;&#160;&#160; (setq LST '()
  9. &#160;&#160;&#160; &#160;&#160;&#160; &#160; I&#160;&#160; 0
  10. &#160;&#160;&#160; &#160;&#160;&#160; )
  11. &#160;&#160;&#160; &#160;&#160;&#160; (repeat (sslength SS)
  12. &#160;&#160;&#160; &#160;&#160;&#160; (setq STR (cdr (assoc 1 (entget (ssname SS I)))))
  13. &#160;&#160;&#160; &#160;&#160;&#160; (if (setq TMP (assoc STR LST))
  14. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq LST (subst (list STR (1+ (cadr TMP)))
  15. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; TMP
  16. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; LST
  17. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; )
  18. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
  19. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq LST (cons (list STR 1) LST))
  20. &#160;&#160;&#160; &#160;&#160;&#160; )
  21. &#160;&#160;&#160; &#160;&#160;&#160; (setq I (1+ I))
  22. &#160;&#160;&#160; &#160;&#160;&#160; )
  23. &#160;&#160;&#160; &#160;&#160;&#160; ;;输出结果
  24. &#160;&#160;&#160; &#160;&#160;&#160; (foreach TMP LST
  25. &#160;&#160;&#160; &#160;&#160;&#160; (if (= (cadr TMP) 1)
  26. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ()
  27. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (princ
  28. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (strcat&#160;&#160;&#160; "\n内容: "
  29. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; STR
  30. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; " 个数为: "
  31. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (itoa (cadr TMP))
  32. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
  33. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
  34. &#160;&#160;&#160; &#160;&#160;&#160; )
  35. &#160;&#160;&#160; &#160;&#160;&#160; )
  36. &#160;&#160;&#160; ) ;_结束progn
  37. &#160;&#160;&#160; (princ "\n图形中不存在文本对象。")
  38. &#160;&#160;&#160; ) ;_结束if
  39. &#160;&#160;&#160; (princ)
  40. ) ;_结束defun
回复 支持 反对

使用道具 举报

nmdboby
 楼主| 发表于 2007-9-10 14:09:00 | 显示全部楼层

首先感谢各位大侠!

ZML84大侠的程序我作了调试,但统计不是很正确.见下图

E:\AA\3\A.JPG 各位大侠,程序能否改进一下,加个序号(即分出有多少种字符串),还有就是用序号替换原来的字符串,(见下图,上面部分为要统计的字符串,下面部分为统计出的结果) e:\aa\3\b.jpg 谢谢各位了
回复 支持 反对

使用道具 举报

carrot1983
发表于 2007-9-10 15:12:00 | 显示全部楼层

楼主其实可以用FILTER跟find

计划赶不上变化...

回复 支持 反对

使用道具 举报

zml84
发表于 2007-9-10 15:25:00 | 显示全部楼层
楼主的图片根本没有传上来。请确认
回复 支持 反对

使用道具 举报

nmdboby
 楼主| 发表于 2007-9-10 17:43:00 | 显示全部楼层

接上7楼

 

 

本帖子中包含更多资源

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

x
回复 支持 反对

使用道具 举报

zml84
发表于 2007-9-11 08:50:00 | 显示全部楼层
  3. ;;统计图形中的文本个数
  4. (defun C:TT (/ SS LST I STR TMP)
  5. &#160;&#160;&#160; (if&#160;&#160;&#160; (setq SS (ssget "X" '((0 . "*TEXT"))))
  6. &#160;&#160;&#160; (progn
  7. &#160;&#160;&#160; &#160;&#160;&#160; ;;统计数量
  8. &#160;&#160;&#160; &#160;&#160;&#160; (setq LST '()
  9. &#160;&#160;&#160; &#160;&#160;&#160; &#160; I&#160;&#160; 0
  10. &#160;&#160;&#160; &#160;&#160;&#160; )
  11. &#160;&#160;&#160; &#160;&#160;&#160; (repeat (sslength SS)
  12. &#160;&#160;&#160; &#160;&#160;&#160; (setq STR (cdr (assoc 1 (entget (ssname SS I)))))
  13. &#160;&#160;&#160; &#160;&#160;&#160; (if (setq TMP (assoc STR LST))
  14. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq LST (subst (list STR (1+ (cadr TMP)))
  15. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; TMP
  16. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160; LST
  17. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160;&#160;&#160; )
  18. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
  19. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (setq LST (cons (list STR 1) LST))
  20. &#160;&#160;&#160; &#160;&#160;&#160; )
  21. &#160;&#160;&#160; &#160;&#160;&#160; (setq I (1+ I))
  22. &#160;&#160;&#160; &#160;&#160;&#160; )
  23. &#160;&#160;&#160; &#160;&#160;&#160; ;;输出结果
  24. &#160;&#160;&#160; &#160;&#160;&#160; (foreach TMP LST
  25. ;;;&#160;&#160;&#160; &#160;&#160;&#160; (if (= (cadr TMP) 1)
  26. ;;;&#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; ()
  27. &#160;&#160;&#160; &#160;&#160;&#160; (princ
  28. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (strcat "\n内容: "
  29. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (car TMP)
  30. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; " 个数为: "
  31. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; (itoa (cadr TMP))
  32. &#160;&#160;&#160; &#160;&#160;&#160; &#160;&#160;&#160; )
  33. &#160;&#160;&#160; &#160;&#160;&#160; )
  34. ;;;&#160;&#160;&#160; &#160;&#160;&#160; )
  35. &#160;&#160;&#160; &#160;&#160;&#160; )
  36. &#160;&#160;&#160; ) ;_结束progn
  37. &#160;&#160;&#160; (princ "\n图形中不存在文本对象。")
  38. &#160;&#160;&#160; ) ;_结束if
  39. &#160;&#160;&#160; (princ)
  40. ) ;_结束defun
回复 支持 反对

使用道具 举报

nmdboby
 楼主| 发表于 2007-9-11 19:24:00 | 显示全部楼层
谢谢各位
回复 支持 反对

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2025-5-15 02:17 , Processed in 0.479485 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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