[求助]关于vla-put-Alignment 的问题

dxqyz · 发表于 2004-4-1 09:44:00

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

[求助]关于vla-put-Alignment 的问题

发表回复

精选推荐