[求助]：再提文字对正的老问题，一直没解决。

dxqyz

(defun fun ( / )
(setq mspace (vla-get-modelspace docobj))
(setq blk (vla-add (vla-get-Blocks docobj) (vlax-3d-point '(0 0 0)) "blk"))
(vla-addline blk (vlax-3d-point '(10 10 0)) (vlax-3d-point '(66 10 0)))
(setq textobj (vla-addtext blk "HHHHHHHH" (vlax-3d-point '(10 10 0)) 10))
(vla-put-Alignment textobj acAlignmentMiddleCenter)
(vla-put-TextAlignmentPoint textobj (vlax-3d-point '(10 10 0)))
(vla-InsertBlock mspace (vlax-3d-point '(0 0 0)) "blk" 1 1 1 0)
)
(setq docobj (vla-get-ActiveDocument (vlax-get-acad-object)))
(fun)
(setq docobj (vla-add (vla-get-Documents (vlax-get-acad-object))))
(fun)
执行上面代码后，对比当前文档和新建的文档会发现，
同样的代码在两个文档中的执行结果是不相同的。
如何解决这个问题呢？

lsjjm

你的目的是什么? 怎么个对正?

dxqyz

执行上面代码后，当前文档和新建的文档中的结果是不相同的。当前文中的文字按照设定的对齐方式MiddleCenter对齐了，而新建文档中的文字却没有对齐，就象没有设定一样，只有把文字所在的块炸开后，才会对齐过去。
怎样才能使新建文档中的文字在块中实现对齐呢？求助，谢谢。