[编程申请]：找到的同时做个记号,让我们一目了然,

自由的鱼

最初由 zh_6531394 发布
[B]我提的申请很难吗为什么没人解决? [/B]

那我给你做成一个文件吧，晚上就发上来！

zh_6531394

" 那我给你做成一个文件吧，晚上就发上来！" 楼上的我等了几天了

自由的鱼

最近挺忙的，给忘了，不好意思啊，：）
发上来了，用了有问题再告诉我！

zh_6531394

老大,不行,加载后命令呢? 用 "t t " ,不管用

Free-Lancer

2. 
   
3. (defun c:tt (/ str ss sl oldcl p)
   
4.   (if (and (setq
   
5.              str (getstring "\nInput Find TextString< Enter to Pick >: ")
   
6.            )
   
7.            (if
   
8.              (and (= str "")
   
9.                   (setq e (entsel "\nPick text: "))
   
10.                   (= (cdr (assoc 0 (setq el (entget (car e))))) "TEXT")
    
11.              )
    
12.               (setq str (cdr (assoc 1 el)))
    
13.               t
    
14.            )
    
15.            (setq ss (ssget "x" (list (cons 1 str))))
    
16.       )
    
17.     (progn
    
18.       (setq oldcl (getvar "cecolor"))
    
19.       (setvar "pdmode" 35)
    
20.       (setvar "pdsize" 10) ;_ size
    
21.       (setq sl (sslength ss))
    
22.       (setvar "cecolor" "1") ;_ point color
    
23.       (while (> sl 0)
    
24.         (setq p (assoc 10 (entget (ssname ss (setq sl (1- sl))))))
    
25.         (entmake (list '(0 . "point")
    
26.                        '(100 . "acdbentity")
    
27.                        '(100 . "acdbpoint")
    
28.                        p
    
29.                  )
    
30.         )
    
31.       )
    
32.       (setvar "cecolor" oldcl)
    
33.     )
    
34.   )
    
35.   (princ)
    
36. )
    
37. (defun c:t1 (/ ss)
    
38.   (if (setq ss (ssget "x" '((0 . "point") (62 . 1))))
    
39.     (command ".erase" ss "")
    
40.   )
    
41.   (princ)
    
42. )
    

<br /> (defun c:tt (/ str ss sl oldcl p)<br />   (if (and (setq<br />              str (getstring "\nInput Find TextString< Enter to Pick >: ")<br />            )<br />            (if<br />              (and (= str "")<br />                   (setq e (entsel "\nPick text: "))<br />                   (= (cdr (assoc 0 (setq el (entget (car e))))) "TEXT")<br />              )<br />               (setq str (cdr (assoc 1 el)))<br />               t<br />            )<br />            (setq ss (ssget "x" (list (cons 1 str))))<br />       )<br />     (progn<br />       (setq oldcl (getvar "cecolor"))<br />       (setvar "pdmode" 35)<br />       (setvar "pdsize" 10) ;_ size<br />       (setq sl (sslength ss))<br />       (setvar "cecolor" "1") ;_ point color<br />       (while (> sl 0)<br />         (setq p (assoc 10 (entget (ssname ss (setq sl (1- sl))))))<br />         (entmake (list '(0 . "point")<br />                        '(100 . "acdbentity")<br />                        '(100 . "acdbpoint")<br />                        p<br />                  )<br />         )<br />       )<br />       (setvar "cecolor" oldcl)<br />     )<br />   )<br />   (princ)<br /> )<br /> (defun c:t1 (/ ss)<br />   (if (setq ss (ssget "x" '((0 . "point") (62 . 1))))<br />     (command ".erase" ss "")<br />   )<br />   (princ)<br /> )<br />

自由的鱼

最初由 zh_6531394 发布
[B]老大,不行,加载后命令呢? 用 "t t " ,不管用 [/B]

看我签名栏里的程序加载方法！

盛十二

这个程序我运行了，是将查找的文字给专门作成一层，且颜色变了。还不错吧，谢谢楼主的程序。

zh_6531394

困扰我多年的问题终于结决了,感激之情无法言表,感谢 "自由的鱼  
"  感谢 "晓东空间"