隐藏显示实体

自贡黄明儒

fjutcivil 发表于 2013-8-27 15:12
Z版，帮个忙关于这个吟唱显示优化下，就是比如我运行了yc  选择后隐藏，然后我再运行yc 我希望把刚刚隐藏 ...

1. ;;自贡黄明儒 时间2013.8.27
   
2. (defun c:yc (/ EN I SS)
   
3.   (while (setq ss (ssget))   
   
4.     (repeat (setq I (sslength ss))
   
5.       (setq EN (ssname ss (setq i (1- i))))
   
6.       (entmod (cons (cons 60 1) (entget EN)))
   
7.     )
   
8.   )
   
9.   (IF EN
   
10.     nil
    
11.     (if (setq ss (ssget "x" (LIST (cons 60 1))))
    
12.     (repeat (SETq I (sslength ss))
    
13.       (setq EN (entget (ssname ss (setq i (1- i)))))
    
14.       (entmod (subst (cons 60 0) (assoc 60 EN) EN))      
    
15.     )
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )

;;自贡黄明儒 时间2013.8.27<br /> (defun c:yc (/ EN I SS)<br />   (while (setq ss (ssget))    <br />     (repeat (setq I (sslength ss))<br />       (setq EN (ssname ss (setq i (1- i))))<br />       (entmod (cons (cons 60 1) (entget EN)))<br />     )<br />   )<br />   (IF EN<br />     nil<br />     (if (setq ss (ssget "x" (LIST (cons 60 1))))<br />     (repeat (SETq I (sslength ss))<br />       (setq EN (entget (ssname ss (setq i (1- i)))))<br />       (entmod (subst (cons 60 0) (assoc 60 EN) EN))      <br />     )<br />     )<br />   )<br />   (princ)<br /> )

fjutcivil

自贡黄明儒 发表于 2013-8-27 15:44

额 不理想啊 只能进行一次隐藏显示 我是要不断的进行的的 因为要不停的对图每一个地方，而且显示跟隐藏之间好像也没处理好 有点滞后好像 显示的时候居然还有框选出来，，，

fjutcivil

fjutcivil 发表于 2013-8-27 15:55
额 不理想啊 只能进行一次隐藏显示 我是要不断的进行的的 因为要不停的对图每一个地方，而且显示跟隐藏之 ...

一直点选不是很麻烦 我们对的东西比较多 也比较快速 一直点 挺麻烦的 求拯救啊

fjutcivil

自贡黄明儒 发表于 2013-8-27 15:44

一直点选不是很麻烦 我们对的东西比较多 也比较快速 一直点 挺麻烦的 求拯救啊

KL820619

顶一下~~~~~~~~~~~~~~~~~~

davide888

自贡黄明儒 发表于 2013-8-27 15:44

顶起            

陈亚娣

精品代码，学习学习

panliang9

楼主，我当年在四楼的地板上想让你帮编一个“在位块编辑只显示”只显示，你说明天再弄，都两年了呢，你最近有没有空了呢！

还是“ZZXXQQ”版主能不能出手帮一下呢！

真的很想要这个命令啊！

MENGZE

对象一多就卡顿得好厉害，楼主可以优化下吗？

masterlong

两年时间等一个程序
不如自己学习早解决了

另外60组码貌似对mtext pline无效