社区 › AutoLISP/Visual LISP 编程技术 › 已解决：查找文字后，定位并统计数量

注册 发表于 2012-3-29 16:15:49

厉害，下来用用啊

101旳丶回忆 发表于 2012-5-14 18:30:53

429014673 发表于 2012-5-14 19:54:06

yjr111 发表于 2011-7-30 13:29 static/image/common/back.gif
可以的，请使用下面的代码即可。
;选中文字做圆圈标记并显示数量 明经 ZZXXQQ 2011.1.27
;yjr学习并修改...

严哥,这个很厉害,可以帮忙搞一个可以亮显的,没有画圆的吗?...我想找出相同的编号进行下一步操作....例如改图作,复制等....

革天明 发表于 2012-5-14 20:22:03

谢谢楼主分享

yjr111 发表于 2012-5-14 21:29:34

429014673 发表于 2012-5-14 19:54 static/image/common/back.gif
严哥,这个很厉害,可以帮忙搞一个可以亮显的,没有画圆的吗?...我想找出相同的编号进行下一步操作....例如改 ...

;;;简易查找文本并亮显 by yjr111 2012-5-14
(defun c:ttz (/ stxt s1 ent ss )
(setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))
(cond ((or(= stxt "S")(= stxt "s"))
      (initget"All Same")
      (setq key (getkword "\n相似全选(All)或完全匹配(Same)"))
      (if (not key)
         (setq key "Same")
      )
      (setq stxt (getstring "\n输入要查找的文本<右键选取>或设置(S):"))
       )
)
(cond((and (= stxt "")
             (setq s1 (entsel "\n选择标记 :"))
             (setq ent (entget (car s1)))
             (= (cdr (assoc 0 ent)) "TEXT")
      )
      (redraw (car s1) 3)
      (setq stxt (cdr (assoc 1 (entget (car s1)))))
       )
)
(princ"\n选择文本的查找范围")
(if (= key "Same")
(setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat stxt)))))
(setq ss (ssget (list '(0 . "TEXT") (cons 1 (strcat "*" stxt "*")))))
)
(if (and ss (> (sslength ss) 0))
(progn (princ (list "\n总共找到" (sslength ss) "处"))
         (sssetfirst ss ss)
)
)
(princ)
)

429014673 发表于 2012-5-16 10:17:39

本帖最后由 429014673 于 2012-5-16 11:33 编辑

yjr111 发表于 2012-5-14 21:29 static/image/common/back.gif


严哥，你帮我改的那个查找好像# * 这些常用的符号没法操作，请班忙改一个。。。谢谢。。。

梦醒才知原是梦 发表于 2012-5-16 10:34:36

确实不错的功能.很实用.谢谢了

429014673 发表于 2012-5-16 20:07:47

429014673 发表于 2012-5-16 10:17 static/image/common/back.gif
严哥，你帮我改的那个查找好像# * 这些常用的符号没法操作，请班忙改一个。。。谢谢。。。

不屁孩一个呢，对LSP深知不熟，还得大师帮忙了。

Nico 发表于 2012-5-19 15:38:23

我顶   很实用   

gao051525 发表于 2012-6-8 12:18:06

yjr111 发表于 2012-5-14 21:29 static/image/common/back.gif


这个程序太给力了，帮大忙了

查看完整版本: 已解决：查找文字后，定位并统计数量