办公室打印机缩小打图美观的一点实际

我爱lisp

我们经常在出大图之前需要在办公室小打印机上打出个小图（A3)给校对审核看，但是由于打印机设备自身原理限制，并不能全部覆盖A3打印纸，大多数图打出来都是边框不全，要么位置偏移，非常不好看，通过我测试，如下打印在HP5200打A3效果算是最好的了。希望有朋友能够喜欢。
;;这是在HP5200基础上测试打印出A3绘图刚好边框剪切线不打印的效果，主要原因是打印机设备并不支持A3全画幅打印，目前这个方式打印出来还比较理想；
;;前提是要在本机上利用HP LaserJet 5000 Series PCL选择A3打印纸新建一个打印机,将打印区域边界都调到0
(defun c:A3( / )
;;;命令: -PLOT
(command
"-plot"
;;;是否需要详细打印配置？[是(Y)/否(N)] <否>: Y
"y"
;;;输入布局名或 [?] <模型>:
""
;;;输入输出设备的名称或 [?] <无>: HP LaserJet 5000 Series PCL
;;"HP LaserJet 5000 Series PCL"
"A3_PLOT"
;;;输入图纸尺寸或 [?] <A4>: A3
"A3"
;;;输入图纸单位 [英寸(I)/毫米(M)] <毫米>:
""
;;;输入图形方向 [纵向(P)/横向(L)] <纵向>: L
"L"
;;;是否反向打印？[是(Y)/否(N)] <否>:
""
;;;输入打印区域 [显示(D)/范围(E)/图形界限(L)/视图(V)/窗口(W)] <显示>: W
"W"
;;;输入窗口的左下角 <0.000000,0.000000>: -5,-5
"0,0"
;;;输入窗口的右上角 <0.000000,0.000000>: 836,589
"841,604"
;;HP5200打印机的打印区域实际测试为左9右4上5下6，所以在框选时需要提前框选这样的边量，根据A3打A1的1:2关系，分别在各个方向框上余量
;;;输入打印比例 (打印的 毫米=图形单位) 或 [布满(F)] <布满>: f
"f"
;;;输入打印偏移 (x,y) 或 [居中打印(C)] <-13.65,11.55>: -5,-5
"4,1.3"
;;;是否按样式打印？[是(Y)/否(N)] <是>: y
"y"
;;;输入打印样式表名称或 [?] (输入 . 表示无) <monochrome.ctb>: monochrome.ctb
"monochrome.ctb"
;;;是否打印线宽？[是(Y)/否(N)] <是>: n
"n"
;;;输入着色打印设置 [按显示(A)/线框(W)/消隐(H)/渲染(R)] <按显示>:
""
;;;是否打印到文件 [是(Y)/否(N)] <N>: n
""
;;;是否保存对页面设置的修改 [是(Y)/否(N)]? <N> n
""
;;;是否继续打印？[是(Y)/否(N)] <Y>: n
"y"
)
)
(c:myplot_A3)

我爱lisp

补充以下，我这个没有设定框选，是把图自动放到0,0这个点的，图纸为标准横向图纸

e2002

设置好 Lyaout，和一个使用 Lj5200/A3/Fit的“页面设置”，使用 publish ，高效批量的搞定你的这种需求。