아래 VBA를 실행하면 잘 작동되는게 있고 파일 용량이 커서 그런지 빈 흰 화면만 보여요
화일 이 커서 그런지 아니면 참조 화일이 있어서 그런지 원인 부탁 합니다
Sub GetWindowToPlot()
AppActivate ThisDrawing.Application.Caption
Dim point1 As Variant, point2 As Variant
point1 = ThisDrawing.Utility.GetPoint(, “Click the lower-left of the window to plot.”)
ReDim Preserve point1(0 To 1) ‘ Change this to a 2D array by removing the Z position
point2 = ThisDrawing.Utility.GetPoint(, “Click the upper-right of the window to plot.”)
ReDim Preserve point2(0 To 1) ‘ Change this to a 2D array by removing the Z position
ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2
ThisDrawing.ActiveLayout.GetWindowToPlot point1, point2
ThisDrawing.ActiveLayout.PlotType = acWindow
ThisDrawing.ActiveLayout.ConfigName = “DWG to PDF.pc3”
ThisDrawing.Plot.DisplayPlotPreview acFullPreview
End Sub