Topic: Replace StyleName mline

[Lupo76]

Hello,
I need to change the styleName of one or more MLINE entities :

(vlax-put (vlax-ename->vla-object ent1) 'StyleName newstilename)

Unfortunately the styleName property is read-only.
However, in BricsCAD, I can manually change the style of one or more MLINE entities with the properties panel.
Can I do the same thing in Lisp?

[roy_043]

Yes you can!

Code - Auto/Visual Lisp: [Select]

1. ; (MlineStyleSet (car (entsel)) "NewStyle1")
2. (defun MlineStyleSet (enm stl / elst obj stlEnm)
3.   (if
4.     (setq stlEnm
5.       (cdr
6.         (assoc
7.           -1
8.           (dictsearch (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLINESTYLE"))) stl)
9.         )
10.       )
11.     )
12.     (progn
13.       (setq elst (entget enm))
14.       (entmod
15.         (subst
16.           (cons  2 stl)
17.           (assoc 2 elst)
18.           (subst
19.             (cons 340 stlEnm)
20.             (assoc 340 elst)
21.             elst
22.           )
23.         )
24.       )
25.       (setq obj (vlax-ename->vla-object enm))
26.       ; (vla-update obj) ; This doesn't do the trick.
27.       (vla-put-coordinates obj (vla-get-coordinates obj)) ; But this does.
28.     )
29.   )
30. )

Edit: Minor changes to code.

[roy_043]

The code can improved by using the BricsCAD (vle-dictobjname) function:

Code - Auto/Visual Lisp: [Select]

1.     (setq stlEnm
2.       (cdr
3.         (assoc
4.           -1
5.           (dictsearch (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLINESTYLE"))) stl)
6.         )
7.       )
8.     )

Can be replaced by:

Code - Auto/Visual Lisp: [Select]

1.     (setq stlEnm (vle-dictobjname (vle-dictobjname (namedobjdict) "ACAD_MLINESTYLE") stl))

[Lupo76]

Thanks roy 043!
it is just what I wanted!

[ahsattarian]

Yes you can!

Code - Auto/Visual Lisp: [Select]

1. ; (MlineStyleSet (car (entsel)) "NewStyle1")
2. (defun MlineStyleSet (enm stl / elst obj stlEnm)
3.   (if
4.     (setq stlEnm
5.       (cdr
6.         (assoc
7.           -1
8.           (dictsearch (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLINESTYLE"))) stl)
9.         )
10.       )
11.     )
12.     (progn
13.       (setq elst (entget enm))
14.       (entmod
15.         (subst
16.           (cons  2 stl)
17.           (assoc 2 elst)
18.           (subst
19.             (cons 340 stlEnm)
20.             (assoc 340 elst)
21.             elst
22.           )
23.         )
24.       )
25.       (setq obj (vlax-ename->vla-object enm))
26.       ; (vla-update obj) ; This doesn't do the trick.
27.       (vla-put-coordinates obj (vla-get-coordinates obj)) ; But this does.
28.     )
29.   )
30. )

Edit: Minor changes to code.

It's not working for me  !!!