I have been getting this error for the latest set of drawings I have been working on. IntentOne seems to be failing. What can cause this? I have attached the function in the code block below.
Function Get_DrawingDimView(osheet As Sheet, ViewName As String) As Collection
Dim oReturnColl As New Collection
Dim oDrawDims As DrawingDimensions
Set oDrawDims = osheet.DrawingDimensions
Dim oDrawDimIterator As DrawingDimension
For Each oDrawDimIterator In oDrawDims
Select Case oDrawDimIterator.Type
Case kLinearGeneralDimensionObject
Dim oLinearDim As LinearGeneralDimension
Set oLinearDim = oDrawDimIterator
If oLinearDim.IntentOne.Geometry.Parent.Name = ViewName Then 'Error Line
oReturnColl.Add oDrawDimIterator
End If
Case kRadiusGeneralDimensionObject
Dim oRadiusDim As RadiusGeneralDimension
Set oRadiusDim = oDrawDimIterator
If oRadiusDim.Intent.Geometry.Parent.Name = ViewName Then
oReturnColl.Add oDrawDimIterator
End If
Case kDiameterGeneralDimensionObject
Dim oDiameterDim As DiameterGeneralDimension
Set oDiameterDim = oDrawDimIterator
If oDiameterDim.Intent.Geometry.Parent.Name = ViewName Then
oReturnColl.Add oDrawDimIterator
End If
Case kAngularGeneralDimensionObject
Dim oAngularDim As AngularGeneralDimension
Set oAngularDim = oDrawDimIterator
If oAngularDim.IntentOne.Geometry.Parent.Name = ViewName Then
oReturnColl.Add oDrawDimIterator
End If
Case kOrdinateDimensionObject
Dim oOrdinateDim As OrdinateDimension
Set oOrdinateDim = oDrawDimIterator
If oOrdinateDim.Intent.Geometry.Parent.Name = ViewName Then
oReturnColl.Add oDrawDimIterator
End If
Case Else
'Case is not handled...
End Select
Next
'oDrawDimsForView.Clear
Set Get_DrawingDimView = oReturnColl
End Function