[分享]：在图中搜索指定文字的程序

841594

有时候图画的很大，想在图中查找一段文字挺费劲的。
这个程序帮助完成这个工作，会在找到文字的地方显示一个小标记，顺便计算一下这段文字的数量。对于建筑专业，可以用来检查门窗号。

2. 
   
3. 
   
4. ;;;文字点数
   
5. ;;;        v1.01 - 1999.10.30
   
6. 
   
7. (defun c:txtcount (/ tt ss e n m p1 p2 p3 vsiz olayer olderr oblp oos)
   
8.   (setq vsiz (* 0.03 (getvar "VIEWSIZE")))
   
9.   (setq tt (getstring "\n请输入要点数的文字串: "))
   
10.   (setq ss (ssget "X" (list (cons 0 "TEXT"))))
    
11.   (setq m 0)
    
12.   (repeat (sslength ss)
    
13.     (setq e (ssname ss 0))
    
14.     (if        (= tt (cdr (assoc 1 (entget e))))
    
15.       (progn
    
16.         (setq m (1+ m))
    
17.         (setq p1 (cdr (assoc 10 (entget e))))
    
18.         (setq p2 (polar p1 (* 0.25 pi) vsiz)
    
19.               p3 (polar p1 (* 0.75 pi) vsiz)
    
20.         )
    
21.         (grdraw p1 p2 4)
    
22.         (grdraw p2 p3 4)
    
23.         (grdraw p3 p1 4)
    
24.       )
    
25.     )                                        ;IF
    
26.     (ssdel e ss)
    
27.   )                                        ;REPEAT
    
28.   (princ "\n找到")
    
29.   (princ m)
    
30.   (princ "个! ")
    
31. )
    
32. 
    

<br /> <br /> ;;;文字点数<br /> ;;;        v1.01 - 1999.10.30<br /> <br /> (defun c:txtcount (/ tt ss e n m p1 p2 p3 vsiz olayer olderr oblp oos)<br />   (setq vsiz (* 0.03 (getvar "VIEWSIZE")))<br />   (setq tt (getstring "\n请输入要点数的文字串: "))<br />   (setq ss (ssget "X" (list (cons 0 "TEXT"))))<br />   (setq m 0)<br />   (repeat (sslength ss)<br />     (setq e (ssname ss 0))<br />     (if        (= tt (cdr (assoc 1 (entget e))))<br />       (progn<br />         (setq m (1+ m))<br />         (setq p1 (cdr (assoc 10 (entget e))))<br />         (setq p2 (polar p1 (* 0.25 pi) vsiz)<br />               p3 (polar p1 (* 0.75 pi) vsiz)<br />         )<br />         (grdraw p1 p2 4)<br />         (grdraw p2 p3 4)<br />         (grdraw p3 p1 4)<br />       )<br />     )                                        ;IF<br />     (ssdel e ss)<br />   )                                        ;REPEAT<br />   (princ "\n找到")<br />   (princ m)<br />   (princ "个! ")<br /> )<br /> <br />

zqb05

不错

luoguotu

赞一个

amen1981628

谢谢楼主