Leaderboard

@pkenewell, This works like a dream!!! My nightmares are over Thank you for all you time, effort and patience. I owe you a good few beers!! I assume you are not from South Africa, there seems to be a time difference in our communication, otherwise I would buy you one in person. If you ever need any assistance with Plant 3D, please do not hesitate to contact me, I would be more than willing to try to assist, no guarantees though Thanks again for the help!!!

Hi all, those codes are perfect thank you! It doesn't matter that it creates a duplicate for the purpose of my task. Thanks again.

This task has been answered many times before, just find the outside rectangs and plot them. If the rectangs are blocks its even easier to do. In either case you get the two corners from the object for the plot window. Here is an example. ; simple plot titles in model ; By AlanH (defun plotmodel ( / oldsnap ss2 n xmin xmax xymin ymax ymin index en el inspt) (PROMPT ".....PRINTING DRAWING TO plotter....") (setq oldsnap (getvar "osmode")) (setvar "osmode" 0) (setq ss2 (ssget "x" '((0 . "INSERT")(2 . "A3-plotkader")(410 . "Model")))) ; A3-plotkader is the name of the title block (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 coded for 566 high (setq xymax (strcat (rtos xmax 2 1) "," (rtos ymax 2 1))) (COMMAND "-PLOT" "Y" "" "Dwg To Pdf" "A3" "M" "LANDSCAPE" "N" "W" xymin xymax "1=2" "C" "y" "Acad.ctb" "Y" "" "n" "n" "y" ) (setq index (+ index 1)) ) (setvar "osmode" oldsnap) (princ) ) (plotmodel) Post a sample dwg only need 1 outside rectang or block.