如果说不能按颜色设置宽度,那我自编程序打印时各种颜色的宽度是多少呢?是当前cad打印中保存的颜色宽度还是别的?由于我要打的全部是表格,线宽能固定为0.2mm左右就可以了,我就怕不能设置到时来个不合适的线宽就惨了.或者程序能将所有内容的打印线宽全部设为0.2mm也行. 线宽可以在图层里设置，而不需要每根线都设置，只要指定线在指定的图层里，而图层已经设置好线宽，就可以打印出线宽。
另外，你也可以编辑颜色相关打印样式表，但不是通过程序来编辑，而不手工编辑，一次编辑后，以后都可以用。 谢老大.
第一段还是不大懂,"指定线"是什么意思,某一根特定线?具体一点吧,我要图片中所有的图元打印的线宽都是0.2mm,该怎么做?
第二段意思就是得指定一个特定的打印样式表,对吗? 图元对象的图层属性，而图层对象有线宽属性，这该明白了吧。把图元指定到已经设置好线宽的图层，打印就可以。
第二段的意思就是打印图形时使用特写的打印样式表来打印。该打印样式表已经设置了线宽了。 啊,好像明白了,回头编程时在仔细研究研究.
多谢老大,真是良师也.鲜花一朵,略表心意. 不知道为什么打印样式怎么也用不上，请大侠们帮我看看哪出了问题啊
Public Sub SetPlotConfiguration()
objPlotConfiguration.ConfigName = "PDFCreator"
objPlotConfiguration.StyleSheet = "Fab Dwg.ctb"
objPlotConfiguration.CanonicalMediaName = "A3"
objPlotConfiguration.StandardScale = acScaleToFit
objPlotConfiguration.CenterPlot = True
objPlotConfiguration.PlotWithPlotStyles = True
objPlotConfiguration.PlotWithLineweights = False
objPlotConfiguration.PlotHidden = False
objPlotConfiguration.PlotType = acExtents
objPlot.NumberOfCopies = 1
objPlot.QuietErrorMode = True
End Sub <p>可以做个列表的，到时选就是了</p><p>如果是用不上的话，应是没有找到这个文件。</p> <p>打印样式文件时有的，我在打印对话框里就可以选，但是我不想让它出现对话框，我把它设置为全路径都不可以，我现在把它改成了，还是不行，请哪位高人帮我看看啊</p><p>Sub plotpdf()<br/> Dim Plotset As AcadPlotConfiguration<br/> Set Plotset = ThisDrawing.PlotConfigurations.Add("pdf")<br/> Plotset.ConfigName = "ComputerPrint"<br/> Plotset.StyleSheet = "Fab Dwg.ctb"<br/> Plotset.CanonicalMediaName = "A3"<br/> Plotset.PlotWithPlotStyles = True<br/> Plotset.PlotRotation = ac90degrees<br/> Plotset.ShowPlotStyles = True<br/> Plotset.PaperUnits = acMillimeters<br/> Plotset.PlotType = acExtents<br/> Plotset.StandardScale = acScaleToFit<br/> Plotset.CenterPlot = True<br/> ThisDrawing.Application.ActiveDocument.plot.PlotToDevice ("ComputerPrint")<br/>End Sub</p> <p>CAD 设置问题不？是不是要改一个变量才行。</p><p><a href="mk:@MSITStore:D:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ACR.ab.040.P.PSTYLEPOLICY.htm">PSTYLEPOLICY</a>控制使用CTB还是STB</p><p>我试了程序，在我这是没有问题的。</p> 这个我明天要去看下才知道，不过我们用的打印样式全部是CTB的，不过还是谢谢你，让我有多学到了一点
页:
1
[2]