Help with an xref lisp

[The Real JD]

I have a lisp that will convert all xrefs in a drawing to layer color 9. Is it a big deal to change it, so i can pick the xref that I want changed instead of changing all of them? TIA

;;CADALYST 08/03 Tip1888: XREFTO9.LSP XREFS TO COLOR 9 (c) 2003 Jeff Mishler ;; Routine to set all model space Xref ;layers to color 9 ;; by Jeff Mishler, 5/3/03

(defun C:XREFTO9 (/ ssblk cnt blknames lay ename)
(setq ssblk (ssget "x" '((0 . "INSERT") (410 . "Model")))) (setq cnt 0) (setq blknames "") (repeat (sslength ssblk) ; create list of block names in Model space for filter list (setq blknames (strcat blknames (cdr (assoc 2 (entget (ssname ssblk cnt)))) "|*," ) ) (setq cnt (1+ cnt)) ) (setq lay (tblnext "layer" t)) ;get layer entity (command "undo" "be") (while (/= lay nil) (if (wcmatch (cdr (assoc 2 lay)) blknames) ;find xref layers, could use assoc 70 instead (progn (setq ename (tblobjname "layer" (cdr (assoc 2 lay)))) (setq lay (entget ename)) (if (> (cdr (assoc 62 lay)) 0) ; is the layer on? (setq lay (subst (cons 62 9) (assoc 62 lay) lay)) ; yes it is (setq lay (subst (cons 62 -9) (assoc 62 lay) lay)) ; no, it's off ) (entmod lay) ) ) (setq lay (tblnext "layer")) ; next layer ) (if ename (prompt "All xref layers in Model space (except \"0\" and \"defpoints\") now color 9!" ) (prompt "No xref layers found in Model Space!") ) (command "undo" "end") (princ)
)

 

[Jeff Mishler]

Heh, That's mine! ;-)

Just remove the "x" from the line (setq ssblk (ssget "x" '((0 . "INSERT") (410 . "Model")))) and that should do it. Might want to change the prompt near the end to reflect "the selected xref layers ....."

Jeff

 

[The Real JD]

Thanks Jeff!

Heh, That's mine! ;-)

Just remove the "x" from the line (setq ssblk (ssget "x" '((0 . "INSERT") (410 . "Model")))) and that should do it. Might want to change the prompt near the end to reflect "the selected xref layers ....."

Jeff