Plot Styles Change "Normal" globaly in layer dialog

[elowe494]

I would like to know if there is a lisp routine or VBA routine out there for editing the layer dialog and changing all instances of "Normal" plot style to "Full Saturation" or something else?

[RobertB]

There is no need for that. You can do it from the command line, e.g. -Layer.

[elowe494]

No that won't work. I did know about that command and have used it before. I want to change 50 layers out of 100 layers. So I need to be able to walk through the list and programaticaly change only those that are "Normal" not the other ones.

[RobertB]

I want to change 50 layers out of 100 layers. So I need to be able to walk through the list and programaticaly change only those that are "Normal" not the other ones.

That's easy to do with the API. There is a PlotSyleName property. Simply examine the current value and if it is "Normal" set it to the desired value.

Note that if the desired plot style is missing in the drawing you might run into a issue.

[elowe494]

Regretably I am not that good a programming. Is there anyone out there that has some code I can start with to help me out?

[RobertB]

Regretably I am not that good a programming. Is there anyone out there that has some code I can start with to help me out?

Have you no code all all you've tried?

Sub Test
  Dim aLayer as AcadLayer
  For Each aLayer In ThisDocument.Layers
    'Try it here
  Next aLayer
End Sub

[elowe494]

Regretably no code. I am an old lisp writter. I have not kept up with VBA. I know how to stick some VB into my lisp code but to write it from scratch I am out of my element. Sorry. I will look at what you wrote and see what I can do.

Thanks

[RobertB]

Regretably no code. I am an old lisp writter. I have not kept up with VBA. I know how to stick some VB into my lisp code but to write it from scratch I am out of my element. Sorry. I will look at what you wrote and see what I can do.

I'm here to help.

All you really need to do with the boilerplate is check aLayer's PlotStyleName property and if it is equal to "Normal" then change it to "Full Saturation".

[jwanstaett]

I put a Layer Propeties Filter in by Layer Manager named Bad Plot Sylte set the Plot Style to Normal This will select all Layer with Plot Style = Normal then all you need to do is change the Plot Style for the Bad Plot Style to what you need.

see attachment

[elowe494]

Ok I have tried my hand at some code. I now believe I may be in the wrong forum. If you think this should be moved to lisp forum that is fine.

Attached is my lisp routine as well as a simple sample drawing. The goal is to change the layer plotstyles from "Normal" to "Full Saturation"

I have a "get" subroutine and a "set" subroutine for Plt Style manipulation that if you try them from the command line on an individual specific layer name they work fine.

I then created a BNLoop subroutine.

My main program creates a list of layers and I am trying to loop through them with a foreasch command which is probably where I am lost

Any suggestions?