Topic: creating multpile layout tabs?

[ELOQUINTET]

hey was just wondering if anyone has come up with an easier way of creating multiple layout tabs. also is there a way to set the create a copy box to be checked as default? this has annoyed for for a long time so i hope there's a solution...

dan

[hendie]

template file ?

[ELOQUINTET]

yes i have a template file but unfortunately others here don't and i have to work with their drawings sometimes so... what about making the copy function as default that i find real annoying. thanks hendie

dan

[hendie]

real simple and there's probably loads of ways to do it... but... make a button and ...

Code: [Select]

^C^C_layout;copy;"";;

[ELOQUINTET]

thanks i'll give that a try  

dan

[ELOQUINTET]

works  great but how would i write that to do multiple copies hendie?

dan

[hendie]

you would need to rewrite it as a Lisp routine and prompt the user for the number of "copies" to create

[Kate M]

Or just put a * in front of the command: ^C^C*_layout etc. Might be a little clunky, but it'll make the macro repeat.

[hendie]

or:

Code: [Select]


;;; this file requires the 'Swamp VL-Toolkit' in order to run successfully ;;;
;;; http://theswamp.org/swamp.files/Public/AcadApp.lsp ;;;


(DEFUN C:addlayouts (/ LAYLST LOUTSNUM N)
  (VL-LOAD-COM) ; or else
  (setq LoutsNum (getint "Enter the number of layouts to create: "))
  (setq Laylst (vla-get-layouts (get-active-document)))
  (setq n (vlax-get-property laylst 'count))
  (setq Loutsnum (+ n loutsnum))
  (while (< n LoutsNum)
    (vla-add Laylst (strcat "Layout X" (rtos n)))
    (setq n (1+ n))
  )
)


probably a dumb way to do it but.....


*edited to include the 'Swamp toolkit'*

[ELOQUINTET]

no go hendie here's what i get:

Command: ADDLAYOUTS
Enter the number of layouts to create: 5
; error: no function definition: GET-ACTIVE-DOCUMENT
Command:

am i missing something?

dan

[hendie]

Dan, surely you've haunted these forums long enough to recognise the (get-active-document) & (get-acad-object) routines from Mark & Se7en & company. I always forget... are those routines yours Mark ?
if you do a search here or at cadalog, you'll find them easily enough.

[Mark]

Here is what I use;
http://theswamp.org/mark.lisp/files/Tools/MST-aamp.lsp

[ELOQUINTET]

mark not quite sure how to work this

[SMadsen]

Dan, change the line
(setq Laylst (vla-get-layouts (get-active-document)))
to
(setq Laylst (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object)))

... or click 5 times on the button holding the menu macro mentioned earlier.

[daron]

If the swamp toolkit resides in another file and has never been loaded, should we load it in the routine like (load "acadapp")?