Copy and new as previous

[ReachAndre]

Hello all,
I was trying to copy and maintain the new as previous. here is what i have so far but it only lets you copy once.

Any help is appreciated.

;Copy and Items Previous.lsp

(defun c:cc (/ ss1)
  (setq existing-objects nil)
  (existing-objects-obtain)
  (setq ss1 (ssget))
  (command "copy" ss1 "")
  (while (= 1 (logand (getvar "CMDACTIVE" ) 1 )) (command PAUSE ))      
  (command "move" "all" "R" existing-objects "" "non" (list 0 0)"non" (list 0 0))
  (princ))

(defun existing-objects-obtain ()
  (setq existing-objects (ssget "all"))
  (princ "eo obtained")
  (princ))

Thanks,
Andre

[marko_ribar]

Andre, have look at his code...

http://www.theswamp.org/index.php?to...1693#msg481693

M.R.

[PaulLi_apa]

Instead of using the Move command, I would use the Select command:

(command "_.Select" "_All" "_R" existing-objects "")

Area Object Link | Attribute Modifier | Dwg Setup | Feet-Inch Calculator | Layer Apps | List on Steroids | VP Zoom Scales
Exchange App Store
Paul Li
Senior Associate
ALTOON PARTNERS LLP
Los Angeles • Amsterdam • Shanghai
617 West 7th Street • Suite 400 • Los Angeles • California • 90017-3889
D +1 213 225 1944 • T +1 213 225 1900 • www.altoonpartners.com

[Tom Beauford]

Hello all,
I was trying to copy and maintain the new as previous. here is what i have so far but it only lets you copy once.

Any help is appreciated.
Thanks,
Andre

I've used this code by irneb for years:

http://forums.augi.com/showthread.php?81175-select-result-lisp-modification#5

Since it need to be loaded before the objects are created put it in ACADDOC.lsp with

(load "SelectResults.lsp")

Because I'm a mouse guy who cannot remember to many keyboard shortcuts I added the command: Added by Previous Commands
with 'Result as the Macro.