I'm working on some drawing automation, and I need to reference the location of display dimension witness lines and dimension arrows. I've been using ModelDocExtension::AlignDimensions to do the bulk of the sorting of dimensions on drawings, but this method isn't consistent enough for automation. For example, I'm still having trouble with dimension text being placed on top of witness lines, or centered between witness lines that are too close together for the text to fit between, not to mention the hijinks that arclength or radius dimensions get into.
DisplayDimension text location is easy; but I think I might have hit the wall looking for the reference lines. It looks like Dimension::referencepoints might provide some clues, but I think I'm doing something wrong when I try to get each of the reference points. For example, there will be n points returned, and when I attempt to return referencepoints(n), the arraydata all return 0.
Or, am I overlooking a better way to return these values? For the moment, I'm stuck doing this in VBA, but if I need to do this in .net or C++, I'll find a way.
Option Explicit Dim swApp As SldWorks.SldWorks Dim swModel As SldWorks.ModelDoc2 Dim swDrawing As SldWorks.DrawingDoc Dim swView As SldWorks.view Dim swDispDim As SldWorks.DisplayDimension Dim swDim As SldWorks.dimension Dim swPoint As SldWorks.MathPoint Dim swMath As SldWorks.MathUtility Dim refpoints As Variant Dim i As Integer Sub main() Set swApp = Application.SldWorks Set swModel = swApp.ActiveDoc Set swDrawing = swModel Set swView = swDrawing.GetFirstView Set swMath = swApp.GetMathUtility Debug.Print String(255, vbNewLine) Do While Not swView Is Nothing If swView.GetVisible Then Set swDispDim = swView.GetFirstDisplayDimension5 Do While Not swDispDim Is Nothing Set swDim = swDispDim.GetDimension2(0) Debug.Print "Dimension name: " & swDim.GetNameForSelection Debug.Print "Reference points count: " & swDim.GetReferencePointsCount For i = 0 To swDim.GetReferencePointsCount - 1 Set swPoint = swMath.CreatePoint(swDim.referencepoints(i)) ' this doesn't produce any errors, but isn't the right way Debug.Print swPoint.ArrayData(0) & " " & swPoint.ArrayData(1) & " " & swPoint.ArrayData(2) ' these all return as 0 Next i Set swPoint = swMath.CreatePoint(swDim.referencepoints) Debug.Print swPoint.ArrayData(0) & " " & swPoint.ArrayData(1) & " " & swPoint.ArrayData(2) ' this returns nonzero values Set swDispDim = swDispDim.GetNext5 Debug.Print vbNewLine Loop End If Set swView = swView.GetNextView Loop End Sub