【请教】使用vb来进行cad2000的图纸打印

武文弄墨

没有思路，我查到plottodevice的功能是：将布局绘图到设备
而plottofile的功能是：将布局绘图到文件
但是，这两个方法中的参数plotfile（这个大概是文件输出名）、plotconfig并没有指明

也就仅此而已，希望各位大侠可以给些代码实例或者意见，谢谢！
我的目标就是，在Command1_Click（）事件中，可以讲AutoCAD2000的当前图纸
能在zoomall状态下，以某种图纸规格输出（譬如，ISO A4)到固定目录

急切盼望回复，谢谢

武文弄墨

最近论坛怎么这么冷清呢！？

lhkz

' 建立输出用的图纸空间布局    Dim strLayouts(0 To 1) As String    Dim varLayouts As Variant    strLayouts(0) = "Layout1"    strLayouts(1) = "Layout2"    varLayouts = strLayouts    ThisDrawing.Plot.SetLayoutsToPlot varLayouts        ' 设置打印份数为1    ThisDrawing.Plot.NumberOfCopies = 1            ' 开始打印    ThisDrawing.Plot.PlotToDevice

lhkz

试试这个

' 建立输出用的图纸空间布局  
  Dim strLayouts(0 To 1) As String
    Dim varLayouts As Variant
    strLayouts(0) = "Layout1"  
    strLayouts(1) = "Layout2"
    varLayouts = strLayouts   

ThisDrawing.Plot.SetLayoutsToPlot varLayouts
ThisDrawing.Plot.NumberOfCopies = 1        ' 设置打印份数为1   
ThisDrawing.Plot.PlotToDevice                   ' 开始打印