sequence of numbers and letters

[hevgee]

Hello

I have attached a lsp that will put numbers or letters in a given sequence in 4 different
directions, it's idea for car park numbering, grid lines and anything else you can think of
however it does not grab your text style font automatically and set them to the drawing scale.
Can anyone help put the code into this program. Please

many thanks for your help

Hevgee

[T.Willey]

If you want to to grab the text style, and change the height of the text style, and set it current use

(if (setq StyEnt (tblobjname "style" "YourNameHere"))
 (progn
  (entmod
   (subst
    (cons 40 (* (/ 3 32.0) (getvar "dimscale")))
    (assoc 40 (entget StyEnt))
    (entget StyEnt)
   )
  )
  (setvar "textstyle" "YourNameHere")
 )
 (prompt "\n Text style does not exist in drawing!!")
)

[hevgee]

Thanks Tim for getting back to me and putting up the code
I have copied this into the program and it works
I just wonder how it finds Arial.TLL when all I use is just Arial,
is there anyway of nailing down the correct font.

many thanks
Hevgee

[T.Willey]

You're welcome.

As far as the fonts go. I don't use true type fonts, and I'm not sure what style of font is .tll, but I would think that if you supplied the full path to the font you wanted, then it would use that font. Maybe someone with more experience with fonts will chime and let us know.