Если El - это элемент, то для получения координат концов, нужно проверить, что элемент является линией, получить линию и прочесть координаты
Dim pl As PolyLine
If El.GraphType = eGraphTypePrimPolyline Or eGraphTypeTypedPolyline Then
Set pl = El.PolyLine
MsgBox "Начало: X = " + pl.GetX(1) + " Y = " + pl.GetY(1)
MsgBox "Конец: X = " + pl.GetX(pl.NumTops) + " Y = " + pl.GetY(pl.NumTops)
End If
Dim pl As PolyLine
If El.GraphType = eGraphTypePrimPolyline Or eGraphTypeTypedPolyline Then
Set pl = El.PolyLine
MsgBox "Начало: X = " + pl.GetX(1) + " Y = " + pl.GetY(1)
MsgBox "Конец: X = " + pl.GetX(pl.NumTops) + " Y = " + pl.GetY(pl.NumTops)
End If