Xref to Gray color

Discussion in 'AutoCAD' started by Tim Robben, Dec 6, 2004.

  1. Tim Robben

    Tim Robben Guest

    Does anybody know/ or has a script to put the xref in gray color. Just by
    clicking on one button?
     
    Tim Robben, Dec 6, 2004
    #1
  2. Tim Robben

    Marc Clamage Guest

    No, but how hard is it anyway? Call up layers, select all the xref layers
    and change the color. Or alternately, type

    -la Enter c Enter 8 (or whatever color you want to use) Enter xrefname|*
    Enter Enter

    Marc
     
    Marc Clamage, Dec 6, 2004
    #2
  3. Tim Robben

    Jim Claypool Guest

    (defun c:xreftogray (/ data name tmp rtn layname)
    (setq laynames "")
    (while (setq data (tblnext "block" (null data)))
    (setq name (cdr (assoc 2 data)))
    (if (= 4 (logand 4 (cdr (assoc 70 data))))
    (setq laynames (strcat laynames "," name "*"))
    ) ;end if
    );end while
    (command ".layer" "c" "8" laynames "")
    (princ)
    )
     
    Jim Claypool, Dec 6, 2004
    #3
  4. Tim Robben

    Frank Burns Guest

    I actually have a lisp routine that will turn all xref layers to any color
    you want. I f you want it let me know and I will send it to you.
     
    Frank Burns, Dec 20, 2004
    #4
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.