求帮忙把修改表格文字的对齐点

lostbalance

以下是明经上分享的一个源码，作用是表格内的文字居中或左中对齐。
（地址http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85506&page=1#pid453110）
因为不是免费共享的，我就不贴完整的源码了。
程序本身没有bug，但在实际使用中，发现左中对中太靠边了，就看了下程序。因为本人接触lisp没多久，所以有什么说的不对的望大家见谅。
程序在处理时，把文字作为vla对象处理。但我发现vla对象的左中定位点和文字的左中插入点不是同一位置。我试着把move中的(vlax-3d-point (getmlp e)) 改为文字本身的左中插入点，但不知道是函数写错了，还是其他的原因，没有成功。
希望有人帮忙修改下。
另外，还有个问题，repeat函数后面的(setq m……请稍候……"))，这一段函数删了之后，就报错，这是为什么


；；主程序
(defun C:zdq()
  (setq sSet (ssget '((0 . "*TEXT"))))
  (repeat (setq m (sslength sSet))
    (princ (strcat "\n已完成" (itoa (1+ n)) "/" (itoa m) "，请稍候……"))
    (setq ename (ssname sSet n))
    (setq e (vlax-ename->vla-object ename))
    (vl-cmdf "boundary" "a" "o" "p" "" (getmcp e) "")
    (setq box (entlast))                  
    (vlax-put-property e 'Alignment acAlignmentMiddleLeft)
    (vla-move e (vlax-3d-point (getmlp e)) (vlax-3d-point (getmlp box)))
    (entdel box)
    (setq n (1+ n))
  );end repeat
;;子程序
;;功能:通获取对象左中点
(defun getmlp (e / p1 p2 x1 y1 z1 x2 y2 z2 plist)
  (if (= (type e) 'ename)
    (setq e (vlax-ename->vla-object e))
  )
  (vla-getboundingbox e 'p1 'p2)
  (setq p1 (vlax-safearray->list p1))
  (setq p2 (vlax-safearray->list p2))
  (setq x1 (car p1)
        y1 (cadr p1)
        z1 (caddr p1)
  )
  (setq x2 (car p2)
        y2 (cadr p2)
        z2 (caddr p2)
  )
  (setq plist (list x1 (/ (+ y1 y2) 2.0) (/ (+ z1 z2) 2.0)))
)
;;子程序getmcp

ZZXXQQ

进入循环前要对循环变量赋初值(setq n 0)

lostbalance

ZZXXQQ 发表于 2013-8-19 07:51
进入循环前要对循环变量赋初值(setq n 0)

感谢版主回复
赋值是附过了，因为版权（？）的问题，所以我把相关的代码贴出来，但还有些辅助的代码（比如文本提示之类的）就没贴，赋值这条漏贴了。
程序本身是可以运行的，没有bug。
个人感觉，文字作为vla对象是，定位点会变化。比如下图中，文字本身的定位点是蓝点。但用上述程序左对齐的时候，效果会和图中一样，是x本身的最左边点定位到线上。
所以，如何修改程序，才能使程序根据文字本身的定位点来定位。

gqh123456

学习学习！