11-11-2020
07:31 AM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
11-11-2020
07:31 AM
I am struggling to capture each ordinate dimension set. I can get it to work if I set the item number manually. Can someone help me automate it so it sets the item number for the sets that contain ordinate dimensions sets? or if there is a better method please teach me.
Dim ss As SelectSet
Set ss = ThisApplication.ActiveDocument.SelectSet
Dim oDim As DrawingDimension
Dim ordDim As OrdinateDimension
Dim ordDim2 As OrdinateDimension
i=1
Set oOrdinateDims = ss.item(?????).OrdinateDimensionSet
For Each ordDim In ss
For Each ordDim2 In ordDim.OrdinateDimensionSet.Members
If ordDim2.Text.Text <> 0 Then
If ordDim2.IsInspectionDimension = True Then
Else
Call ordDim2.SetInspectionDimensionData(kRoundedEndsInspectionBorder)
End If
Else
End If
Next
i = i + 1
Next
Solved! Go to Solution.