copy & paste to original location multiple times

Any user here has lisp to copy an entity/entities & paste to the same location multiple times.

lisp to run in this manner

- select entity/entities

- key in the number (to indicate how many to paste)

- Enter

(Please don't require user to click a base point)

I wonder what is the wisdom behind copying the same objects in the same original location many times?

I wonder what is the wisdom behind copying the same objects in the same original location many times?

Tharwat sir, the enity/entities are a reference item. I need to insert this reference item into various blocks in the same location. Therefore I need multiples of this enity/entities

Can you give a clear example of what you are after?

Can you give a clear example of what you are after?

Tharwat sir. Here is a photo & dwg file.

I fogot to add in the photo, that preferable no base point input is required from user. Just paste the multiples on the top of the original.

PASTE MULTIPLE FUNCTION.dwg

Try this;

(defun c:Test (/ cm ss in)
 (if (and (setq ss (ssget "_:L"))
          (setq in (getint "\nSpecify number of copies :"))
     )
   (progn
     (setq cm (getvar 'CMDECHO))
     (setvar 'CMDECHO 0)
     (repeat in
       (command "_.COPY" ss "" '(0. 0.) '(0. 0.))
     )
     (setvar 'CMDECHO cm)
   )
 )
 (princ)
)

@ Tharwat: Maybe add "_non" (2x) just in case...

@ Tharwat: Maybe add "_non" (2x) just in case...

You are right Roy, honestly I have noticed that after a few minutes of posting the codes and intended to wait for OP's reply if they might need any changes and would cover that issue in the next mods.

Try this;

(defun c:Test (/ cm ss in)
 (if (and (setq ss (ssget "_:L"))
          (setq in (getint "\nSpecify number of copies :"))
     )
   (progn
     (setq cm (getvar 'CMDECHO))
     (setvar 'CMDECHO 0)
     (repeat in
       (command "_.COPY" ss "" '(0. 0.) '(0. 0.))
     )
     (setvar 'CMDECHO cm)
   )
 )
 (princ)
)

Tharwat sir. work as i wanted. Thanks so much.

What is "_non" (2x) about. important?

This question is almost identical to this http://www.cadtutor.net/forum/showthread.php?98213-Copy-text-into-same-place-but-in-different-layer from a couple of weeks ago.

Tharwat sir. work as i wanted. Thanks so much.

You are welcome.

What is "_non" (2x) about. important?

Like the following adds and this should ignore the settings of your object snap settings to place the newly created objects in their correct place.

(defun c:Test (/ cm ss in)
 (if (and (setq ss (ssget "_:L"))
          (setq in (getint "\nSpecify number of copies :"))
     )
   (progn
     (setq cm (getvar 'CMDECHO))
     (setvar 'CMDECHO 0)
     (repeat in
       (command "_.COPY" ss "" "_none" '(0. 0.) "_none" '(0. 0.))
     )
     (setvar 'CMDECHO cm)
   )
 )
 (princ)
)

This question is almost identical to this http://www.cadtutor.net/forum/showthread.php?98213-Copy-text-into-same-place-but-in-different-layer from a couple of weeks ago.

came across it as well. far more complex.

Thanks Tharwat for the explanation.

Thanks Tharwat for the explanation.

Good luck.

Enjoy.

Another :

(defun c:test ( / ss n i e )

 (vl-load-com)

 (if 
   (and
      (setq ss (ssget "_:L"))
      (not (initget 7))
      (setq n (getint "\nHow many copies : "))
   )
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i))))
     (repeat n
       (vla-copy (vlax-ename->vla-object e))
     )
   )
 )
 (princ)
)

Thanks marko_ribar. This works as well.

Another :

 

(defun c:test ( / ss n i e )

 (vl-load-com)

 (if 
   (and
      (setq ss (ssget "_:L"))
      (not (initget 7))
      (setq n (getint "\nHow many copies : "))
   )
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i))))
     (repeat n
       (vla-copy (vlax-ename->vla-object e))
     )
   )
 )
 (princ)
)