求助，关于转角标注
转角标注Public Sub Align_Draw(aa0, aa1, aa2, bb0, bb1, bb2 As Double, locLongAdept, locWideAdept As Double, angle As Double, textIn As Double)
Dim dimObj As AcadDimAligned
Dim location(0 To 2) As Double
Dim rotAngle As Double
Dim startPoint(0 To 2) As Double
Dim endPoint(0 To 2) As Double
rotAngle = angle
rotAngle = rotAngle * 3.1415926 / 180#
AcadApp.ActiveDocument.ActiveLayer = enn(8)
startPoint(0) = aa0
startPoint(1) = aa1
startPoint(2) = aa2
endPoint(0) = bb0
endPoint(1) = bb1
endPoint(2) = bb2
location(0) = startPoint(0) + locLongAdept
location(1) = startPoint(1) + locWideAdept
location(2) = 0
Set dimObj = AcadApp.ActiveDocument.ModelSpace.AddDimAligned(startPoint, endPoint, location)
dimObj.TextOverride = textIn
dimObj.ArrowheadSize = 3.5
dimObj.TextHeight = 3.5
dimObj.VerticalTextPosition = acAbove
dimObj.TextRotation = rotAngle
dimObj.Update
End Sub
调用函数Align_Draw Point_C(0), Point_C(1), Point_C(2), Point_D(0), Point_D(1), Point_D(2), 15, 0, 90, wt_wide
请问怎样将垂直方向的标注放到标注线上方
我只能将它放在标注线的中间 好好看一下标注的各种属性吧，很多，要慢慢消化 不太好办阿
如果直接在AutuCAD上加标注
根本不要任何修改
但是一用vb，标注字就躺下来了
就是垂直方向的一个普通标注
帮忙帮忙
很重要的
页:
[1]