hello sorry but I will use a translator because not English .
I'm starting with Lisp doing simple things to practice but I have a problem with this routine that I can not get it to work .
I want to do is to draw a line , this line will automatically extend to the nearest point .
the problem is that when using two ( getpoint ) can not use Ortho to go straight , plus the line must go from right to left to run the " extend" command or from the top down
Try using the " line " command without giving values but at the end of the command no longer continues to extend
This is the routine is very simple please do not laugh xD
(command "pline" (getpoint) (getpoint) "")
(setq s1 (ssget "l"))
(command "extend" "" s1 "")
I do not put image because it is something very simple
It is to use the " line " command and " extend" at the same time