Delete all linear dimensions from the drawing

[manu.marjanen]

How do i get removed all linear dimensions from the drawing?

I found a few codes online but did not work for me.

[bradeneuropeArthur · Accepted solution]

Try this:

Dim a As Inventor.DrawingDocument = ThisDrawing.Document
Dim b As Inventor.Sheet = a.ActiveSheet

For Each c As Inventor.DrawingDimension In b.DrawingDimensions
	If c.Type = Inventor.ObjectTypeEnum.kLinearGeneralDimensionObject Then
		c.Delete
	End If
	
	Next

[manu.marjanen]

This works, thanks