Hi jjacoby
Try this one:
Code:
(defun C:PARKING ()
(setq |CMDECHO| (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setvar "osmode" 512)
(setq PT1 (getpoint "Select mid point of text: "))
(setq PT2 (getpoint pt1 "\nSelect direction of text: "))
;;;Text data
(setq TAG (strcat "ASPHALT PARKING LOT" ))
(setq ang (angle PT1 PT2))
;;;TEXT TO PRINT ON SCREEN
(entmake (list
(cons 0 "MTEXT")
(cons 100 "AcDbEntity")
(cons 100 "AcDbMText")
(cons 7 "LEROY")
(cons 8 "E_TEXT_L080")
(cons 71 5)
(cons 72 5)
(cons 73 1)
(cons 10 PT1)
(cons 11 (list 1.0 0.0 0.0))
(cons 50 ANG)
(cons 41 19.35)
(cons 40 (* 19.35 (strlen TAG)))
(cons 44 1.0)
(cons 1 TAG)
)
)
(setvar "osmode" 0)
(setvar "cmdecho" 1)
(redraw)
(princ)
)
Thank you
f.