求助，怎么用VBA改标注

qwh923820

想用VBA把 图1 改成 图2，但现在只会把 图1 改成 图3 。怎么修改备注的文字观察方向？

2. Sub 尺寸标注单个更改()
   
3. Dim x As AcadObject
   
4. Dim pt3(2) As Double, pt1(2) As Double, pt2(2) As Double
   
5. pt1(0) = 0: pt1(1) = 0
   
6. pt2(0) = 0: pt2(1) = 500
   
7. pt3(0) = (pt1(0) + pt2(0)) / 2 + 120
   
8. pt3(1) = pt1(1): pt3(2) = 0
   
9. Set x = ThisDrawing.ModelSpace.AddDimAligned(pt1, pt2, pt3)
   
10.     x.Color = acYellow
    
11.     x.ArrowheadSize = 15
    
12.     x.TextHeight = 30
    
13.     x.TextSuffix = " 放外面"
    
14.     x.TextRotation = 4.712389
    
15.     x.VerticalTextPosition = acOutside
    
16.     x.TextOutsideAlign = True
    
17. End Sub
    

Sub 尺寸标注单个更改()<br /> Dim x As AcadObject<br /> Dim pt3(2) As Double, pt1(2) As Double, pt2(2) As Double<br /> pt1(0) = 0: pt1(1) = 0<br /> pt2(0) = 0: pt2(1) = 500<br /> pt3(0) = (pt1(0) + pt2(0)) / 2 + 120<br /> pt3(1) = pt1(1): pt3(2) = 0<br /> Set x = ThisDrawing.ModelSpace.AddDimAligned(pt1, pt2, pt3)<br />     x.Color = acYellow<br />     x.ArrowheadSize = 15<br />     x.TextHeight = 30<br />     x.TextSuffix = " 放外面"<br />     x.TextRotation = 4.712389<br />     x.VerticalTextPosition = acOutside<br />     x.TextOutsideAlign = True<br /> End Sub<br />

mikewolf2k

试试 DimTxtDirection

qwh923820

mikewolf2k 发表于 2018-2-1 14:11
试试 DimTxtDirection

谢谢了，果然可以！！！:D