Thanks all guys
This lisp modifies the styles of mline
It's work that for the styles which are not called since a mline in the drawing
(if (setq lst (vl-remove-if-not '(lambda (x) (eq (car x) 350)) (dictsearch (namedobjdict) "ACAD_MLINESTYLE")))
(foreach ent lst
(entmod (append (vl-remove-if '(lambda (x) (eq (car x) 62)) (entget (cdr ent))) (list (cons 62 0))))
)
)
I think that it is necessary to create an intermediate style in order to be able to change the colors.
For the moment I don't make a copy of an existing style, but that will come
@+