“反向隐藏”达不到‘反向’的效果

冒个烟圈

ZZXXQQ 发表于 2015-10-13 08:47

谢谢。。终于可以了。。

香田里浪人

(defun c:ycqt ()
(setvar "cmdecho" 0)
(setq ss (ssget))
(command "SELECT" "ALL" "R" ss "")
(setq ss (ssget "P"))
(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)
)

qmqyqj

ymcui 发表于 2015-10-13 11:40
;[恢复隐藏]
(defun c:xs (/ AcadObject AcadDocument LayersObj ss n i ent ob lay vlay lay-tn)
(set ...

谢谢！刚开始没注意看

林霄云

2. ;[隐藏物体]
   
3. (defun c:yc ( / AcadObject AcadDocument LayersObj ss n n-yc i ent ob lay vlay )   ;lay-tn
   
4. (setq AcadObject (vlax-get-acad-object)
   
5.               AcadDocument (vla-get-ActiveDocument AcadObject)
   
6.               LayersObj (vla-get-layers AcadDocument)
   
7. );end setq
   
8. (princ "\n请选择需要隐藏的物体" )
   
9. (if (setq ss (ssget))
   
10.                (progn
    
11.                       (setq n (sslength ss)
    
12.                                                         n-yc 0 )
    
13.                       (setq i (- n 1))
    
14.                       (repeat n
    
15.                              (setq ent (ssname ss i)
    
16.                                     ob (vlax-ename->vla-object ent)
    
17.                                     lay (vla-get-layer ob)
    
18.                                     vlay (vla-item LayersObj lay)
    
19.                             );end setq
    
20.                                                        
    
21.                                                        
    
22.                              ; (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true);如果图层锁定
    
23.                                     ; (vla-put-lock vlay :vlax-false);先解锁图层
    
24.                             ; );end if
    
25.                              ; (vla-put-visible ob :vlax-false)
    
26.                              ; (if (= lay-tn :vlax-true)
    
27.                                     ; (vla-put-lock vlay :vlax-true);再锁定图层，恢复图层状态
    
28.                             ; );end if
    
29.                                                         ;当图层未锁定时，执行隐藏操作
    
30.                                                      (if (= (vla-get-lock vlay) :vlax-false)
    
31.                                                                 (progn
    
32.                                                                 (vla-put-visible ob :vlax-false)
    
33.                                                                 (setq n-yc (+ n-yc 1))
    
34.                                                                 )
    
35.                                                          )                                                       
    
36.                              (setq i (1- i))
    
37.                      );end repeat
    
38.                       (princ (strcat "\n已隐藏"  (itoa n-yc)   "物体" ))
    
39. ));end if
    
40. (princ)
    
41. );end defun

;[隐藏物体]<br /> (defun c:yc ( / AcadObject AcadDocument LayersObj ss n n-yc i ent ob lay vlay )   ;lay-tn<br /> (setq AcadObject (vlax-get-acad-object)<br />               AcadDocument (vla-get-ActiveDocument AcadObject)<br />               LayersObj (vla-get-layers AcadDocument)<br /> );end setq<br /> (princ "\n请选择需要隐藏的物体" )<br /> (if (setq ss (ssget))<br />                (progn<br />                       (setq n (sslength ss)<br />                                                         n-yc 0 )<br />                       (setq i (- n 1))<br />                       (repeat n<br />                              (setq ent (ssname ss i)<br />                                     ob (vlax-ename->vla-object ent)<br />                                     lay (vla-get-layer ob)<br />                                     vlay (vla-item LayersObj lay)<br />                             );end setq<br />                                                         <br />                                                         <br />                              ; (if (= (setq lay-tn (vla-get-lock vlay)) :vlax-true);如果图层锁定<br />                                     ; (vla-put-lock vlay :vlax-false);先解锁图层<br />                             ; );end if<br />                              ; (vla-put-visible ob :vlax-false)<br />                              ; (if (= lay-tn :vlax-true)<br />                                     ; (vla-put-lock vlay :vlax-true);再锁定图层，恢复图层状态<br />                             ; );end if<br />                                                         ;当图层未锁定时，执行隐藏操作<br />                                                      (if (= (vla-get-lock vlay) :vlax-false)<br />                                                                 (progn<br />                                                                 (vla-put-visible ob :vlax-false)<br />                                                                 (setq n-yc (+ n-yc 1))<br />                                                                 )<br />                                                          )                                                        <br />                              (setq i (1- i))<br />                      );end repeat<br />                       (princ (strcat "\n已隐藏"  (itoa n-yc)   "物体" ))<br /> ));end if<br /> (princ)<br /> );end defun

oistre

谢谢大神，牛牛牛牛！！！