Or in lisp, perhaps by this way. Seem to work's.
Exemple for an another definition : transport
Code:
((lambda ( / f_lin doc loaded)
(if (not (tblsearch "STYLE" "TRANSPORT"))
(entmakex
'(
(0 . "STYLE")
(5 . "40")
(100 . "AcDbSymbolTableRecord")
(100 . "AcDbTextStyleTableRecord")
(2 . "TRANSPORT")
(70 . 0)
(40 . 0.0)
(41 . 1.0)
(50 . 0.0)
(71 . 0)
(42 . 1.0)
(3 . "ARIAL.TTF")
(4 . "")
)
)
)
(if (not (findfile "transport.lin"))
(progn
(setq f_lin (open (strcat (getvar "ROAMABLEROOTPREFIX") "support\\transport.lin") "w"))
(write-line "*transport,alterné" f_lin)
(write-line "A,0,[\"\\U+25A0\",transport,S=1,R=0,X=-0.595,Y=-0.3215],-0.6435,[\"\\U+25A1\",transport,S=1,R=0,X=-0.595,Y=-0.3215],-0.6435" f_lin)
(close f_lin)
)
)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(if
(and
(not
(vlax-for item (vla-get-linetypes doc)
(if (= (strcase (vla-get-name item)) (strcase "transport")) T)
)
)
(vl-catch-all-error-p
(vl-catch-all-apply
'vla-load
(list (vla-get-Linetypes doc) "transport" "transport.lin")
)
)
)
nil
T
)
(princ "\nCréation de Type de Ligne \"transport\" effectué!")
(prin1)
))