Trim both ends of previously created line by selecting two lines.

(command "line"p1 p2 "")
 (setq[color="red"] line1[/color] (entlast))
(setq ss1 (car (entsel "\nSelect first cutting line:"))) 
(setq ss2 (car (entsel "\nSelect second cutting line:")))
(command "trim" ss1 ss2""":N " [color="red"]line1[/color] ""  )

Please can somebody correct my code.

The line 1 is generated by lisp command.

Manually selecting cutting lines I need trim the outer parts of line1

and keep the middle part.

The use of the TRIM command in AutoLISP can be very temperamental as it is dependent on the position at which the object is selected, and can also be affected by the current zoom.

Since you are only working with lines, it would be far easier & more reliable to calculate the points of intersection using the inters function, and then modify the endpoints of the line you wish to trim.

Lee

OK Thanks, I have never heard about this inters function.

Now I can do more. Thanks again.

You're most welcome - let me know if you need any help implementing the function.

Lee