It is possible to rotate the dimension text orientation using the Custom Text Position options in the Leaders tab of the Dimensions Property Manager.
Private Sub llll()
Dim SwApp As SldWorks.SldWorks, SwModel As ModelDoc2, SwDraw As DrawingDoc
Set SwApp = Application.SldWorks
Set SwModel = SwApp.ActiveDoc
Dim SwSelMgr As SelectionMgr
Set SwSelMgr = SwModel.SelectionManager
Set SwDraw = SwModel
Dim SwDispDim As DisplayDimension, SwDim As Dimension
Set SwDispDim = SwSelMgr.GetSelectedObject5(1)
Debug.Print SwDispDim.GetDimension.FullName
With SwDispDim
.ShowParenthesis = True
' text orientation using the Custom Text Position options ????????
End With
''
Dim SwAnn As Annotation
Set SwAnn = SwDispDim.GetAnnotation
With SwAnn
'' text orientation using the Custom Text Position options ???????
End With
End Sub
Solidworks API: How to change Dimension text - DASSAULT: SOLIDWORKS 3D Design - Eng-Tips