topic Betreff: Change layer color to bylayer in Visual LISP, AutoLISP and General Customization Forum

Change layer color to bylayer

subs — Tue, 15 May 2018 17:55:51 GMT

I'm trying to write a routine to change a selected object's color to Bylayer.

Not as straightforward as I would have thought.

Change, Properties, Color wants a number. Entity subobject list doesn't display the color associated pair when it is set that way. So...

I have one object's name stored in a variable. I want that object's color to be Bylayer.

How can I do this?

thx

Betreff: Change layer color to bylayer

cadffm — Tue, 15 May 2018 18:05:55 GMT

(setq ABC (car(entsel)))

(setq ABC (ssget))

(command "_.CHPROP" ABC "" "_color" "ByLAyer" "")

(setq elist (entget ABC))

(if (assoc 62 elist)

(entmod (subst '(62 . 256) (assoc 62 elist)elist))

(entmod (cons '(62 . 256) elist))

)

(vla-put-color (vlax-ename->vla-object ABC) 256)

Betreff: Change layer color to bylayer

subs — Tue, 15 May 2018 18:23:42 GMT

Awesome! Thanks.

Betreff: Change layer color to bylayer

DannyNL — Wed, 16 May 2018 05:49:32 GMT

Is your goal to use this routine as part of a larger one?

If not, you can also use the standard AutoCAD command SETBYLAYER to change the object's color to ByLayer.

Betreff: Change layer color to bylayer

subs — Wed, 16 May 2018 13:21:21 GMT

Yes, it's part of a larger program. Normally, without programming, I would select a group of objects and just change the layer in the properties window. I didn't know about that command, so thanks.

I started using a program that creates contours on a pointcloud. I import that into CAD, but the major and minor contours are set to a specific color. I want to put the major and minors on their own layer set to Bylayer so when I hand the drawing off to the client, they can change the colors by simply changing the layer color.

I also want to thicken the major contours, but a problem I have is most contours are polylines and a few are lines. When I have only polylines selected, I can change the global width in the properties dialog. If a mixture of polyline and lines are selected, there is no thickness option in the dialog. I know when I try to PEdit and line, it asks if I want to change it to a poly, then I can give it width. Is there a command that changes lines to polys?

I want to completely automate the process by just running the program and it selects all the polys (or steps through the database one by one (entnext) checking if it is a poly, converting it to a poly if it is a line, checking the entity's color and if a major contour, changing it to the major contour layer, making color bylayer and adding thickness. If the current color is a minor contour, setting it to bylayer and moving it to the minor contour layer.

I know how to do all of that except converting an entity to a polyline from a line.

Betreff: Change layer color to bylayer

roland.r71 — Wed, 16 May 2018 15:06:45 GMT

https://forums.autodesk.com/t5/autocad-forum/converting-the-lines-to-polylines/td-p/3293191

Betreff: Change layer color to bylayer

dgorsman — Wed, 16 May 2018 16:27:37 GMT

@cadffm wrote:

(setq ABC (car(entsel)))

or

(setq ABC (ssget))

(command "_.CHPROP" ABC "" "_color" "ByLAyer" "")

__

or

(setq elist (entget ABC))

(if (assoc 62 elist)

(entmod (subst '(62 . 256) (assoc 62 elist)elist))

(entmod (cons '(62 . 256) elist))

)

or

(vla-put-color (vlax-ename->vla-object ABC) 256)

In the ActiveX documentation, the "Color" property is noted as obsolete. While it still works, it's probably better to use the TrueColor property and assign it a TrueColor interface object (create one interface object outside the loop, then assign it to the different objects inside the loop). There's a few other benefits to doing it that way, including some useful properties and conversion methods for non-ACI colors.

And have a look in the ActiveX API for the constants which can make the code a bit more readable, such as "acByLayer", "acByBlock", "acRed", etc.

Betreff: Change layer color to bylayer

ActivistInvestor — Sat, 26 May 2018 05:03:41 GMT

Don't be afraid to use the ActiveX Color property. The docs have claimed that it is obsolete and will be removed in 'future versions' for at least the past 10 years.

IOW, it is the documentation itself that is 'obsolete'.

@cadffm wrote:

(vla-put-color (vlax-ename->vla-object ABC) 256)