qwh923820 发表于 2018-2-1 12:33:41

求助,怎么用VBA改标注





想用VBA把 图1 改成 图2,但现在只会把 图1 改成 图3 。怎么修改备注的文字观察方向?
Sub 尺寸标注单个更改()
Dim x As AcadObject
Dim pt3(2) As Double, pt1(2) As Double, pt2(2) As Double
pt1(0) = 0: pt1(1) = 0
pt2(0) = 0: pt2(1) = 500
pt3(0) = (pt1(0) + pt2(0)) / 2 + 120
pt3(1) = pt1(1): pt3(2) = 0
Set x = ThisDrawing.ModelSpace.AddDimAligned(pt1, pt2, pt3)
    x.Color = acYellow
    x.ArrowheadSize = 15
    x.TextHeight = 30
    x.TextSuffix = " 放外面"
    x.TextRotation = 4.712389
    x.VerticalTextPosition = acOutside
    x.TextOutsideAlign = True
End Sub


mikewolf2k 发表于 2018-2-1 14:11:45

试试 DimTxtDirection

qwh923820 发表于 2018-2-2 08:50:15

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

谢谢了,果然可以!!!:D
页: [1]
查看完整版本: 求助,怎么用VBA改标注