[编程交流] “x”上的反向选择集

(if
(and
        (setq SS-invis (ssget "_X" (list (cons 60 1))))
        (setq SS-vis (ssget "_X" (list (cons 60 0))))
)
(initget 1 "visible invisible")
(progn
        (setq ans (getkword "\nWhich selection to grip [visible/invisible] ?"))
        (cond
                ((= ans "visible")
                        (sssetfirst nil SS-vis)
                )
                ((= ans "invisible")
                        (sssetfirst nil SS-invis)
                )
        )        
)
)

..
..
(your advice for the if)
..
..
 (if ss1
   (progn
     (setq counter 0)
     (while (<= counter (- (sslength ss1) 1))
       (setq en (ssname ss1 counter))
       (setq look_for en)
       (setq LOOK_FOR_DXF (entget LOOK_FOR))
       (setq LOOK_FOR_LAYER (cdr (assoc 8 LOOK_FOR_DXF)))
       (setq LAYER_LOCK_STATUS
              (CDR
                (ASSOC 70
                       (tblsearch "LAYER" LOOK_FOR_LAYER)
                )
              )
       )
       (If (= LAYER_LOCK_STATUS 4)
         (progn
           (command "layer" "unlock" LOOK_FOR_LAYER "")
         ) ; End progn
       )
       (setq LOOK_FOR_DXF
              (subst (cons 60 0)
                     (assoc 60 LOOK_FOR_DXF)
                     LOOK_FOR_DXF
              )
       )
       (entmod LOOK_FOR_DXF)
       (If (= LAYER_LOCK_STATUS 4)
         (progn
           (command "layer" "lock" LOOK_FOR_LAYER "")
         ) ; End progn
       )
       (setq counter (+ counter 1))
     ) ; End of while
   ) ; End progn
 ) ; End if   
 (command "redrawall")
 (command "undo" "end")
 (princ)
 (princ)
) ; End defun, 
; ..this code makes it visible..
(PRINC)

 (setq ss1 (ssget)) ; Select objects
 (if ss1 ; If user has selected object(s) then
   (progn ; start this progn
     (setq counter 0) ; set-up a counter starting at 0
     (while (<= counter (- (sslength ss1) 1))
; While the counter is less than the total number of blocks in the SS1 selection set plus 1
       (setq en (ssname ss1 counter))
; find the entity name of the entity at counter number ?
       (setq look_FOR en) ; Set Look_FOR to the same as en
       (setq LOOK_FOR_DXF (entget LOOK_FOR))
; Get the DXF list from the LOOK_For
       (setq LOOK_FOR_LAYER (cdr (assoc 8 LOOK_FOR_DXF)))
; Get the Layer information out of the DXF list of the entity
       (setq LAYER_LOCK_STATUS
; Find the layer status for the entities layer
              (CDR
                (ASSOC 70
                       (tblsearch "LAYER" LOOK_FOR_LAYER)
                )
              )
       )
       (If (= LAYER_LOCK_STATUS 4)
; If the entities layer is locked then
         (progn ; do the following Progn
           (command "layer" "unlock" LOOK_FOR_LAYER "")
; Unlock the entities Layer
         ) ; End progn
       )
       (setq LOOK_FOR_DXF
              (subst (cons 60 1)
                     (assoc 60 LOOK_FOR_DXF)
                     LOOK_FOR_DXF
              )
       )
       (setq tocon (cons 60 1))
       (setq ToModify (append LOOK_FOR_DXF (list tocon)))
       (entmod ToModify)
       (If (= LAYER_LOCK_STATUS 4)
         (progn
           (command "layer" "lock" LOOK_FOR_LAYER "")
; Lock the LOOK_FOR_LAYER
         ) ; End progn
       )
       (setq counter (+ counter 1))
; add one to the counter for next item to process
     ) ; End of while
   ) ; End progn
 ) ; End if
 (command "undo" "end")
 (princ)
 ) ; End of defun

; test-isolate
; test-hide
; test-all-visible
; test-inverse
;isos
(defun C:test-isolate ( / SSL SSX )
(vl-load-com)
(setq acadobject (vlax-get-Acad-Object))
(setq acdoc (vla-get-activedocument acadobject))
(if
        (and 
                (princ "\nSelect objects to isolate: ")
                (setq SSL (ssget "_:L"))
                (setq SSX (ssget "_X" ))
        );and
        (progn
                (PutEverythingInvisible SSX)
                (PutEverythingVisible SSL)
                (vla-Regen acdoc :vlax-true)
        );progn
)
(princ)
);defun        
; ozbs
(defun C:test-hide ( / SSL )
(vl-load-com)
(setq acadobject (vlax-get-Acad-Object))
(setq acdoc (vla-get-activedocument acadobject))
(if
        (and 
                (princ "\nSelect objects to hide: ")
                (setq SSL (ssget "_:L"))
        );and
        (progn
                (PutEverythingInvisible SSL)
                (vla-Regen acdoc :vlax-true)
        );progn
)
(princ)
);defun        
;zb
(defun C:test-all-visible ( / SSL SSX )
(vl-load-com)
(setq acadobject (vlax-get-Acad-Object))
(setq acdoc (vla-get-activedocument acadobject))
(if
        (and 
                (princ "\nSetting everything to visible! ")
                (setq SSX (ssget "_X" ))
        );and
        (progn
                (PutEverythingVisible SSX)
                (vla-Regen acdoc :vlax-true)
        );progn
)
(princ)
);defun        
(defun C:test-inverse ( / SSL SSX )
(vl-load-com)
(setq acadobject (vlax-get-Acad-Object))
(setq acdoc (vla-get-activedocument acadobject))
(if
        (and 
                (princ "\nInversing the visibility! ")
                (setq SSX (ssget "_X" ))
        );and
        (progn
                (ReverseVisibility SSX)
                (vla-Regen acdoc :vlax-true)
        );progn
)
(princ)
);defun        
(defun PutEverythingInvisible ( SS / ent enx vla-obj )
(repeat (setq i (sslength SS)) 
        (setq ent (ssname SS (setq i (1- i)))) 
        (setq enx (entget ent))
        (setq vla-obj (vlax-ename->vla-object ent))
        
        (if
                (and (vlax-property-available-p vla-obj "Visible") (= (vlax-get-property vla-obj 'Visible) :vlax-true))
                (vla-put-Visible vla-obj :vlax-false)
        )
)
)
(defun PutEverythingVisible ( SS / ent enx vla-obj )
(repeat (setq i (sslength SS)) 
        (setq ent (ssname SS (setq i (1- i)))) 
        (setq enx (entget ent))
        (setq vla-obj (vlax-ename->vla-object ent))
        
        (if
                (and (vlax-property-available-p vla-obj "Visible") (= (vlax-get-property vla-obj 'Visible) :vlax-false))
                (vla-put-Visible vla-obj :vlax-true)
        )
)
)
(defun ReverseVisibility ( SS / ent enx vla-obj )
(repeat (setq i (sslength SS)) 
        (setq ent (ssname SS (setq i (1- i)))) 
        (setq enx (entget ent))
        (setq vla-obj (vlax-ename->vla-object ent))
        
        (cond
                ((and (vlax-property-available-p vla-obj "Visible") (= (vlax-get-property vla-obj 'Visible) :vlax-false))
                        (vla-put-Visible vla-obj :vlax-true)
                )
                ((and (vlax-property-available-p vla-obj "Visible") (= (vlax-get-property vla-obj 'Visible) :vlax-true))
                        (vla-put-Visible vla-obj :vlax-false)
                )
        )
)
)

(defun PutEverythingInvisible ( ss vs / i k)
 (setq k (if vs 1 0))
 (repeat (setq i (sslength ss))
   (entmod (append (entget (ssname ss (setq i (1- i)))) (list (cons 60 k))))
   )
 )