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
模块代码 嘿。。这将为我工作...我所要做的就是在这里和那里调整它....谢谢厘米!收到。。。10-4....我还没有得到这个工作... 你想要dvb吗? 这是链接
页:
1
[2]