关于monochrome.ctb打印的问题

hellomoshi

1.     Const NewFile = "monochrome.ctb"
   
2.     Na = ThisDrawing.ActiveLayout.Name
   
3.     ThisDrawing.ActiveLayout.StyleSheet = NewFile

复制代码

已经通过代码设置了"monochrome.ctb"的打印样式 ，但是打出来以后有颜色的线条还是虚的，这是什么问题？

nslove44202489

With Me.Thisdrawing.ActiveLayout
                .ConfigName = "DWG To PDF.pc3"
                .UseStandardScale = True
                .PaperUnits = AcPlotPaperUnits.acMillimeters
                .StandardScale = AcPlotScale.acScaleToFit
                .SetWindowToPlot(leftdownPnt, rightUpPnt)
                .PlotHidden = False
                .CenterPlot = True
                .PlotWithLineweights() = False
                .StyleSheet = "monochrome.ctb"
            End With

hellomoshi

nslove44202489 发表于 2019-5-31 19:46
With Me.Thisdrawing.ActiveLayout
                .ConfigName = "DWG To PDF.pc3"
                .U ...

Thanks♪(･ω･)ﾉ学习了