CHSPACE command - copy option?

[zootango]

Does anyone have a version of the CHSPACE.lsp command that has a "copy" option like the one from Intellicad???

This version makes a copy of the selected objects first then moves them into the space you want, leaving the original objects alone in their original space.

Anyone have this version of the lisp?

[dbroad]

I don't know about a "version"  but its relatively easy to create the lisp for yourself using the command function.

(defun c:chs () ;;DCB2013
(if (=(getvar "tilemode")0)
(progn
(princ "\nSelect objects")
(ssget)
(command "_.copy" "p" "" "0,0" "0,0")
(command "_.chspace" "p")
)
(princ "\nMust be in paper space")
)
(princ)
)

[zootango]

Thanks dbroad,

That's exactly what I needed.

Is there anyway to make the objects that come into the space, come in on the currect layer?

[dbroad]

I'm sure there is.  Add a call to the chprop command.  You can determine the current layer by:

(getvar "clayer")