I try this lisp,
I want create TEXT with entmakex, but all TEXT/s near at points.zero (list 0.0 0.0 0.0)
The main problem is
(dfn_enamk_textddi (getstring) (getpoint) 2.0 0.0 "C" 11)
(defun dfn_enamk_textddi(ctextlsh pnt put_ScaleHeight rotation justification epscolor / $rr ldc jna rst jnc cec hei inal ppt)
(setq;|a000|;
rst (read "STR")
hei (getvar "TEXTSIZE")
ina put_ScaleHeight
inal (if (= inal nil) hei (if (numberp inal) (abs (* hei inal)) hei))
ldc (list (cons 0 "TEXT") (cons 100 "AcDbEntity") (cons 100 "AcDbText") (cons 10 pnt) (cons 1 ctextlsh) (cons 40 inal) (cons 7 (getvar "TEXTSTYLE")))) (setq;|a000|;
cec (if (= (type epscolor) (read "INT")) (abs epscolor) cec)
cec (boole 1 cec 511)
cec (if (> cec 256) 256 cec)
jna (if (= (type justification) rst) (substr justification 1 1) nil)) (setq;|a000|;
jnc (if (= jna "C") 1 (if (= jna "R") 2 (if (= jna "A") 3 (if (= jna "M") 4 (if (= jna "F") 5 (if (= jna nil) nil (if (> jna "A") 0 nil)))))))) (setq;|a000|;
ldc (if jnc (append ldc (list (cons 72 jnc))) ldc)) (setq;|a000|;
ldc (append ldc (list (cons 62 cec) (cons 50 rotation)))) (setq;|a000|;
$rr (entmakex ldc))
$rr)