Text Style Match Orientation

[Hopeless Turtle]

I'm trying to make an annotative text style that matches orientation. I've got this so far:

(entmakex '(
  (0 . "STYLE")
  (100 . "AcDbSymbolTableRecord")
  (100 . "AcDbTextStyleTableRecord")
  (2 . "My TEXT3")
  (70 . 0)
  (40 . 0.09375)
  (41 . 1.0)
  (50 . 0.0)
  (71 . 0)
  (42 . 0.0)
  (3 . "romans.shx")
  (4 . "")
  (-3
    ("AcadAnnotative"
      (1000 . "AnnotativeData")
      (1002 . "{")
      (1070 . 1)
      (1070 . 1)
      (1002 . "}")
    )
  )
))

The last bit obviously turns on annotative but I can't find where I might enable the orientation match. Is there more xdata I can add to enable this?

[Hopeless Turtle]

With a lot of persistence and luck I figured out what I was looking for. Here's the solution:

(entmakex '(
  (0 . "STYLE")
  (100 . "AcDbSymbolTableRecord")
  (100 . "AcDbTextStyleTableRecord")
  (2 . "My TEXT")
  (70 . 0)
  (40 . 0.09375)
  (41 . 1.0)
  (50 . 0.0)
  (71 . 0)
  (42 . 0.0)
  (3 . "romans.shx")
  (4 . "")
  (-3
    ("AcadAnnotative" ;; This block makes the style annotative
      (1000 . "AnnotativeData")
      (1002 . "{")
      (1070 . 1)
      (1070 . 1) ;; 0 is off, 1 is on
      (1002 . "}")
    ) ;; end of the annotative block
    ("AcadAnnoPO";; And these 3 lines turn on the text orientation match
      (1070 . 1)
    ) ;; end of orientation block
  )
))

 

[Steven P]

Nice, I might copy this sometime!