斑竹和大虾门 帮帮偶吧

ilovehuizi

怎样使插入的文字，以插入点为中心 排列？ 默认的插入文字是在插入点左侧排列的。


我使用了text1.aligment 属性 但是不知到怎么设置？


斑竹 帮帮偶吧 偶急需！！ 小弟先谢了啊

雪山飞狐_lzh

Sub ts()
Dim pnt(2) As Double
Dim obj As AcadText
Set obj = ThisDrawing.ModelSpace.AddText("Test", pnt, 5)
obj.Alignment = acAlignmentMiddle
obj.TextAlignmentPoint = ThisDrawing.Utility.GetPoint
End Sub

tjdxtm

又学到一点。 lzh741206斑竹，你好强阿，能介绍一下怎么学的吗？ 我觉得用熟很难阿

ilovehuizi

太感谢lzh741206斑竹了，小弟会永远支持你的～～ 小弟再次表示感谢