(COMMAND "Layout" "COPY" "Layout1" "1")
(COMMAND "Layout" "SET" "Layout1")
Excellent! Thank you for the clarification on it! I really appreciate it!You're welcome anytime.
Just want to clarify, if layout1 is copied 8 times, and then renamed to layout1, layout2, etc. it will still go back to layout1.Try to do it yourself to learn from what you come up with your codes, and such practices you would be remember for a long time so this is one of the best ways to be good at coding.
; GOTO layout just like other goto a page
; By Alan H 2013
; menu command [GOTO]^c^C^p(load "goto")
; enter a big number like 99 to jump to last if 100+ layouts then 123 etc
; Model space is 0 zero GOTO 0
(defun C:goto ( / x alllayouts laynum num)
(setq num (getint "Enter layout number" ))
(setq alllayouts (vla-get-Layouts (vla-get-activedocument (vlax-get-acad-object))))
(SETQ LAYNUM 0)
(vlax-for x alllayouts
(Setq laynum (+ 1 laynum))
) ;total number of layouts
(if (> num laynum)
(setq num (- laynum 1))
)
(vlax-for lay alllayouts
(if (= num (vla-get-taborder lay))
(setvar "ctab" (vla-get-name lay))
)
)
)
; I often type it wrong so added this one also
(defun C:goot ()
(c:goto)
) ; defun
(setq laynum (length (layoutlist)))
:wideeyed2: You cannot run the "pp_bigalayout_jspin15.lsp"
without "Password PinAcces=6548"
Not a problem. I did not want to get to far ahead of myself! lol Thank you for the advice.