[编程交流] 无法设置绘图仪配置

 
   Set plotObj = ThisDrawing.Plot
   Set objLayout = ThisDrawing.ActiveLayout
   Set PlotConfigurations = ThisDrawing.PlotConfigurations
   On Error Resume Next
   objLayout.CopyFrom PlotConfigurations.Item(cboPrinter.Value)
   Select Case cboPrinter.Value
   Case "Piping BW - B-size 11x17"
       objLayout.RefreshPlotDeviceInfo
       objLayout.ConfigName = cboPrinter.Value
       objLayout.PlotType = acExtents
       objLayout.UseStandardScale = True
       objLayout.StandardScale = acScaleToFit
       objLayout.PlotRotation = ac90degrees
       objLayout.CanonicalMediaName = "11x17"
       objLayout.PlotWithPlotStyles = True
       objLayout.StyleSheet = cboPlotStyle.Value
       plotObj.PlotToDevice
    End Select