Copy and paste as block

[m.ugrinic]

How to create lisp file for multiple commands sequentially?

eg. copy with base point 0,0 and paste as block with base point 10,10.

Thanks

[hmsilva · Accepted solution]

---

@m.ugrinic wrote:

How to create lisp file for multiple commands sequentially?

eg. copy with base point 0,0 and paste as block with base point 10,10.

Thanks

---

Hello m.ugrinic and welcome to the Autodesk Community!

(defun c:demo (/ ss)
   (if (and (princ "\nSelect objects to copy from 0,0 and paste as block at 10,10: ")
            (setq ss (ssget))
       )
      (command "_.copybase" '(0.0 0.0 0.0) ss "" "_.pasteblock" '(10.0 10.0 0.0))
      (prompt "\nYou did not select an object... ")
   )
   (princ)
)

Hope this helps,
Henrique

[m.ugrinic]

Thank you.

[hmsilva]

---

@m.ugrinic wrote:

Thank you.

---

You're welcome, m.ugrinic
Glad I could help

Henrique