Private Function DeletePlotConfigurations(ByVal Document As AcadDocument) As Boolean
Try
For Each plot As AcadPlotConfiguration In Document.PlotConfigurations
plot.Delete()
Next
DeletePlotConfigurations = True
Catch ex As Exception
DeletePlotConfigurations = False
End Try
End Function
私有函数CopyPageSetups(ByVal AutoCAD_应用程序作为AcadApplication,ByVal Document作为AcadDocument,ByVal PageSetupFile作为String,ByVal PageSize作为String)作为BooleanTry Dim ACDbx作为AxDbDocument Dim colConfig作为AcadPlotConfigurations ACDbx=AutoCAD_应用程序。GetInterfaceObject(“ObjectDBX.AxDbDocument.18”)ACDbx。打开(PageSetupFile)colConfig=ACDbx。PlotConfigurations Dim i As Integer=0,对于每个PLOTCONFIGURATION,如果PlotConfig为COLCONIG中的AcadPlotConfiguration。名称包含(PageSize)然后i+=1 End If Next If(i