How to delete dimension in drawing with AIP ?

Help me.

Traverse dimension → delete dimension.

Traverse dimension code is:

Sub oDim()

Dim SwApp As SldWorks.SldWorks, SwPart As ModelDoc2, SwDraw As DrawingDoc

Dim SwView As view, DispDim As DisplayDimension, SwDim As Dimension

Set SwApp = Application.SldWorks

Set SwDraw = SwApp.ActiveDoc

Set SwView = SwDraw.GetFirstView

Do While Not SwView Is Nothing

'If SwView.GetName2 Like "*RF1" Then

With SwView

nn = .GetDimensionCount

Set DispDim = .GetFirstDisplayDimension

Do While Not DispDim Is Nothing

Set SwDim = DispDim.GetDimension

Debug.Print SwDim.FullName

Set DispDim = DispDim.GetNext2

Loop

End With

'End If

Set SwView = SwView.GetNextView

Loop

End Sub

Run Code Result