lisp for copy/pasting at origin

does anyone have a lisp routine for copying an object at with origin as
the base point (without having to enter 0,0)?

likewise, does does anyone have a lisp routine for pasting an object at
the origin as the base point (without having to enter 0,0)?

thanks.

mike

 

Hi Mike,
If it isn't part of something else you're building, just use "Copy"
[copyclip], and "Paste to Original Coordinates" [pasteorig]. No lisp
needed.

In lisp:
(vl-cmdf "_.copyclip")
(vl-cmdf "_.pasteorig")
Or if I've done too much interpreting:
(vl-cmdf "_.copybase" '(0 0 0))
(vl-cmdf "_.pasteclip" '(0 0 0))

 

thanks, james.

 

actually, i cannot get pasteorig to everytime...it only pastes some of
the time.

???

 

Yeah, I had noticed that too.
From help: "PASTEORIG functions only when the Clipboard contains AutoCAD
data from a drawing other than the current drawing."

James

 

Which never has made much sense to me. Often I'll
want to paste items from layout to layout within the
same file at the same origin. Wonder what the logic
is there?