[讨论]：关于VBA中的文字对齐

efan2000

在VBA中，如果重新对文本对象设置对齐方式，那么当没有重新指定对齐点时，这个对齐点将会自动设置为原点坐标。

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_AddText()
   
5.     ' 这个例子展示了在模型空间创建单行文字对象。
   
6. 
   
7.     Dim textObj As AcadText
   
8.     Dim textString As String
   
9.     Dim insertionPoint(0 To 2) As Double
   
10.     Dim height As Double
    
11.    
    
12.     ' 定义单行文字对象
    
13.     textString = "Hello, World."
    
14.     insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    
15.     height = 0.5
    
16.    
    
17.     ' 在模型空间创建单行文字对象
    
18.     Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    
19.    
    
20.     ' 设置单行文字对象的对齐方式
    
21.    
    
22.     textObj.Alignment = acAlignmentMiddleCenter
    
23.    
    
24. End Sub
    
25.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_AddText()<br />     ' 这个例子展示了在模型空间创建单行文字对象。<br /> <br />     Dim textObj As AcadText<br />     Dim textString As String<br />     Dim insertionPoint(0 To 2) As Double<br />     Dim height As Double<br />     <br />     ' 定义单行文字对象<br />     textString = "Hello, World."<br />     insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0<br />     height = 0.5<br />     <br />     ' 在模型空间创建单行文字对象<br />     Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)<br />     <br />     ' 设置单行文字对象的对齐方式<br />     <br />     textObj.Alignment = acAlignmentMiddleCenter<br />     <br /> End Sub<br />   [/FONT]<br />

解决方法：变更文本对象的对齐方式后，重新设置文本对象的对齐点。

2. 
   
3.   [FONT=courier new]
   
4. Sub Example_AddText()
   
5.     ' 这个例子展示了在模型空间创建单行文字对象。
   
6. 
   
7.     Dim textObj As AcadText
   
8.     Dim textString As String
   
9.     Dim insertionPoint(0 To 2) As Double
   
10.     Dim height As Double
    
11.    
    
12.     ' 定义单行文字对象
    
13.     textString = "Hello, World."
    
14.     insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0
    
15.     height = 0.5
    
16.    
    
17.     ' 在模型空间创建单行文字对象
    
18.     Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)
    
19.    
    
20.     ' 设置单行文字对象的对齐方式
    
21.    
    
22.     textObj.Alignment = acAlignmentMiddleCenter
    
23.    
    
24.     '重新设置单行文字对象的对齐点
    
25.     textObj.TextAlignmentPoint = insertionPoint
    
26. End Sub
    
27.   [/FONT]
    

<br />   [FONT=courier new]<br /> Sub Example_AddText()<br />     ' 这个例子展示了在模型空间创建单行文字对象。<br /> <br />     Dim textObj As AcadText<br />     Dim textString As String<br />     Dim insertionPoint(0 To 2) As Double<br />     Dim height As Double<br />     <br />     ' 定义单行文字对象<br />     textString = "Hello, World."<br />     insertionPoint(0) = 2: insertionPoint(1) = 2: insertionPoint(2) = 0<br />     height = 0.5<br />     <br />     ' 在模型空间创建单行文字对象<br />     Set textObj = ThisDrawing.ModelSpace.AddText(textString, insertionPoint, height)<br />     <br />     ' 设置单行文字对象的对齐方式<br />     <br />     textObj.Alignment = acAlignmentMiddleCenter<br />     <br />     '重新设置单行文字对象的对齐点<br />     textObj.TextAlignmentPoint = insertionPoint<br /> End Sub<br />   [/FONT]<br />