3 ways to do as many as exists automatically, I have a plot all in Model space lisp which I will get to next
so you would edit the code to look for "KADR" it will plot all these based on known values.
2nd add a dummy title block which is just a rectang a few mm outside KADR so sets your plot sheet size.
3rd the best way is to make a layout using KADR and a Mview, there is various lisps out there to aid in creating these, the best method is start today using layouts you will never look back.
The code expects a known title block I may hav eto do a bit of a search to find the version that does the rescaling to reflect sheet size.
This is for layouts next is model space.
; plot multi title block in one layout
(PROMPT ".....PRINTING DRAWING TO plotter....")
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
(setq ss2 (ssget "x" '((0 . "INSERT")(2 . "Da1drsht"))))
(setq n (sslength ss2))
(setq index 0)
(repeat n
(setq en (ssname ss2 index))
(setq el (entget en))
(setq inspt (assoc 10 el)) ; insertion pt
(setq xmin (- (cadr inspt) 6.0))
(setq ymin (- (caddr inspt) 6.0))
(setq xymin (strcat (rtos xmin 2 1) "," (rtos ymin 2 1)))
(setq xmax (+ xmin 813.0)) ; hard coded for 813 wide 6mm offset
(setq ymax (+ ymin 566.0)) ;hard code for 566 high
(setq xymax (strcat (rtos xmax 2 1) "," (rtos ymax 2 1)))
(COMMAND "-PLOT" "Y" "" "//PRODPRN01/Design-5100"
"A3" "M" "LANDSCAPE" "N"
"W" xymin xymax "1=2" "C"
"y" "Designlaser.ctb" "Y" "" "n" "n"
"y" "N" "N" "Y"
)
(setq index (+ index 1))
)
(setvar "osmode" oldsnap)
(princ) Change Da1drsht to Kadr as a start
; plot all title blocks in model space
; by Alan H
(PROMPT ".....PRINTING DRAWING TO plotter....")
(setq oldsnap (getvar "osmode"))
(setvar "osmode" 0)
; block name is da1drsht
(setq ss2 (ssget "x" '((0 . "INSERT")(2 . "Da1drsht")(410 . "Model"))))
(setq n (sslength ss2))
(setq index 0)
(repeat n
(setq en (ssname ss2 index))
(setq el (entget en))
(setq inspt (assoc 10 el)) ; insertion pt
(setq xmin (- (cadr inspt) 6.0))
(setq ymin (- (caddr inspt) 6.0))
(setq xymin (strcat (rtos xmin 2 1) "," (rtos ymin 2 1)))
(setq xmax (+ xmin 813.0)) ; hard coded for 813 wide 6mm offset
(setq ymax (+ ymin 566.0)) ;hard code for 566 high
(setq xymax (strcat (rtos xmax 2 1) "," (rtos ymax 2 1)))
(COMMAND "-PLOT" "Y" "" "//PRODPRN01/Design-5100"
"A3" "M" "LANDSCAPE" "N"
"W" xymin xymax "1=2" "C"
"y" "Designlaser.ctb" "Y" "" "n" "n"
"y"
)
(setq index (+ index 1))
)
(setvar "osmode" oldsnap)
(princ)I have looked at your dwg and could convert the model to layouts what is the sheet size ? Need to rescale the title block to true size I am guessing a A2 sheet ?