One thing I did notice, after attempting to test my theory above, is that it will throw an 'Unspecified error' when attempting to get/access the OrdinateDimension.Intent property of the one dimension who's source Intent has been suppressed. So, now I'm thinking that we can just check for that property, using a Try...Catch block to 'handle' the potential error, we can figure out which ones most likely aren't going to be visible. It doesn't seem to trigger the 'Attached' property, so that's not an option, and as you've seen, we can still get its display value, so that's not an option. And as I suspected before, the Intent.Geometry is definitely not a reliable way to check it either, because every thing I had an OrdinateDimension attached to, even if I clicked on drawing view geometry when I placed them, their Intent.IntentType was not kGeometryIntent, so I was not able to check the Visible property of any geometry.
It seems like a rather unique situation with OrdinateDimensions / OrdinateDimensionSets that, as long as it wasn't the Origin dimension of the set, it doesn't cause any visible problems in the drawing when one of the things being dimensioned gets suppressed.
P.S.: Below is the fairly simple iLogic code I used for testing, after I cleaned it up a bit, so it might be used as a test in a loop.
Sub Main
oDDoc = ThisDrawing.Document
oSheet = oDDoc.ActiveSheet
For Each oDD As DrawingDimension In oSheet.DrawingDimensions
If Not IntentProblem(oDD) Then
MsgBox(oDD.Text.Text, , "")
Else
MsgBox("IntentProblem = True")
End If
Next
End Sub
Function IntentProblem(oDim As DrawingDimension) As Boolean
If TypeOf oDim Is OrdinateDimension Then
Dim oOD As OrdinateDimension = oDim
Dim oIntent As GeometryIntent = Nothing
Try
oIntent = oOD.Intent
Return False
Catch oEx As Exception
'MsgBox("Error trying to get 'Intent' of OrdinateDimension." & vbCrLf & _
'oEx.Message & vbCrLf & oEx.StackTrace, , "")
Return True
End Try
End If
Return False
End Function
Wesley Crihfield
(Not an Autodesk Employee)
