Leaderboard

I never thought of that, I'll have a look for myself and see if that works for me

Not exactly sure what you're asking but give this a try: ;;; Draw perpendicular line ;;; Alan J. Thompson, 10.15.09 (defun c:lper (/ #ent #read p1 p2) (and (setq #ent (car (entsel "\nSelect curve: "))) (vl-position (cdr (assoc 0 (entget #ent))) '("LWPOLYLINE" "ARC" "LINE" "CIRCLE" "ELLIPSE")) (while (not (eq 25 (car (setq #read (grread t 15 0))))) (princ "\rSpecify point for line: ") (redraw) (if (vl-consp (cadr #read)) (grdraw (vlax-curve-getclosestpointto #ent (trans (cadr #read) 1 0) t) (trans (cadr #read) 1 0) 1 ) ;_ grdraw ) ;_ if (cond ((eq 3 (car #read)) (entmake (list '(0 . "LINE") (cons 10 (setq p1 (vlax-curve-getclosestpointto #ent (trans (cadr #read) 1 0) t))) (cons 11 (setq p2 (trans (cadr #read) 1 0))) ) ;_ list ) ;_ entmake ;; Print results of distance, closest point to object and picked point (print (distance p1 p2)) (print p1) (print p2) ) ) ;_ if ) ;_ while ) ;_ and (redraw) (princ) ) ;_ defun

Steven P's method is probably the best. I plot to paper with a page setup set to Layout and to PDF with a page setup set to Extents with "Center the plot" checked. Not exactly the same, but close enough.

I modified some of the paper sizes to suit (I uses An Expand paper because I don't otherwise use the)... Go to page setup, select Dwg to PDF plotter and then properties Under 'Use-Defined Paper Sizes and Calibration' choose modify Standard Paper Sizes (though you can also go and create a Custom paper Size), and then choose the paper size in the box below, click modify and there you can set the margins, mine are set at 0. Click finish and then repeat for all the paper sies. I used the standard paper sizes since I use a plotting list - and it is easier to use if I use a standard paper size. Then when it comes to plotting, just choose your modified paper size