请教大侠们，怎样获得无边框打印图形

wangweijess

我还有个问题请教大家，我在用cad打印功能来获得tiff格式文件的时候，得到的最后tiff文件在打开后总是在图的周围有白色边界，不是我想要的整个地形图布满整张图纸的。因为要把一幅幅的tiff文件用来拼图，所以要得到布满图纸的tiff文件。以下是我的代码，麻烦大侠们帮我看看，本人不甚感激。

   ......

 (setq  ActiveLayout(vla-get-ActiveLayout CadDocument) )

 (setq layoutSel(vla-get-Layouts CadDocument))
  (setq clayout(vla-item layoutSel "Layout1"))

  (vla-put-ConfigName clayout "TIFF Version 6 (不压缩).pc3")
  (vla-put-standardscale ActiveLayout acscaletofit)

  (vla-put-centerplot ActiveLayout :vlax-true)

....获得图形的最右上角点point1，左下角点point2后

  (vla-put-ConfigName clayout "TIFF Version 6 (不压缩).pc3")
  (vla-put-standardscale ActiveLayout acscaletofit)

  (vla-put-centerplot ActiveLayout :vlax-true)

....获得图形的最右上角点point1，左下角点point2后

 (vla-SetWindowToPlot ActiveLayout point1 point2)
 
  (vla-put-plottype ActiveLayout acWindow)
  (vla-Regen mACadDocument :vlax-true)
  
  (vla-put-plotrotation ActiveLayout ac0degrees)
  (vla-put-StyleSheet ActiveLayout "monochrome.ctb")

  (setq filename "112")

  (setq result (vla-PlotToFile (vla-get-Plot CadDocument)  filename))