nxy_918 发表于 2004-4-24 14:52:00

用vba打印cad图形？

各位大虾/:已经知道打印的范围，和打印比例，并确定用使用的打印机，如何把当前的图形用程序自动打印出来？

mccad 发表于 2004-4-24 21:16:00

Sub Ch9_PrintModelSpace()    ' 验证活动空间是模型空间
      If ThisDrawing.ActiveSpace = acPaperSpace Then      ThisDrawing.MSpace = True      ThisDrawing.ActiveSpace = acModelSpace      End If      ' 设置打印区域的范围和比例      ThisDrawing.ModelSpace.Layout.PlotType = acExtents    ThisDrawing.ModelSpace.Layout. _                        StandardScale = acScaleToFit    ' 将打印份数设置为 1    ThisDrawing.Plot.NumberOfCopies = 1    ' 初始化打印      ThisDrawing.Plot.PlotToDeviceEnd Sub

nxy_918 发表于 2004-4-25 20:29:00

明总：打印范围可否用程序传送打印范围的坐标数组（如：左下角坐标和右上角坐标），而不用人工干预

mccad 发表于 2004-4-25 20:40:00

用：<BR>                       ThisDrawing.ModelSpace.Layout.PlotType = acWindow<BR>                       ThisDrawing.ModelSpace.Layout.SetWindowToPlot LowerLeft, UpperRight<BR>
页: [1]
查看完整版本: 用vba打印cad图形？