[VBA]关于vba在cad2005中循环打印的问题（有源码）

zhinay_cn

我想请教 大家一个问题

我什么这段循环打印的vba程序在2002中可以使用

而在2005中只能打出一张就报错？？？？

很不解，虚心请教

以下是源码：

Sub 批量打印()
    Dim x As Integer
    Dim i As Integer
    Dim length As Double
    Dim point1 As Variant, point2 As Variant
    Dim point3 As Variant
     Dim Message, Title, Default, MyValue
      point1 = ThisDrawing.Utility.GetPoint(, "请输入左下角点：")
    ReDim Preserve point1(0 To 1)  
    
    point2 = ThisDrawing.Utility.GetPoint(, "请输入右上角点：")
    ReDim Preserve point2(0 To 1)      
    point3 = ThisDrawing.Utility.GetPoint(, "输入第二张图纸左下角点：")
    ReDim Preserve point3(0 To 1)
  length = point3(0) - point1(0)
    
Message = "  输入打印多少张？  "

Title = "提醒："  
Default = "1"    
x = InputBox(Message, Title, Default)
  For i = 1 To x Step 1
    
    ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2
    ThisDrawing.ActiveLayout.GetWindowToPlot point1, point2
    ThisDrawing.ActiveLayout.PlotType = acWindow
    ThisDrawing.Plot.PlotToDevice        '用默认设置打印到打印机
    point1(0) = point1(0) + length:   point1(1) = point1(1)
    point2(0) = point2(0) + length:   point2(1) = point2(1)
    Next i
End Sub

zhinay_cn

怎么没人顶

希望各位高手解答一下

流星蔡园

打印份数不需要用For...Next...语句,用这个:

Thisdrawing.Plot.NumberOfCopies = x

fjfhgdwfn

经测试.在我这没有问题,是可以用的

zhinay_cn

谢谢各位

我在2002中可以正常使用

而在2005中只能打出一张就报错？？？？

不知道为什么

3楼说的可以实现循环吗，试试。。。。

kaixinmao

看cadVBA 中plottodevice method的帮助，最大的怀疑是　　

你是否打印设置文件有问题？

RetVal = object.PlotToDevice [plotConfig]

Object

MSITStore:D:\Program%20Files\Common%20Files\Autodesk%20Shared\ACADAUTO.CHM::/idh_plot_object.htm">Plot
The object or objects this method applies to.

plotConfig

String; input-only; optional
The full path and file name of the PC3 file to use instead of the current configuration. If this parameter is not provided, the current configuration will be used. If the configuration file is not found at the specified path, AutoCAD will search the printer configuration path for the file before it defaults to the current configuration.

RetVal

Boolean

TRUE: The plot was successfully sent to the device.

FALSE: The plot was not sent to the device. There was either a plot process failure or the plot was cancelled.

Remarks

The drawing from which the plot is initiated must be active for the plot to succeed.

To plot in the foreground using VBA, you must set the BACKGROUNDPLOT system variable to 0. Otherwise, plotting occurs in the background.

The plot device is specified using the MSITStore:D:\Program%20Files\Common%20Files\Autodesk%20Shared\ACADAUTO.CHM::/idh_configname.htm">ConfigName property for the layout or plot configuration.

If the PC3 file specified or the current plot configuration contains plot-to-file information, this method may actually send the plot to a file instead of to a device. Be careful to review all current plot configuration information for the specified layout. To plot several layouts, you can use the MSITStore:D:\Program%20Files\Common%20Files\Autodesk%20Shared\ACADAUTO.CHM::/idh_SetLayoutsToPlot.htm">SetLayoutsToPlot method before invoking the PlotToDevice method.

To create a new configured plotter (PC3) file, use the Add-a-Plotter wizard in AutoCAD. For more information about PC3 files, see "Set Up Plotters and Printers" in the AutoCAD Driver and Peripheral Guide.