vba打印布局

erik_NL · 发表于 2022-7-6 15:09:26

再见，

我在绘制布局时遇到了一些问题。所有其他函数（非相关函数）都可以工作，但我在绘制布局时确实存在一些问题。我最成功的代码是；

        
   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的原因）

copy


Command: Regenerating model - caching viewports.
Command:
Command: Restoring cached viewports - Regenerating layout.
Command: Regenerating layout.
Restoring cached viewports - Regenerating layout.

我想批量打印（第一次打印一个图形，如果成功，则打印文件夹）所有布局到TDS9600和/或dwg2pdf绘图仪。

tia。

[编程交流] vba打印布局

发表回复

精选推荐