Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
inulobo
695 Views, 2 Replies

Working with multiple Ordinate Dimension Sets

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

 

 

Tags (2)
Labels (2)