Horizontal fraction

[Bane]

Hello,

How to get horizontal fraction instead of diagonal 25/3 using the Lisp?

This is little part of my code:

(vl-cmdf "-MTEXT" point "j" "tl" "r" "0" "W" 0 "25/3" "")

I need this:

25
--
3

Any solutions?

[BIGAL]

I think you can do it maybe by using a script
eg

_mtext
0,0
H
2.5
100,100
alan
is
good

you can call scripts from within lisp but you can not renter

[Bane]

Well, thank you, but it is not about writing text in new lines. I want text written as 1/3 to be shown as fraction.

There is an option in text formating window named "Stack" (in ACad Map 2009). I want to use it in lisp code.

Any suggestion?

I think you can do it maybe by using a script
eg

_mtext
0,0
H
2.5
100,100
alan
is
good

you can call scripts from within lisp but you can not renter

[VovKa]

(and (setq TextHeight (getdist "\nSpecify text height: "))
     (setq Point (getpoint "\nSpecify insertion point: "))
     (setq Num "1/3")
     (entmake (list (cons 0 "MTEXT")
		    (cons 100 "AcDbEntity")
		    (cons 100 "AcDbMText")
		    (cons 1 (strcat "\\A1;{\\S" Num ";}"))
		    (cons 10 Point)
		    (cons 40 TextHeight)
		    (cons 50 0.0)
		    (cons 71 5)
		    (cons 72 5)
	      )
     )
)

[Bane]

That's it! Really good job VovKa.
Thank you very much!

(and (setq TextHeight (getdist "\nSpecify text height: "))
     (setq Point (getpoint "\nSpecify insertion point: "))
     (setq Num "1/3")
     (entmake (list (cons 0 "MTEXT")
            (cons 100 "AcDbEntity")
            (cons 100 "AcDbMText")
            (cons 1 (strcat "\\A1;{\\S" Num ";}"))
            (cons 10 Point)
            (cons 40 TextHeight)
            (cons 50 0.0)
            (cons 71 5)
            (cons 72 5)
          )
     )
)