社区 › CAD › 数以百万计的细节

dubb 发表于 2005-6-30 17:33:22

Option Explicit
Public Sub wb()
UserForm1.Show
End Sub
Public Sub DetailDwf(strfile)
Dim Layout As AcadLayout
Set Layout = ThisDrawing.ActiveLayout
Layout.RefreshPlotDeviceInfo
Layout.ConfigName = "DWF6 ePlot.pc3"
Layout.PlotType = acWindow
Layout.PlotRotation = ac0degrees
Layout.StyleSheet = "vendor medium.ctb"
Layout.CanonicalMediaName = "ANSI_A_(8.50_x_11.00_Inches)"
Layout.PaperUnits = acInches
'Layout.StandardScale = ac1_1
Layout.StandardScale = acScaleToFit
Layout.ShowPlotStyles = False
ThisDrawing.Plot.NumberOfCopies = 1
Layout.CenterPlot = True
Layout.RefreshPlotDeviceInfo
ThisDrawing.Plot.PlotToFile strfile
Set Layout = Nothing
End Sub

模块代码

dubb 发表于 2005-6-30 17:37:24

嘿。。这将为我工作...我所要做的就是在这里和那里调整它....谢谢厘米！收到。。。10-4....我还没有得到这个工作...

dubb 发表于 2005-6-30 17:40:22

你想要dvb吗？

dubb 发表于 2005-6-30 17:41:28

这是链接

查看完整版本: 数以百万计的细节