01-09-2023
03:54 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
01-09-2023
03:54 AM
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.