(defun C:rpo ()
(setvar "cmdecho" 0)
(prompt"\nObject Replacer")(terpri)
(prompt "\nSelect Objects Set 1:")(terpri)
(setq a (ssget)
c (getpoint "\nPick Base Point for Objects Set 1:"))(terpri)
(prompt "\nSelect Group 2:")(terpri)
(setq b (ssget)
d (getpoint "\nPick Base Point for Objects Set 2:"))(terpri)
(command "move" a "" c d
"move" b "" d c
);cmd
(print)
)
(c:rpo)

Advertisements