vba打印布局
再见，我在绘制布局时遇到了一些问题。所有其他函数（非相关函数）都可以工作，但我在绘制布局时确实存在一些问题。我最成功的代码是；
Dim PlotLayout As AcadLayout
Dim PlotLayouts As AcadLayouts
' On Error Resume Next
If ThisDrawing.ActiveSpace = acModelSpace Then
ThisDrawing.ActiveSpace = acPaperSpace
Set PlotLayouts = ThisDrawing.Layouts
Else
End If
On Error Resume Next
If PlotLayout.Name <> "Model" Then
ThisDrawing.ActiveLayout = PlotLayout
ThisDrawing.Plot.PlotToDevice
VBA.DoEvents
End If
“on error resume next”是最后测试选项之一。我从帮助中复制代码，从乔·萨芬的书中查到一些东西，从情节中复制代码。activedwg中的dvb。com等没有成功。
在运行这段代码时，我通过第二个布局（layout2）看到一个未完成的程序，它显示一个命令行输入请求，好像有什么事情没有完成（这就是vba.doevents的原因）
Command: Regenerating model - caching viewports.
Command:
Command: Restoring cached viewports - Regenerating layout.
Command: Regenerating layout.
Restoring cached viewports - Regenerating layout.
我想批量打印（第一次打印一个图形，如果成功，则打印文件夹）所有布局到TDS9600和/或dwg2pdf绘图仪。
tia。
页:
[1]