[求助]求统计选择图元内特定字符串的数量

zhaosujun

求统计选择图元内特定字符串的数量 如框选了n个图元 在这些图元内统计出特定字符串的数量的LSP程序 谢谢了 急呀！！如框选了一些字符串，直线，pline等等，字符串中有“钢筋12” 找出 “钢筋12”字符串个数，如“钢筋121”这个字符串不统计，但“  钢筋12      ”统计（就是钢筋12前后有空格统计，如有别的字符不统计） 就是查找的命令的编写，谢谢高手了！“钢筋12” 是可以输入变化的。

caoyin

(ssget "_p" '((1 . "* 钢筋12 *")))

zhaosujun

没有LSP编写的程序呀 怎么用呀

caoyin

(defun c:tt (/ ss)
  (if (setq ss (ssget '((0 . "*text") (1 . "* 钢筋12 *"))))
    (alert (strcat "共 " (itoa (sslength ss)) " 个对象。"))
  )
)

zhaosujun

怎么样使 “钢筋12” 是用户可以自己输入的呀？

ZZXXQQ

(defun c:tt (/ ss)
(setq wwtxt (getstring "\n判断字串 :"))
  (if (setq ss (ssget (list '(0 . "*text") (cons 1 wwtxt))))
    (alert (strcat "共 " (itoa (sslength ss)) " 个对象。"))
  )
)

zhaosujun

ZZXXQQ 您这个LSP 只解决了查找的字符串前后都没有空格的情况 如果字符串先后有空格怎么让它也计入统计呀？

无痕

zhaosujun发表于2008-1-19 15:59:00ZZXXQQ 您这个LSP 只解决了查找的字符串前后都没有空格的情况 如果字符串先后有空格怎么让它也计入统计呀？

(defun c:tt (/ ss)
(setq wwtxt (getstring "天灵灵地灵灵让我可以输入空格吧" "\n判断字串 :"))
  (if (setq ss (ssget (list '(0 . "*text") (cons 1 wwtxt))))
    (alert (strcat "共 " (itoa (sslength ss)) " 个对象。"))
  )
)