查找匹配文字并连线

s100sp

谢谢分享，谢谢分享

hh_lj007

2. ;;; 快速搜索文本并画线定位所在位置
   
3. (defun c:er(/ txt pt2 p2 ss endata ii)
   
4.   (setq
   
5.     txt (getstring "\n输入待查询文本：")
   
6.     ss
   
7.     (ssget
   
8.       "X"
   
9.       (list
   
10.         (cons 0 "TEXT")
    
11.         (cons 1 (strcat "*" txt "*"))
    
12.       )
    
13.     )
    
14.     ii -1
    
15.   )
    
16.   (repeat (sslength ss)
    
17.     (setq
    
18.       ii (1+ ii)
    
19.       endata (entget (ssname ss ii))
    
20.       pt2 (cdr (assoc 10 endata))
    
21.       p2 (list (car pt2)(cadr pt2) 0.0)
    
22.     )
    
23.     (command "_LINE" p0 p2 "")
    
24.     (prin1)
    
25.   )
    
26. )
    
27. ;;; 选择空白处的画线起始点
    
28. (defun c:df()
    
29.   (setq p0 (getpoint "\n请选择图形外部起始点："))
    
30. )
    

;;; 快速搜索文本并画线定位所在位置<br /> (defun c:er(/ txt pt2 p2 ss endata ii)<br />   (setq<br />     txt (getstring "\n输入待查询文本：")<br />     ss<br />     (ssget<br />       "X"<br />       (list<br />         (cons 0 "TEXT")<br />         (cons 1 (strcat "*" txt "*"))<br />       )<br />     )<br />     ii -1<br />   )<br />   (repeat (sslength ss)<br />     (setq<br />       ii (1+ ii)<br />       endata (entget (ssname ss ii))<br />       pt2 (cdr (assoc 10 endata))<br />       p2 (list (car pt2)(cadr pt2) 0.0)<br />     )<br />     (command "_LINE" p0 p2 "")<br />     (prin1)<br />   )<br /> )<br /> ;;; 选择空白处的画线起始点<br /> (defun c:df()<br />   (setq p0 (getpoint "\n请选择图形外部起始点："))<br /> )<br />

第一次上代码，借宝地试试水

音河之声

感谢楼主分享！！

xcxjxh@sohu.com

不加*号就是全字串匹配吧

279491611

感谢分享好工具！

willclark

谢谢楼主分享，学习

齐天大圣悟空

感谢楼主分享！！！

十全十美

感谢楼主分享！！！

MLIT

非非非非非常感谢分享

sjtu

谢谢，晓东这个插件太好了

yaojing38

谢谢分享，，很实用

PsAlex

做的不错，要的就是这个效果

飘雪我帅么

学习下学习学习

fzhougeng

让 江小白 来看看帖子里藏了啥好东西~~~

huangpc27

好方法啊，洗洗看