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