flytoday 发表于 2012-12-6 23:59:24

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

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

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

x_s_s_1 发表于 2012-12-6 23:59:25

本帖最后由 x_s_s_1 于 2012-12-7 09:24 编辑

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


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

flytoday 发表于 2012-12-7 10:25:30

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

yaokui25 发表于 2012-12-7 14:44:48

我也留下一个脚印

zyhandw 发表于 2012-12-7 15:01:25

高手，学习了！！

bai2000 发表于 2020-10-4 23:58:17

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

bai2000 发表于 2020-10-21 12:14:08

顶起来；；；；；
页: [1]
查看完整版本: 求大师给写一个相同的单行文字隐藏与显示。