Create a text style by lisp

[wimal]

Can I create a text style named MY TEXTS and load font type ARIAL by lisp.

[asos2000]

  (command "style" "TextStyle" "swisscl.ttf" "A" "Y" "N" "2.5" "1" "0" "n" "n")

[Stefan BMR]

Entmake way. First, a classic style, second for annotative Text style.

(entmakex
'(
   (0 . "STYLE")
   (100 . "AcDbSymbolTableRecord")
   (100 . "AcDbTextStyleTableRecord")
   (2 . "My TEXT")
   (70 . 0)
   (40 . 0.0);<- text height not defined
   (41 . 1.0)
   (50 . 0.0)
   (71 . 0)
   (42 . 2.0)
   (3 . "arial.ttf")
   (4 . "")
 )
)

(entmakex
'(
   (0 . "STYLE")
   (100 . "AcDbSymbolTableRecord")
   (100 . "AcDbTextStyleTableRecord")
   (2 . "My TEXT")
   (70 . 0)
   (40 . 2.2);;<- text height
   (41 . 1.0)
   (50 . 0.0)
   (71 . 0)
   (42 . 2.2)
   (3 . "arial.ttf")
   (4 . "")
   (-3
     ("AcadAnnotative"
       (1000 . "AnnotativeData")
       (1002 . "{")
       (1070 . 1)
       (1070 . 1)
       (1002 . "}")
     )
   )
 )
)

[wimal]

Thanks for the both of you