well this is what i ended up with still thinking theres a better way
If MyDim.XData <> Nothing Then
Dim NextLoop As Boolean = False
For Each MyTypedValue As TypedValue In MyDim.XData
If MyTypedValue.TypeCode = 1070 Then
If MyTypedValue.Value = 144 Then
NextLoop = True
End If
ElseIf NextLoop = True And MyTypedValue.TypeCode = 1040 Then
If MyDim.Dimlfac = MyTypedValue.Value Then
dDLF = MyTypedValue.Value
Exit For
End If
End If
Next
End If
I still have no idea what you are trying to accomplish, but looking at that I guess your wanting to know if it is "overriden".
You might want to be careful with that approach because as you mentioned changing the dimlfac from the command line it will show a override in list command,
but if you select it and in properties palette change the "Dim Scale Linear" to the same as one defined in style and list it again it will still show as overriden with value matching the styles, if you use a grip edit then list it the overrides will not show up in list.
Depending on when you checked the value your code would
-assign dDLF to overriden value
--assign dDLF to same value as defined in style
---would never reach line to assign dDLF
So maybe the safest bet would be to check if the Dimension.dimlfac equals its DimStyleTableRecord.Dimlfac