Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
vpeuvion
in reply to: Josh_Hudson97

Hi, can you try this :

'Sheet / View References
Dim Sheet_1 = ThisDrawing.Sheets.ItemByName("Sheet:1")
Dim Front_View = Sheet_1.DrawingViews.ItemByName("Front View")
Dim genDims = Sheet_1.DrawingDimensions.GeneralDimensions

'Converts number of diagonals
Dim oDiagInt As Integer = Parameter("1002699.iam.NUMBER_OF_DIAGONALS")
Dim oDiagStr As String = oDiagInt.ToString(oDiagInt)

'oEndDiagLen = Parameter("1002699.iam.END_DIAGONAL")
Dim oEndDiagLen As String = Parameter("1002699.iam.END_DIAGONAL")

'Dim References
Dim Edge1 = Front_View.GetIntent("Vertical Infiller (L)", "Edge1")
Dim DiagCtr1 = Front_View.GetIntent("Standard Diagonal", "Center Point")
Dim DiagCtr = Front_View.GetIntent("C151 0010 09:" & oDiagStr, "Center Point")
Dim Edge0 = Front_View.GetIntent("Vertical Infiller (R)", "Edge0")

'Adds dims
Dim oDiagStart = genDims.AddLinear("Dimension 1", Front_View.SheetPoint(0.5, 1.1), Edge1, DiagCtr1)
Dim oDiagCtrs = genDims.AddLinear("Dimension 2", Front_View.SheetPoint(0.5, 1.1), DiagCtr1, DiagCtr)
Dim oDiagEnd = genDims.AddLinear("Dimension 4", Front_View.SheetPoint(0.5, 1.1), Edge0, DiagCtr)
'*************************************************************************************************************
Dim oDimensionText As DimensionText
oDimensionText = oDiagEnd.NativeEntity.Text
'Local Parameter
oNumDiag = Parameter("1002699.iam.NUMBER_OF_FULL_SPACES")
'change text
oDimensionText.FormattedText = oNumDiag & " AT 432 CTRS = <DimensionValue/>"
'*************************************************************************************************************
'Sorts Dims
iLogicVb.RunExternalRule("Centre & Arrange Dimensions")
iLogicVb.RunExternalRule("Set Dimension Precision to 0 decimal place")

Vincent.