cdorder wipeouts above xrefs buth beneath all other layers

[Sandervp]

Hello everybody,

Because a lot of block attributes in a drawing which aren't readable because of a xref what lies beneath, I need to use some wipeouts to see the text only.

After creating these wipeouts, they do not stay at their possition. I have to use the draworder command again and again to put the wipeouts above the xref but beneath all the other objects in the drawing. I want to use the -cdorder command for doing this.

I do have a lisp which puts all the wipeouts in the layer wipeout and changes his color into 249.

I don't use this color for something else.

My xrefs are in the layer XREF (color 8 but not the only layer with that color). I do have a lisp which shall puts all the xref at the back of all other objects in the drawing.

How can I combine these 2 lisps and add the -cdorder command in it to put the wipeout layer between the xrefs and all the other layers?

And is it possible to "lock" these xrefs and wipeouts beneath all the other objects? I don't mean with the lock command but that I don't have to use the draworder every time?

Thank you

;;;PUTS ALL THE WIPEOUTS INTO THE LAYER WIPEOUT;;;

(defun c:WPL (/)
   (command "-layer" "m" "WIPEOUT" ""); maakt een nieuwe laag aan
   (Setq ss (sssetfirst nil (ssget "_x" '((0 . "WIPEOUT"))))); creates selection set of all wipeouts
   (command "change" "p" "" "p" "la" "WIPEOUT" ""); changes all wipeout to layer WIPEOUT
)

;;;CHANGES ALL THE COLORS OF THE WIPEOUTS TO 249;;;

(defun ModLayer (VIEWPORT laycolor  / doc layers vlalay)
(setq	doc      (vla-get-ActiveDocument (vlax-get-acad-object))
	layers   (vla-get-Layers doc)
);setq

(setq vlalay (vla-item layers VIEWPORT))
(if laycolor
	(vla-put-color vlalay laycolor)
)
)

(defun c:WPC () ;
(ModLayer "VIEWPORT" 249);
)







(DEFUN C:WP()
   (COMMAND "wipeoutframe" "1")
   (C: "wpL")
   (C: "WPC")
?
?
?  (C: "XREFBACK") SOMEWHERE IN THIS DEFUN?
?
?
?
   (COMMAND "wipeoutframe" "0")

;;;THANK YOU

;;;SANDER

[ВeekeeCZ]

Perhaps like this?... untested..

Spoiler

;;;PUTS ALL THE WIPEOUTS INTO THE LAYER WIPEOUT;;;

(defun c:WPL (/)
  (command "-layer" "m" "WIPEOUT" ""); maakt een nieuwe laag aan
  (Setq ss (sssetfirst nil (ssget "_x" '((0 . "WIPEOUT"))))); creates selection set of all wipeouts
  (command "change" "p" "" "p" "la" "WIPEOUT" ""); changes all wipeout to layer WIPEOUT
  )

;;;CHANGES ALL THE COLORS OF THE WIPEOUTS TO 249;;;

(defun ModLayer (VIEWPORT laycolor  / doc layers vlalay)
  (setq	doc      (vla-get-ActiveDocument (vlax-get-acad-object))
	layers   (vla-get-Layers doc)
	);setq
  
  (setq vlalay (vla-item layers VIEWPORT))
  (if laycolor
    (vla-put-color vlalay laycolor)
    )
  )

(defun c:WPC () ;
  (ModLayer "VIEWPORT" 249);
  )


(defun c:XREFBACK (/ ss en i)
  (if (setq ss (ssget "_X" '((0 . "INSERT"))))
    (repeat (setq i (sslength ss))
      (if (/= (logand 4 (cdr (assoc 70 (tblsearch "block" (cdr (assoc 2 (entget (setq en (ssname ss (setq i (1- i))))))))))) 4)
	(ssdel en ss))))
  (if ss (command "_.draworder" ss "" "_b" )))



(defun c:WPBACK (/ ss)
  (if (setq ss (ssget "_x" '((0 . "WIPEOUT") (62 . 249))))
    (command "_.draworder" ss "" "_b" )))




(DEFUN C:WP()
  (COMMAND "wipeoutframe" "1")
  (C:wpL)
  (C:WPC)
  (c:WPBACK)
  (C:XREFBACK)
  
  (COMMAND "wipeoutframe" "0")
  (princ)
  )
;;;THANK YOU

;;;SANDER