Topic: Copy objects to layouts

[HasanCAD]

I created this very simple routine to copy objects to layouts
Any suggestions are welcomed

Code: [Select]

(defun c:CTLyot (/ Ctb Obj Lyt)
  (prompt "\nSelect objects to copy to all alyouts")
  (setq Ctb (getvar "CTAB"))
  (setq Obj (ssget))
  (setq ObjCcnt (sslength Obj))
  (command "_copybase" '(0 0) Obj "")

  (foreach Lyt (layoutlist)
    (command "LAYOUT" "S" Lyt)
    (command "PSPACE")
    (command "_pasteclip" '(0 0))
  )
  (setvar "CTAB" Ctb)
  (command "ERASE" obj "")
  (princ)
  )

[CAB]

Take a look here:
http://www.theswamp.org/index.php?topic=3012.msg98505#msg98505

I have modified the routine to copy any object if you need I will post the revised routine.

[HasanCAD]

Take a look here:
...

Its good link I am thinking about Borrow (steal ) DCL file.

...
I have modified
...

It is very kind of you to upload your routine

But is there any comment about this routine

[CAB]

OK I added it here:
http://www.theswamp.org/index.php?topic=3012.msg417197#msg417197

[Tharwat]

Good try hasan .

But some comments .

- There is no need for the following code within your routine .

Code: [Select]

(setq ObjCcnt (sslength Obj))

- It better to use decimal numbers for the coordinate points like '(0.0 0.0 0.0) .

Good luck

[kruuger]

Take a look here:
http://www.theswamp.org/index.php?topic=3012.msg98505#msg98505

I have modified the routine to copy any object if you need I will post the revised routine.

CAB this is great. Previously i got something similar to HasanCAD but your routine is "silent" (no skipping) 
Why this can't wotk with Viewport? What problem is with them?

thanks
kruuger

[ronjonp]

After changing the copy part to use vlax-invoke:

Code: [Select]

(mapcar '(lambda (x) (vlax-invoke *adoc* 'copyobjects objs (vla-get-block x) nil)) lays)
I have not had any issues copying viewports.

[CAB]

Thanks Ron, I updated the code. 

[ronjonp]

Thanks Ron, I updated the code. 

No prob  I think the idea was actually spurred from some of TWilley's code.

[Malzer]

Try AutoCAD command: CHSPACE

[Lee Mac]

Was bored so quickly put this together 

Code: [Select]

<-- Old Code Removed -->

[Lee Mac]

Updated my code here:

http://lee-mac.com/copytolayouts.html

Not dissimilar to CAB's I think - but it was fun to write all the same.