Cut and paste as block

Mike_71

Someone can give me a tip how to write a lisp routine that cut with base point the selected objets and then paste as block asking for insertion point ? Thanks in advance

Anthony Apostolaros

(defun c:CP ()
(setq ss1 (ssget "Select objects to copy to the clipboard: "))
(setq bp1 (getpoint "Select base point: "))
(command "copybase" bp1 ss1 "")
(command "pasteclip" ss1)
)

CopyPaste.lsp

Uploaded Aug 7, 2024186 B