Помогите разобраться с созданием выноски на размере чертежа. Нашел где включается выноска, но дальше продвинуться не могу. Не получается отобразить выноску и указать ее положение.
Sub RidNote()
Dim oDrawDoc As DrawingDocument
Set oDrawDoc = ThisApplication.ActiveDocument
Dim oActiveSheet As Sheet
Set oActiveSheet = oDrawDoc.ActiveSheet
Dim oTG As TransientGeometry
Set oTG = ThisApplication.TransientGeometry
Dim oDCurve1 As DrawingCurve
Dim oDCurve2 As DrawingCurve
Dim oSegment1 As DrawingCurveSegment
Dim oSegment2 As DrawingCurveSegment
Dim oIntent1 As GeometryIntent
Dim oIntent2 As GeometryIntent
Set oSegment1 = oDrawDoc.SelectSet.Item(1)
Set oDCurve1 = oSegment1.Parent
Set oSegment2 = oDrawDoc.SelectSet.Item(2)
Set oDCurve2 = oSegment2.Parent
Set oIntent1 = oActiveSheet.CreateGeometryIntent(oDCurve1, oSegment1)
Set oIntent2 = oActiveSheet.CreateGeometryIntent(oDCurve2, oSegment2)
Dim oAngl As AngularGeneralDimension
Set oAngl = oActiveSheet.DrawingDimensions.GeneralDimensions.AddAngular(oTG.CreatePoint2d(2, 13), oIntent1, oIntent2)
oAngl.ShowLeader = True
'what to do next ????
End Sub
Перед запуском кода необходимо выбрать две непараллельные прямые.
