The trouble with small format printing is that the paper has defined margins that you cannot print on. THis reduces the print area and scales get reduced down. The easiest solution is to experiment and "tweak" the scale. Basically by trial and error, alter the scale till you get what you want...
A few suggestions...
http://usa.autodesk.com/adsk/servlet/ps/item?id=2881038&linkID=2475323&siteID=123112
http://usa.autodesk.com/adsk/servlet/ps/item?id=2896262&linkID=2475323&siteID=123112
http://usa.autodesk.com/adsk/servlet/ps/item?id=2872472&linkID=2475323&siteID=123112...
I have used this with great success in the past...
(defun C:SPLINE2PLINE (/ SPLINES PLINETYPE OSMODE I SPL ED CODEPAIR)
(if
(setq SPLINES (ssget (list (cons 0 "spline"))))
(progn
(if
(zerop (setq PLINETYPE (getvar "plinetype")))
(setvar "plinetype" 1)
) ;if
(setq OSMODE...
Dim acLyrs As AcadLayers
Dim acLyr As AcadLayer
'''''''''''''''''''''''''''''''''''''''
On Error GoTo ErrHandler
Set acLyrs = ThisDrawing.Layers
For Each acLyr In acLyrs
If instr(acLyr.name, partOfSomeLayerName) Then
aclyr.color = yourNewLayerColor
End If
Next acLyr
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.