Assigning Parameters To Dimensions

[Anonymous]

Hi All,
I want to select all the dimensions and assign unique names or parameters to them in Autocad Drawing..
For Rotated dimensions(D1=--,D2=--,D3=--..........)
Angular dimensions(A1--,A2--.........)
Radial Dimensions(R1=--,R2=--........)
This goes on for all kind of Dimensions
Here is the code what i have designed but the problem is that
i assigns same name to all the dimensions

Dim sset As AcadSelectionSet
Dim acdim As AcadDimension
Dim angle As AcadDimAngular
Dim radius As AcadDimRadial
Dim rot As AcadDimRotated
Public FilterType(1) As Short
Public FilterData(1) As Object

Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click

sset = acadDoc.SelectionSets.Add("s2")
sset = acadDoc.SelectionSets.Add("Name")
FilterType(0) = 0
FilterData(0) = "DIMENSION"
FilterType(1) = 67
FilterData(1) = "0"

sset.Select(AcSelect.acSelectionSetAll, , , FilterType, FilterData)
j = 1
For Each acdim In sset
acdim.TextOverride = "d" & j & "=<>"
' 'radius.TextOverride = "rad" & "=<>"
' 'angle.TextOverride = "ang" & "<>"
j = j + 1
acdim.Update()

Next acdim