I am trying to create MTEXT using “entmake” in my lisp routine. The routine is list below, please look at this routine and please point me in the right direction.
Thank you
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 "\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 "ACDDMTEXT")
(cons 7 "LEROY")
(cons 8 "E_TEXT_L080")
(cons 71 2)
(cons 72 5)
(cons 73 1)
(cons 10 PT1)
(cons 50 ANG)
(cons 41 19.35)
(cons 40 (* (getvar "dimscale") 0.08))
(cons 1 (princ TAG))
)
)
(setvar "osmode" 0)
(setvar "cmdecho" 1)
(redraw)
(princ)
)
[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]