Can any body help, how can I combine this 2 lisp.
1st lisp that already work only small think need to modify, when split multiple sheets in one layout to individual layout some layer with status viewport freeze will appear in new layout.
so what i want to do is make viewport to block & put random name after that copyclip to new layout then explode the block what
i make before. layer state will same with viewport on old layout.
;https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/how-to-split-multiple-sheets-in-one-layout-to-individual-layout/td-p/13032412
; copy layouts by AlanH Sept 2024
(defun c:cl3 ( / oldsnap ss clay obj xsc ysc pt1 pt2 pt3 pt4 bname ins ) ;local variable
(setq oldsnap (getvar 'osmode)) ;oldsnap = 'osmode = 0 , osnap off
(setvar 'osmode 0)
(setq ss (ssget "X" (list (cons 0 "Insert")(cons 2 "TITLE BLOCK*")(cons 410 (getvar 'ctab)))))
(if (= lay nil)(setq lay 1))
(setq laynew (getint (strcat "\nlayout number " (rtos lay 2 0) " ") ))
(IF (= LAYNEW NIL)
(PRINC)
(setq lay laynew)
)
(load "C:/Users/margono/OneDrive - SHIMIZU CORPORATION/MARGONO/@lisp/QBLOCK.lsp")
(setq clay (getvar 'ctab))
(repeat (setq K (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss (setq k (- K 1)))))
(setq xsc (vlax-get obj 'XScaleFactor))
(setq ysc (vlax-get obj 'yScaleFactor))
(setq ins (vlax-get obj 'insertionpoint))
(setq bname (vlax-get obj 'name))
(cond
((= bname "TITLE BLOCK_A2_R")(setq x 595 y 421))
)
(setq pt1 (mapcar '+ ins (list -8 -8 0.0)))
(setq pt2 (mapcar '+ ins (list X y 0)))
(setq pt3 (mapcar '+ ins (list +15 +15 0.0)))
(setq pt4 (mapcar '+ ins (list X y 0)))
(command "QB" "W" pt3 pt4 "")
(command "copyclip" "w" pt1 pt2 "")
(command "layout" "n" (rtos lay 2 0))
(setvar 'ctab (rtos lay 2 0))
(command "erase" (ssget "X" (list (cons 0 "viewport")(cons 410 (getvar 'ctab)))) "")
(command "pasteclip" "0,0")
(setq lay (1+ lay))
(setvar 'ctab clay)
)
(setvar 'osmode oldsnap)
(princ)
)
