;;;this routine matches two sides of two objects
;;;;Elise Moss
;;;;www.mossdesigns.com
;;;;July 2004

(defun c:match ()
 
  (prompt "\nSelect objects you wish to move: ")
  (setq ss (ssget))
  (setq baspt (getpoint "\nSelect base point: "))
  (setq target (getpoint "\nMove to: "))
  (command "move" ss "" baspt target)
  (prompt "\nNow we will rotate the object. ")
  (setq secondpoint (getpoint target "\nSelect the second point of the side you wish to rotate: "))
  (setq thirdpt (getpoint target "\nSelect the second point of the side you wish to mate: "))
  (command "rotate" ss "" target "r" target secondpoint thirdpt)
(princ)
  
)

(prompt "\nType 'match' to match two sides of two objects: ")