Cut and paste as block

Mike_71
Mike_71
in LISP

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

Comments

  • Anthony Apostolaros
    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