Topic: Change color LWPOLYLINE

[FELIX]

How modifying the color of a lwpoyline?

assoc 62 does not work.

[Jeff_M]

This works for me:

Code: [Select]

(setq ent (entget (car (entsel))))
(if (assoc 62 ent)
  (entmod (subst '(62 . 256) (assoc 62 ent) ent));;change to bylayer
  (entmod (reverse (cons '(62 . 2) (reverse ent))));;change to yellow
  )


[FELIX]

OK.

[mailmaverick]

Dear Jeff

Why third line (1st entmod) is required ?

Why can't only 2nd entmod be applied directly ?

[pBe]

Why can't only 2nd entmod be applied directly ?

Exactly.

Regardless wether  DXF 62 exist or not  you can just go ahead and use append function

Code: [Select]

(if (and (setq e (car (entsel)))
    (setq ent (entget e))
    )
  (entmod (append ent '((62 . 52)));<<- whatever color
)