Topic: Multiple copy command

[TJAM51]

I know that the following toolbar command will do multiple copies but how would you do it in lisp



copy;\;m;;

[SMadsen]

(command "COPY" pause "" "M" pause)

If it's part of a multiple task routine, you might want to include a loop like
(while (> (getvar "CMDACTIVE") 0)
  (command pause)) .. or something like that.

Beware that the multiple option has been changed with 2005, so that multiple copying is now the default.

[M-dub]

Beware that the multiple option has been changed with 2005, so that multiple copying is now the default.

FINALLY!!!    

[Keith™]

well an old trick is:

Code: [Select]


(command "copy" pause ""  "m")


[SMadsen]

well an old trick is:

Code: [Select]


(command "copy" pause ""  "m")


Right, the last pause in my post is redundant (unless some needy code follows)

[TJAM51]

I tried this


(DEFUN C:cm ()
(command "COPY" pause "" "M" pause)

and received this

Command: cm
copy
Select objects: 1 found

Select objects: mulitple

*Invalid selection*
Expects a point or
Window/Last/Crossing/BOX/ALL/Fence/WPolygon/CPolygon/Group/Add/Remove/Multiple/P
revious/Undo/AUto/SIngle
; error: Function cancelled

Select objects:
Specify base point or displacement, or [Multiple]: *Cancel*

[TJAM51]

I also tried this

(command "copy" pause ""  "m")


and received this

Command: cm
copy
Select objects: 1 found

Select objects: mulitple

*Invalid selection*
Expects a point or

[SMadsen]

TJ, where does the "mulitple" come from? (and what language is it? )

[TJAM51]

I am using 2001. I am wanting to use the multiple command so the multiple is a user input.......russian maybe

[SMadsen]

Nah, that would be mulitsje  

Try this

Code: [Select]

(defun C:CM ()
  (cond ((setq ss (ssget))
         (command "_COPY" ss "" "Multiple")
         (princ)
        )
  )
)

[TJAM51]

In the voice of Elvis Presley


thank you very much

[SMadsen]

:dood: