文字右对齐，用entmake实现总是失败

wdb

用entmake写文字，要求右对齐，结果总是失败。请问高手， 到底应该控制哪个参数？ (defun c:try(/ pt1 pt2 ss eng )
(setq pt1 (getpoint "选择一个参考字："))
(setq pt2 (getpoint pt1 "新字的插入位置："))
(setq ss (ssget pt1))
(setq eng (entget (ssname ss 0)))
(setq eng (subst (cons 10 pt2) (assoc 10 eng) eng))
(setq eng (subst (cons 72 2) (assoc 72 eng) eng))
(entmake eng)
(princ)
)

meflying

你用 (defun c:try(/ pt1 pt2 ss eng )
(setq eng (entsel "选择一个参考字："))
(setq pt2 (getpoint (cadr eng) "新字的插入位置："))
(setq eng (entget (car eng)))
(setq eng (subst (cons 11 pt2) (assoc 11 eng) eng))
(setq eng (subst (cons 72 2) (assoc 72 eng) eng))
(entmake eng)
(princ)
)

wdb

谢谢