Select 4 differant line at once and get all the endpoints

[cadking2k5683822]

Here is what I have I want it to highlight the lines while I am selecting them but I need to get the endpoints of all of them for this command

 (setq hor1 (entget (car (entsel "\nSelect the First horizontal line:"))))
  (setq hr1 (cdr(assoc 10 hor1)))
  (setq hr2 (cdr (assoc 11 hor1)))
  (setq hor2 (entget (car (entsel "\nSelect the second horizontal line:"))))
  (setq hr3 (cdr(assoc 10 hor2)))
  (setq hr4 (cdr(assoc 11 hor2)))
  (setq ang1 (entget (car (entsel "\nSelect the first Oblique line:"))))
  (setq an1 (cdr(assoc 10 ang1)))
  (setq an2 (cdr (assoc 11 ang1)))
  (setq ang2 (entget (car (entsel "\nSelect the second Oblique line:"))))
  (setq an3 (cdr(assoc 10 ang2)))
  (setq an4 (cdr (assoc 11 ang2)))

[Tom Beauford]

What is it you're trying to do with these lines or points?

[BIG-AL]

Select the lines first as a normal pick select then try (ssget "P") which will make a selection set with the 4 lines. Did not test order. Do say a message about pick order.