Sub ChangeLineDirection()

     Dim icadDoc As IntelliCAD.Document
     Dim myArc As Arc
     Dim cenPt As IntelliCAD.Point
     Dim myObj As Object
     Dim Pt1 As Point
     Dim myStartPt As Point
     Dim myEndPt As Point
     Dim myLine As IntelliCAD.Line
     Dim myLine2 As IntelliCAD.Line

     Set icadDoc = ActiveDocument
     Set cenPt = Library.CreatePoint(4, 2)
     icadDoc.Utility.GetEntity myLine, Pt1, " Vyber objekt:"
     Set myStartPt = myLine.StartPoint
     Set myEndPt = myLine.EndPoint
     
     Set myLine2 = icadDoc.ModelSpace.AddLine(Library.CreatePoint(myEndPt.x, myEndPt.y, myEndPt.z), Library.CreatePoint(myStartPt.x, myStartPt.y, myStartPt.z))
     myLine2.Layer = myLine.Layer
     myLine2.Linetype = myLine.Linetype
     myLine2.LinetypeScale = myLine.LinetypeScale
     myLine2.Lineweight = myLine.Lineweight
     
     myLine.Delete
     myLine2.Update

End Sub