How to add text in front of the dimension

[manu.marjanen]

How to edit this code, so that i can get text in front of the dimension?

Dim Sheet_1 = ThisDrawing.Sheets.ItemByName("Sheet:1")
Dim FRONT = Sheet_1.DrawingViews.ItemByName("FRONT")
Dim Work_Point1 = FRONT.GetIntent("Work Point1")
Dim Work_Point2 = FRONT.GetIntent("Work Point2")
Dim genDims = Sheet_1.DrawingDimensions.GeneralDimensions

	Dim linDim1 = genDims.AddLinear("Dimension 1", FRONT.SheetPoint(0.5, 1.2), Work_Point1, Work_Point2)

[yan.gauthier]

Hi,

either Text or FormattedText property. One corresponds to when you double the dimension. the other when you right click the dimension and select edit text

linDim1.Text.FormattedText

[JelteDeJong]

try this:

Dim Sheet_1 = ThisDrawing.Sheets.ItemByName("Sheet:1")
Dim FRONT = Sheet_1.DrawingViews.ItemByName("FRONT")
Dim Work_Point1 = FRONT.GetIntent("Work Point1")
Dim Work_Point2 = FRONT.GetIntent("Work Point2")
Dim genDims = Sheet_1.DrawingDimensions.GeneralDimensions
Dim linDim1 = genDims.AddLinear("Dimension 1", FRONT.SheetPoint(0.5, 1.2), Work_Point1, Work_Point2)
linDim1.Text.FormattedText = "Before dimension <DimensionValue/> after dimension"

[manu.marjanen]

Give an error message. Error on line 7:

[JelteDeJong · Accepted solution]

Dim Sheet_1 = ThisDrawing.Sheets.ItemByName("Sheet:1")
Dim FRONT = Sheet_1.DrawingViews.ItemByName("FRONT")
Dim Work_Point1 = FRONT.GetIntent("Work Point1")
Dim Work_Point2 = FRONT.GetIntent("Work Point2")
Dim genDims = Sheet_1.DrawingDimensions.GeneralDimensions
Dim linDim1 = genDims.AddLinear("Dimension 1", FRONT.SheetPoint(0.5, 1.2), Work_Point1, Work_Point2)
linDim1.NativeEntity.Text.FormattedText = "Before dimension <DimensionValue/> after dimension"

[manu.marjanen]

This works, thanks

[myronHBBUW]

@JelteDeJong,

Do you also know how to get the arrowheads outside?

Thanks