请大家帮我一下，是关于文本对齐方面的问题

zgyxn

比如我选了几个文本，我要设置它们的acalignmentmiddleleft 中的X坐标的相同(这一步我能解决），而Y坐标不变(这就有麻烦了),我不知道怎样把原来文本的y坐标调用出来
  我本来是这样写的
   dim oldpt as Variant
   dim nept(0 to 2) as double
   oldpt=ent.ent.TextAlignmentPoint
   nept(1)=oldpt(1)
  “ent是已选中的单行文本”
这样做行不通，请大家帮一下我

mccad

所以在改变对齐方式后，应该把插入点重新设回原来的插入点，不然文字就会跑到原点上 去。

以下程序你试试：

2. 
   
3. Sub TextAlignPnt()
   
4. Dim pnt As Variant
   
5. Dim pnt1 As Variant
   
6. Dim pnt2 As Variant
   
7. Dim obj As AcadEntity
   
8. Dim txt As AcadText
   
9. ThisDrawing.Utility.GetEntity obj, pnt1, "Select Text:"
   
10. If obj.ObjectName = "AcDbText" Then
    
11.     Set txt = obj
    
12.     pnt = txt.InsertionPoint
    
13.     Debug.Print "Insertionpoint=" & pnt(0) & " " & pnt(1) & " "; pnt(2)
    
14.     txt.Alignment = acAlignmentMiddleLeft
    
15.     pnt1 = txt.TextAlignmentPoint
    
16.     txt.InsertionPoint = pnt
    
17.     Debug.Print "Alignmentpoint=" & pnt1(0) & " " & pnt1(1) & " "; pnt1(2)
    
18. 
    
19. pnt2 = ThisDrawing.Utility.GetPoint(, "Select New Alignment point:")
    
20.     Debug.Print "Selectpoint=" & pnt2(0) & " " & pnt2(1) & " "; pnt2(2)
    
21.     pnt1(0) = pnt2(0)
    
22.     txt.TextAlignmentPoint = pnt1
    
23.     ThisDrawing.Application.Update
    
24. End If
    
25. End Sub
    

<br /> Sub TextAlignPnt()<br /> Dim pnt As Variant<br /> Dim pnt1 As Variant<br /> Dim pnt2 As Variant<br /> Dim obj As AcadEntity<br /> Dim txt As AcadText<br /> ThisDrawing.Utility.GetEntity obj, pnt1, "Select Text:"<br /> If obj.ObjectName = "AcDbText" Then<br />     Set txt = obj<br />     pnt = txt.InsertionPoint<br />     Debug.Print "Insertionpoint=" & pnt(0) & " " & pnt(1) & " "; pnt(2)<br />     txt.Alignment = acAlignmentMiddleLeft<br />     pnt1 = txt.TextAlignmentPoint<br />     txt.InsertionPoint = pnt<br />     Debug.Print "Alignmentpoint=" & pnt1(0) & " " & pnt1(1) & " "; pnt1(2)<br /> <br /> pnt2 = ThisDrawing.Utility.GetPoint(, "Select New Alignment point:")<br />     Debug.Print "Selectpoint=" & pnt2(0) & " " & pnt2(1) & " "; pnt2(2)<br />     pnt1(0) = pnt2(0)<br />     txt.TextAlignmentPoint = pnt1<br />     ThisDrawing.Application.Update<br /> End If<br /> End Sub<br />

zgyxn

让我先试一下