vba内打印控制语句

mikewolf2k

老大,你说的是不是指2000以上增加的lineweight功能?那得每根线都得设置,太麻烦了吧?我想做的就和R14的打印那样,只不过可以一次输入多页的坐标.


如果说不能按颜色设置宽度,那我自编程序打印时各种颜色的宽度是多少呢?是当前cad打印中保存的颜色宽度还是别的?由于我要打的全部是表格,线宽能固定为0.2mm左右就可以了,我就怕不能设置到时来个不合适的线宽就惨了.或者程序能将所有内容的打印线宽全部设为0.2mm也行.

mccad

线宽可以在图层里设置，而不需要每根线都设置，只要指定线在指定的图层里，而图层已经设置好线宽，就可以打印出线宽。


另外，你也可以编辑颜色相关打印样式表，但不是通过程序来编辑，而不手工编辑，一次编辑后，以后都可以用。

mikewolf2k

谢老大.


第一段还是不大懂,"指定线"是什么意思,某一根特定线?具体一点吧,我要图片中所有的图元打印的线宽都是0.2mm,该怎么做?


第二段意思就是得指定一个特定的打印样式表,对吗?

mccad

图元对象的图层属性，而图层对象有线宽属性，这该明白了吧。把图元指定到已经设置好线宽的图层，打印就可以。


第二段的意思就是打印图形时使用特写的打印样式表来打印。该打印样式表已经设置了线宽了。

mikewolf2k

啊,好像明白了,回头编程时在仔细研究研究.


多谢老大,真是良师也.鲜花一朵,略表心意.

Alan.Shi

不知道为什么打印样式怎么也用不上，请大侠们帮我看看哪出了问题啊

Public Sub SetPlotConfiguration()
    objPlotConfiguration.ConfigName = "DFCreator"
    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

fjfhgdwfn

可以做个列表的，到时选就是了

如果是用不上的话，应是没有找到这个文件。

Alan.Shi

打印样式文件时有的，我在打印对话框里就可以选，但是我不想让它出现对话框，我把它设置为全路径都不可以，我现在把它改成了，还是不行，请哪位高人帮我看看啊

Sub plotpdf()
    Dim Plotset As AcadPlotConfiguration
    Set Plotset = ThisDrawing.PlotConfigurations.Add("pdf")
    Plotset.ConfigName = "ComputerPrint"
    Plotset.StyleSheet = "Fab Dwg.ctb"
    Plotset.CanonicalMediaName = "A3"
    Plotset.PlotWithPlotStyles = True
    Plotset.PlotRotation = ac90degrees
    Plotset.ShowPlotStyles = True
    Plotset.PaperUnits = acMillimeters
    Plotset.PlotType = acExtents
    Plotset.StandardScale = acScaleToFit
    Plotset.CenterPlot = True
    ThisDrawing.Application.ActiveDocument.plot.PlotToDevice ("ComputerPrint")
End Sub

fjfhgdwfn

CAD 设置问题不？是不是要改一个变量才行。

MSITStore:D:\Program%20Files\AutoCAD%202006\help\acad_acr.chm::/ACR.ab.040.P.PSTYLEPOLICY.htm">PSTYLEPOLICY控制使用CTB还是STB

我试了程序，在我这是没有问题的。

Alan.Shi

这个我明天要去看下才知道，不过我们用的打印样式全部是CTB的，不过还是谢谢你，让我有多学到了一点