thanks for this wonderfull little routine.
I used to work at a place that had xe.lsp and I could change color,
linetype, off, frozen, in a dialog box.
so.....how about changing the entity linetype in xref?
--
BIGGEORGE
Where are we going and
what am I doing in this handbasket?
"Adesu" wrote in message
news:5439509@discussion.autodesk.com...
or with this
Works lika champ! Many thanks.
"Josh C" wrote in message
news:410e5f5e$1_2@newsprd01...
> No error checking...may require regen to see changes on certain objects
>
> (defun c:xlc ( / obj layer color)
> (while (setq obj (nentsel "\nSelect entity on layer: "))
> (setq layer (entget
> (tblobjname "layer" (cdr (assoc 8 (entget (car obj)))))
> )
> color (acad_colordlg (cdr (assoc 62 layer)))
> )
> (if color
> (entmod (subst (cons 62 color) (assoc 62 layer) layer))
> )
> )
> (princ)
> )
>
>
> "jonesr" wrote in message
> news:410e3516_2@newsprd01...
> > Does anyone have a routine to allows one to select an object in an xref
> and
> > then enter a new color for that object's layer? This would automate
using
> > the Express nested object list to obtain the name of the layer, running
> the
> > layer command and manually changing the layer. Most useful if you have a
> few
> > xref layers to change but hundreds of xref layers in the dwg.
> >
> >
>
>
wrote in message news:5439495@discussion.autodesk.com...
Hi all,
I don't know much about lisp but can any one please help me come up with
good lisp routine that will change all different color of layers from Xref
to another color I want!
Thanks so much