(Entmod)ing an mlstyle

I am using the following code to try to change all mline entities to bylayer
color. I am getting nil returned on all entmods except for the "Standard"
style. This is my first time dealing with dictionarys and must be missing
something key.
(defun temp ()
(setq named_object (entget (cdr (assoc -1 (dictsearch (namedobjdict)
"acad_mlinestyle")))))
(repeat (length named_object)
(if (= (car (car named_object)) 350)
(progn
(setq ml_style (entget (cdr (car named_object))))
(repeat (+ 1 (setq ml_style_count (- (length ml_style) 1)))
(if (= (car (nth ml_style_count ml_style)) 62)
(setq ml_style (subst (cons 62 256) (nth ml_style_count
ml_style) ml_style))
)
(setq ml_style_count (- ml_style_count 1))
)
(princ (entmod ml_style))
)
)
(setq named_object (cdr named_object))
)
)
Any direction is appreciated.
Thanks
Cliff
Reply to
Cliff Davis
Loading thread data ...

PolyTech Forum website is not affiliated with any of the manufacturers or service providers discussed here. All logos and trade names are the property of their respective owners.