Paper and Modelspace

I'm looking for a lisp routine to these steps:

* Move from Model to paper space

* Copy from Model to paper space

* Move from Paper to Model space

* Copy from Paper to Model space

All Regards to The Lisp genius

Won't the CHSPACE command take care of two out of the four?

Won't the CHSPACE command take care of two out of the four?

Agreed and this should take care of the other two:

(defun c:CHSpaceCopy (/ ss2 ss i)
 (vl-load-com)
 (if (setq ss2 (ssadd)
           ss  (ssget "_:L")
     )
   (progn
     (repeat (setq i (sslength ss))
       (ssadd
         (vlax-vla-object->ename (vla-copy (vlax-ename->vla-object (ssname ss (setq i (1- i))))))
         ss2
       )
     )
     (vl-cmdf "_.chspace" ss2 "")
   )
 )
 (princ)
)

It works

Thanks;)

It works

 

Thanks;)

You're welcome.

Relocated to proper forum.

LoL, you know, I had to dig the thread back up and use the code I posted late yesterday.

That was a good code, my thanks to you and to all who want to help.

I just joint the site and I had a thought that when the question is posted it will filter it self automatically to the correct (designated) department.

Any how the whole idea is to share knowledge and help each other.

I wish a good day for all.

Athabe Ana

Autocad and Microstaion User

That was a good code, my thanks to you and to all who want to help.

 

I just joint the site and I had a thought that when the question is posted it will filter it self automatically to the correct (designated) department.

 

Any how the whole idea is to share knowledge and help each other.

 

I wish a good day for all.

 

Athabe Ana

Autocad and Microstaion User

You should have read NEW MEMBER INFORMATION and HOW DO I MAKE A POST?

I have never seen a forum that "will filter it self automatically to the correct (designated) department".