Any lisp for copy/paste blocks from its insertion point

[josue777torsan]

Any lisp for copy/paste blocks from its insertion point

[komondormrex]

multiple copying of selected block by its insertion point. not a clipboard copy/paste.

(defun c:block_multiple_copy (/ insert)
	(while (null (vl-catch-all-error-p 
						(vl-catch-all-apply 
							'vl-cmdf 
							(list "_.copy" 
							   	 (if insert 
								 		insert 
							   			(setq insert (car (entsel "\nPick a block to copy: ")))
							   	 )
								 ""
							   	 (cdr (assoc 10 (entget insert))) 
								 pause
						 	)
						)
			     )
		   )
	)
)

[Kent1Cooper]

If you're talking about within the same drawing, just select the Block, pick on its insertion point grip, grip-editing will go into Stretch mode, and type the letter for the Copy option, and place as many as you like.  [Or, select it, pick on the insertion point grip, hit Enter/space to go into Move mode, type C and place them just as in Stretch mode.]

Or do you mean copying/pasting between different drawings?

[pendean]

@josue777torsan COPYBASE command (CTRL+SHIFT+C) is there all day long to do that if you have your INS osnap running: is that all you wish to automate, having the correct osnap running when you use that built-in tool to do what you seek?

[john.uhden]

@pendean ,

This response may not help the OP at all, but I love the way that if you select one or more objects and hit Ctrl+C, the selection is copied from the lower left extents of the objects selected.  It's great when copying notes and/or details from one dwg  or layout to another.  Yes, I also use COPYBASE when the objects must land at a specific location.

BTW, thanks for pointing out Ctrl+Shift+C.  That's a huge improvement over typing "COPYBASE."

[josue777torsan]

Yes, I think the best way is to use the typical ctrl+Shift+C and then paste.

Thanks everyone!