Copy Multiple Command

Hi everyone - I am trying to make C invoke copy multiple command
instead of just normal copy.

How do I do this - PGP or Lisp ??

Regards
DB

 

Make a lisp from this and than change your pgp file to make c=cm

(defun c:cm (/ obj basept pt)
(setvar "cmdecho" 0)
(prompt "\nSelect objects to copy...")
(setq obj (ssget))
(setq basept (getpoint "\Specify base point or displacement..."))
(while (setq pt (getpoint basept "\Specify second point of displacement <OR> ENTER to exit..."))
(command "COPY" obj "" basept pt)
)
(setvar "cmdecho" 1)
(princ)
)

 

Use a simple menu macro

^C^Cselect;auto /Copy;p;;m



| Hi everyone - I am trying to make C invoke copy multiple command
| instead of just normal copy.
|
| How do I do this - PGP or Lisp ??
|
| Regards
| DB
|
|

 

Make a lisp from this and than change your pgp file to make c=cm

What's wrong with having both c and cm available? I use both. Each is good
in particular situations.

I have "multiple" versions of several commands, each with a alias ending in
m.

 

... and if you plan on upgrading to R2004 or higher anytime soon, it's
built in by default to do multiple.

Huh? My 2004 acts the same as always, the multiple option requires hitting
an M.

 

that option is 2K5 only.. (the undefine command is great to get rid of
it ;> )

 

To just type 'C' to do it all, change:
(defun c:cm (/ obj basept pt)
To:
(defun c:c (/ obj basept pt)
And, add this whole routine to your acaddoc.lsp file.

Bob

 

or use the express (bonus) tools mcopy