[LISP程序]：怎么实现不了这个程序的文字居中请高手看看

zynyjp

(defun c:v( / pp1 pp2 a s ang b mpt)
   (command "osnap" "end" "mid")
   (command "layer" "s" "0" "")
   (setq pp1 (getpoint "point pt1"))
   (setq pp2 (getpoint "point pt2"))
   (command "pline" pp1 pp2 "")
   (setq s (distance pp1 pp2))
   (setq a (rtos s 2 2 ))
   (setq ang (angle pp1 pp2))
   (setq b (* (/ ang pi) 180))
   (setq hx (osnap pp1 "mid"))
  ;;获取角度
  (if    (> (* (/ ang pi) 180) 180)
    (setq ang (+ ang pi))
  )
  (command "text" "j" "c" hx "0.30" b a)
)
(prin1)
)
(prompt "\n <<length>>在图中直接写出长度")

(prin1)