Creating New Text Style

Can someone tell me why I get an error in this program when I run it.

The error says " bad DXF group: (73 . 3.0) If I null 73 it shows the same error for 72.

I am trying to create a text style which is justified CENTER/TOP

(defun c:Delta2 ()
(if (not (tblsearch "STYLE" "Delta2")) 
(entmake '((0 . "STYLE") 
           (100 . "AcDbSymbolTableRecord") 
           (100 . "AcDbTextStyleTableRecord") 
           (2 . "Delta2") ;STYLE NAME
           (3 . "Calibri.ttf") ;FONT NAME 
           (70 . 0)
           (73 . 3.0) ;VERTICAL JUSTIFICATION
           (72 . 1.0) ;HORIZONTAL JUSTIFICATION                         
           (40 . 0.0) 
           (41 . 1.0) 
           (50 . 0.0) ;TEXT ROTATION

         ) 
      )
  )
) 

Regards

Tony

Unless it has changed over the years, STYLE table definitions do not have groups 72 & 73. TEXT entities do, not the table. -David

Thanks David for the advice.

I hadn't realized that. I'll have to try a different approach in regards to text justification.

I was thinking that I could make a text style with a specific justification.

Here's one I use for ATTDEF and ATTRIBs. change the group 74 to 73 for TEXT entities. i know nothing about MTEXTs

HTH -David

FWIW, here is a reference detailing the available DXF group codes for a STYLE entity:

http://exchange.autodesk.com/autocad/enu/online-help/browse#WS1a9193826455f5ff18cb41610ec0a2e719-7a4d.htm