Clipboard

[WeTanks]

I need your help,

I often repeat operations like the following,
Is there a LISP that pastes the objects in the to all points in batches at one time?

English is my second language.
Please don't worry if I make any English mistakes.
英語は母国語ではない
英語のミスをしても気にしないでください。

[komondormrex · Accepted solution]

check thу following. uses not the clipboard but multiple copy of a source circle object to every object of target selection set of points.

(defun c:copy_to_multiple_points (/ object_to_copy points_to_copy_to_list base_point)
	(setq object_to_copy (vlax-ename->vla-object (car (entsel "\nSelect object to multiple copy: ")))
	      base_point (vlax-3d-point (trans (getpoint "\nPick base point for copying object: ") 1 0))
	      points_to_copy_to_list (mapcar 'vlax-ename->vla-object (vl-remove-if 'listp (mapcar 'cadr (ssnamex (ssget '((0 . "point")))))))
        )
  	(foreach point points_to_copy_to_list
		(vla-move (vla-copy object_to_copy)
			  base_point
			  (vla-get-coordinates point)
		)
	)
)

[WeTanks]

Thank you so so much.

I am sorry I didn't explain it clearly enough.

Why should I use Clipboard,
It is because it can set the Base Point.
Can this be achieved in the previous LISP?

[komondormrex · Accepted solution]

sure, for single object to copy. check update above. 

[WeTanks]

Thank you so so much.

This LISP has saved me much time.
この LISP のおかげで時間を大幅に節約できました。

[komondormrex]

your welcome) that is what a custom programming for.