Printable View
I have some vertical lines (more that 2) and i would would like the code to pick the 2 outer lines and draw a line between them ignoring the lines in the middle. Imagine vertical lines and you want to connect the most outer lines with a horizontal line making a U.
The code will seach the file for lines on the layer c-temp and then draw another line connecting the two outer horizontal lines.
Thanks
How are the lines being created? Are they existing in a drawing and you want to select them and perform this function on them? Or are they being drawn by your LISP routine?
Exclusively Vertical lines
EDITED: Confuse pBe :DCode:(defun c:MakeU ( / farfrompoints pts ss e sp ep FptNpt)
(defun farfrompoints (ptlst / p B e pts)
(foreach
pt ptlst
(setq pts ptlst)
(while (setq p (car pts))
(if (> (setq B (distance pt p))
(caddr e))
(setq e (list p pt B)))
(setq pts (cdr pts)))
)
(list (cadr e) (Car e))
)
(if (setq pts nil ss (ssget "_X" '((0 . "LINE")( 8 . "c-temp"))))
(progn
(while (setq e (ssname ss 0))
(setq sp (vlax-curve-getStartPoint e)
ep (vlax-curve-getEndPoint e)
ang (angle sp ep))
(if (or (equal ang (/ pi 2.0))
(equal ang (* pi 1.5)))
(setq pts (cons
(car (vl-sort
(list sp ep)
'(lambda (a b)
(< (cadr a) (cadr b))))) pts)))
(ssdel e ss))
(if pts
(entmakex (list (cons 0 "LINE")
(cons 10 (car (setq FptNpt (farfrompoints pts))))
(cons 11 (cadr FptNpt))
'(8 . "c-temp"))) (princ "\nNo Vetical Lines Found:")
)
)
(princ "\n0 objects selected:")
)
(princ)
)
and...... ?
:D