求大师给写一个相同的单行文字隐藏与显示。

flytoday

就是以针对单行的相同的文字能进行。隐藏与显示功能。。
文字只要字相同就行。。跟图层样式无关。。

麻烦哪位大师写一个啊谢谢了。。

x_s_s_1

试试这个，由于没上图，只是按照自己的理解写的

2. 
   
3. (defun c:yc ( / en ss i ent lx a);选择隐藏
   
4.   (setq en (car(entsel "\n选择需隐藏文字模板：")))
   
5.   (setq ss (ssget "x" (list '(0 . "text") (assoc 1 (entget en)))))
   
6.   (setq i 0)
   
7.   (repeat (sslength ss)
   
8.     (setq sn (ssname ss i))
   
9.     (setq ent (entget sn))
   
10.     (setq lx (cdr (assoc 60 ent)))
    
11.     (if        (= lx nil)
    
12.       (progn
    
13.         (setq a (list (cons 60 1)))
    
14.         (setq ent (append ent a))
    
15.         (entmod ent)
    
16.       )
    
17.     )
    
18.     (if        (/= lx nil)
    
19.       (progn
    
20.         (setq ent (subst (cons 60 1) (assoc 60 ent) ent))
    
21.         (entmod ent)
    
22.       )
    
23.     )
    
24.     (setq i (1+ i))
    
25.   )
    
26.   (princ)
    
27. )
    
28. (defun c:xs ( / ss i sn ent);显示隐藏
    
29.   (setq ss (ssget "x" '((60 . 1))))
    
30.   (setq i 0)
    
31.   (repeat (sslength ss)
    
32.     (setq sn (ssname ss i))
    
33.     (setq ent (entget sn))
    
34.     (setq ent (subst (cons 60 0) (assoc 60 ent) ent))
    
35.     (entmod ent)
    
36.     (setq i (1+ i))
    
37.   )
    
38.   (princ)
    
39. )
    

<br /> (defun c:yc ( / en ss i ent lx a);选择隐藏<br />   (setq en (car(entsel "\n选择需隐藏文字模板：")))<br />   (setq ss (ssget "x" (list '(0 . "text") (assoc 1 (entget en)))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq sn (ssname ss i))<br />     (setq ent (entget sn))<br />     (setq lx (cdr (assoc 60 ent)))<br />     (if        (= lx nil)<br />       (progn<br />         (setq a (list (cons 60 1)))<br />         (setq ent (append ent a))<br />         (entmod ent)<br />       )<br />     )<br />     (if        (/= lx nil)<br />       (progn<br />         (setq ent (subst (cons 60 1) (assoc 60 ent) ent))<br />         (entmod ent)<br />       )<br />     )<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br /> (defun c:xs ( / ss i sn ent);显示隐藏<br />   (setq ss (ssget "x" '((60 . 1))))<br />   (setq i 0)<br />   (repeat (sslength ss)<br />     (setq sn (ssname ss i))<br />     (setq ent (entget sn))<br />     (setq ent (subst (cons 60 0) (assoc 60 ent) ent))<br />     (entmod ent)<br />     (setq i (1+ i))<br />   )<br />   (princ)<br /> )<br />

flytoday

谢谢啦老大~~你太有才了~

yaokui25

我也留下一个脚印

zyhandw

高手，学习了！！

bai2000

只显示相同的文字，其余的文字都关闭，怎么改？

bai2000

顶起来；；；；；