文字数量

hphkjz

哪位大哥能帮我编个查找文字数量的代码，支持单行文字和多行文字
要求：1请输入要查找的文字<或在屏幕上点击要查找的文字>
          2把结果像图片一样输出到屏幕上。格式：TEXT 共num个

Lisphk

CAD的FIND命令不就可以。

hphkjz

Lisphk 发表于 2013-12-4 08:40
CAD的FIND命令不就可以。

不如这样方便、直观。我觉得这样的代码应该不是什么难事吧。

st788796

hphkjz 发表于 2013-12-4 08:46
不如这样方便、直观。我觉得这样的代码应该不是什么难事吧。

1. (defun c:tt (/ callback str ss txt)
   
2.   (defun callback (dynpt /)
   
3.     (xdrx_entity_move txt (trans p 1 0) (trans dynpt 1 0))
   
4.     (setq p dynpt)
   
5.   )
   
6.   (if
   
7.     (and (setq str (getstring "\n输入匹配字符: "))
   
8.          (setq
   
9.            ss (ssget (list '(0 . "*text") (cons 1 (strcat "*" str "*"))))
   
10.          )
    
11.     )
    
12.      (progn
    
13.        (xd::begin)
    
14.        (setq txt (xdrx_text_make
    
15.                    (setq p (trans (cadr (grread t 15)) 1 0))
    
16.                    (strcat str "共 " (itoa (sslength ss)) " 个")
    
17.                    (getvar "textsize")
    
18.                    0.
    
19.                  )
    
20.        )
    
21.        (xdrx_pointmonitor "Callback" txt)
    
22.        (getpoint (trans p 0 1))
    
23.        (xdrx_pointmonitor)
    
24.        (xd::end)
    
25.      )
    
26.   )
    
27.   (princ)
    
28. )

(defun c:tt (/ callback str ss txt)<br />   (defun callback (dynpt /)<br />     (xdrx_entity_move txt (trans p 1 0) (trans dynpt 1 0))<br />     (setq p dynpt)<br />   )<br />   (if<br />     (and (setq str (getstring "\n输入匹配字符: "))<br />          (setq<br />            ss (ssget (list '(0 . "*text") (cons 1 (strcat "*" str "*"))))<br />          )<br />     )<br />      (progn<br />        (xd::begin)<br />        (setq txt (xdrx_text_make<br />                    (setq p (trans (cadr (grread t 15)) 1 0))<br />                    (strcat str "共 " (itoa (sslength ss)) " 个")<br />                    (getvar "textsize")<br />                    0.<br />                  )<br />        )<br />        (xdrx_pointmonitor "Callback" txt)<br />        (getpoint (trans p 0 1))<br />        (xdrx_pointmonitor)<br />        (xd::end)<br />      )<br />   )<br />   (princ)<br /> )

hphkjz

st788796 发表于 2013-12-4 10:45

还是大哥好，大哥，这个代码我试过了，跟我预想的有点出入，选出的结果范围有点大。如图所示。
1、要是查询字母，输入字母后，要是有前缀就不认可，要是有后缀倒是可以认可。
2、出来结果TEXT后和原TEXT用线连起来，这样直观。

牢固

hphkjz 发表于 2013-12-4 11:28
还是大哥好，大哥，这个代码我试过了，跟我预想的有点出入，选出的结果范围有点大。如图所示。
1、要是 ...

典型的挤牙膏式提问！

hphkjz

牢固 发表于 2013-12-4 18:17
典型的挤牙膏式提问！

我也想一次性弄好，可是个别小出入在所难免的，我想都能够理解的，对吧

st788796

hphkjz 发表于 2013-12-4 19:12
我也想一次性弄好，可是个别小出入在所难免的，我想都能够理解的，对吧

去看[每日插件]， 高级匹配你要了解 Autolisp 的通配符，这个自己做，没法一一解释
http://bbs.xdcad.net/forum.php?mod=viewthread&tid=671991&page=1#pid3498942

hphkjz

st788796 发表于 2013-12-5 09:42
去看[每日插件]， 高级匹配你要了解 Autolisp 的通配符，这个自己做，没法一一解释
http://bbs.xdcad.ne ...

谢谢，大哥。

hphkjz

st788796 发表于 2013-12-5 09:42
去看[每日插件]， 高级匹配你要了解 Autolisp 的通配符，这个自己做，没法一一解释
http://bbs.xdcad.ne ...

盼望哥能够把代码最后的定型稿给小弟发一份。小弟不胜感激。

st788796

框选匹配等新的函数发布了