Multiple Selection Sets To One Line Lisp

Does anyone know of a lisp in which I can make multiple selection sets line up with a line?

For example you could select a number of groups and assign corresponding points with the groups the select a vertical line along the y axis have all selection sets and there selected points snap to that line.

Example start and end result included

ObjectLineUp.pdf

We kinda have an idea how do that mbrandt5. Hows about posting a drawing sample for us to look at. the pdf doesnt really explain a what a "group" is.

We kinda have an idea how do that mbrandt5. Hows about posting a drawing sample for us to look at. the pdf doesnt really explain a what a "group" is.

A little more info: http://forums.augi.com/showthread.php?162393-Multiple-Selection-Sets-To-One-Line-Lisp

Here is a dwg. of the pdf. with a little more info as well

SSLineups.dwg

Anyone know of a lisp that does such a thing or willing to help me out with writing it?

This ?

(defun c:Test (/ s e p ss bs)
 (if (and (setq s (car (entsel "\nSelect Vertical Line :")))
          (eq (cdr (assoc 0 (setq e (entget s)))) "LINE")
          (equal (car (setq p (cdr (assoc 10 e))))
                 (car (cdr (assoc 11 e)))
                 1e-4
          )
     )
   (progn
     (princ "\nSelect objects to move ")
     (while
       (and (setq ss (ssget "_:L"))
            (setq bs (getpoint "\nSpecify base point for objects :"))
       )
        (command "_.move"
                 ss
                 ""
                 "_none"
                 bs
                 "_none"
                 (list (car p) (cadr bs) 0.)
        )
     )
   )
 )
 (princ)
)

Anyone know of a lisp that does such a thing or willing to help me out with writing it?

What Tharwat posted seems to work really well for what you are asking.

Thank you I greatly appreciate it

Thank you I greatly appreciate it

You're most welcome.