Dimension Outside

[bradeneuropeArthur]

How to move the dimension outside via coding?

And how to see if a dimension is moved outside via coding?

[JelteDeJong · Accepted solution]

You can give this a go:

Sub Main()

    Dim doc As DrawingDocument = ThisDoc.Document
    Dim sheet As Sheet = doc.ActiveSheet
    Dim dimension As LinearGeneralDimension = 'sheet.DrawingDimensions.GeneralDimensions.Item(1)
        ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingDimensionFilter, "Pick a Linear dimansion")
    
    Dim inside As Boolean = dimensionTextIsInside(dimension)
    MsgBox("Dimension text is inside =  " & inside)

    placeTextOutside(dimension)

End Sub

Public Function dimensionTextIsInside(dimension As LinearGeneralDimension) As Boolean
    Dim textAboveLine As Double = 0.4 'Cm 

    Dim lineSegment As LineSegment2d = dimension.DimensionLine
    Dim p1 As Point2d = lineSegment.StartPoint
    Dim p2 As Point2d = lineSegment.EndPoint
    Dim pText As Point2d = dimension.Text.Origin

    ' pythagoras at work but without taking the root as it is not needed here
    Dim lengthLineSegment As Double = (p2.X - p1.X) ^ 2 + (p2.Y - p1.Y) ^ 2
    lengthLineSegment = lengthLineSegment + textAboveLine ^ 2
    Dim p1ToText As Double = (pText.X - p1.X) ^ 2 + (pText.Y - p1.Y) ^ 2
    Dim p2ToText As Double = (pText.X - p2.X) ^ 2 + (pText.Y - p2.Y) ^ 2

    Return (p1ToText + p2ToText < lengthLineSegment)
End Function

Public Sub placeTextOutside(dimension As LinearGeneralDimension)
    Dim dinstanceOutside As Double = 1 ' Cm
    Dim textAboveLine As Double = 0.4 'Cm

    Dim lineSegment As LineSegment2d = dimension.DimensionLine
    Dim p1 As Point2d = lineSegment.StartPoint
    Dim p2 As Point2d = lineSegment.EndPoint
    Dim angle = Math.Atan((p2.X - p1.X) / (p2.Y - p1.Y))

    Dim diffX As Double = dinstanceOutside * Math.Sin(angle) + textAboveLine * Math.Cos(angle)
    Dim diffY As Double = dinstanceOutside * Math.Cos(angle) + textAboveLine * Math.Sin(angle)

    Dim oTg = ThisApplication.TransientGeometry
    dimension.Text.Origin = oTg.CreatePoint2d(p2.X + diffX, p2.Y + diffY)

    If (dimensionTextIsInside(dimension)) Then
        dimension.Text.Origin = oTg.CreatePoint2d(p2.X - diffX, p2.Y - diffY)
    End If
End Sub

[bradeneuropeArthur]

Thanks @JelteDeJong 

That is really a nice and clever piece of code.

Regards,

[bradeneuropeArthur]

Hi @JelteDeJong 

How would you prevent the dimension not is line with the dimension line?

Seems to have to do with where point 1 and point 2 is.
If it is a positive or a negative angle.

for example is it 90 degrees or -90 degrees or 270 degrees.

I will also have a look but maybe you have a quicker solution for it.

Thanks in advance.

Regards,

[JelteDeJong]

I did have a look but i cant help you....

[bradeneuropeArthur]

Thanks anyway