[求助]：怎么才能更快地显示隐藏的实体

snsj

但是想着用纯VLISP的方法写，当时不知道VLAX-FOR处理选择集，看了龙龙仔兄的程序受益匪浅～

eachy

最初由 LUCAS 发布
[B]

2. 
   
3. ;;By LUCAS
   
4. (defun C:OBJECT_ON (/ OBJ)
   
5.   (vl-load-com)
   
6.   (if (ssget "x" '((60 . 1)))
   
7.     (vlax-for OBJ (vla-get-activeselectionset
   
8.                     (vla-get-activedocument (vlax-get-acad-object))
   
9.                 ... [/B]

<br /> ;;By LUCAS<br /> (defun C:OBJECT_ON (/ OBJ)<br />   (vl-load-com)<br />   (if (ssget "x" '((60 . 1)))<br />     (vlax-for OBJ (vla-get-activeselectionset<br />                     (vla-get-activedocument (vlax-get-acad-object))<br />                 ... [/B]

整理一下

2. 
   
3. ;;By LUCAS
   
4. (vl-load-com)
   
5. (defun obj_onf (ss mode)
   
6.   (if (= (type ss) 'PICKSET)
   
7.     (vlax-for OBJ (vla-get-activeselectionset
   
8.                     (vla-get-activedocument (vlax-get-acad-object))
   
9.                   )
   
10.       (vla-put-visible OBJ mode)
    
11.     )
    
12.   )
    
13. )
    
14. (defun C:OBJECT_ON (/ OBJ)
    
15.   (obj_onf (ssget "x" '((60 . 1))) :vlax-true)
    
16.   (princ)
    
17. )
    
18. (defun C:OBJECT_OFF (/ OBJ)
    
19.   (obj_onf (ssget) :vlax-false)
    
20.   (princ)
    
21. )
    
22. 
    

<br /> ;;By LUCAS<br /> (vl-load-com)<br /> (defun obj_onf (ss mode)<br />   (if (= (type ss) 'PICKSET)<br />     (vlax-for OBJ (vla-get-activeselectionset<br />                     (vla-get-activedocument (vlax-get-acad-object))<br />                   )<br />       (vla-put-visible OBJ mode)<br />     )<br />   )<br /> )<br /> (defun C:OBJECT_ON (/ OBJ)<br />   (obj_onf (ssget "x" '((60 . 1))) :vlax-true)<br />   (princ)<br /> )<br /> (defun C:OBJECT_OFF (/ OBJ)<br />   (obj_onf (ssget) :vlax-false)<br />   (princ)<br /> )<br /> <br />

playboy

真的是个好东西呀。我以前都是分层进行隐藏的最后都乱了。有了这个东西就省了好多时间。谢谢大家了

aeo

最初由 zhynt 发布
[B][QUOTE]最初由 aeo 发布
[B]这个程序过于简单了，这对于简单图元是可以的，但是对于象多义线、填充、块等复杂图元(60 . 1)加在组码开头是无效的[/B]

可以的，试过的.

cqnj023

好东西，以前还没有注意60组码，不知其威力，今天看了各位高手的高论，真是威力无穷。

1309128734

谢谢你门的程序

start4444

:lol:$:loveliness::loveliness:

qxlonmsn

犇  很厉害