(defun C:FLOAT ()
(princ "\nSelect Objects to Float ...")
(setq sset (ssget))
(if sset
(progn
(command "_.COPY" sset "" "0,0,0" "@")
(command "_.ERASE" sset "")
)
)
(princ)
)
i pulled this from a message in the 2000.general ng titled;
xref draw order issues
dated 9/22/01
--
A2Ki, SurvCad CES, Win98 se
Remove NO SPAM from my email address to email
Jonathan J. Baker
R&R Engineers-Surveyors, Inc.
Denver, Colorado
_________________________
"atomic73"
wrote in message
news:f089607.-1@WebX.maYIadrTaRb...
> Does anyone have a copy of the "Float" LISP routine?
> Thanks!
>
> Tela Andrews
> tandrews@eptland.com
>
>