layer plot style

I am looking for a routine that would allow you to pick an entity, extract
it's layer name, and allow you to change the plot style of that layer name.

TIA!

 

Simple one that I think ought to work:
[PlotStylLayPick]*^C^C-LAYER PS \(cdr (assoc 8 (entget (car (entsel "Select
Item on Layer to assign Plot Style to: "))))) \;

It will ask you for a Plot Style BEFORE asking you for an item on the layer,
because that's the order in the prompt sequence (that's what's "simple"
about this one). But maybe you can rearrange things to save the layer name
and reuse it later, if you want to pick the item first.

HOWEVER, I find (in checking for the prompt sequence and abbreviations) that
in some circumstances the PS option is there in the Layer sub-prompt, and in
some it's not, in which case this wouldn't work (it considers PS an invalid
option). It's true in A2K & A2K4, and I'm not sure yet, but I think it
might be unavailable in drawings that were started in earlier versions or
something, though I can't imagine why that would matter.

Anyone have any other ideas why that option would be available in some
circumstances and not others, and/or what those circumstances would be?

Kent Cooper, AIA

name.