DWDM을 AutoCAD로 변환

Question

안녕하세요, 어떻게 VBA를 사용하여 AutoCAD 도면을 PDF로 플롯 할 수 있습니까? 나는 시도했다

Sub PlotToPdf() 
ThisDrawing.ActiveLayout.ConfigName = "DWF6 ePlot.pc3" 
Dim plotFileName As String 
plotFileName = "Z:\USERS\KweziM\PROJECT S\MyPlot.pdf" 

Dim result As Boolean 

result = ThisDrawing.Plot.PlotToFile(plotFileName) 
End Sub 

그러나 이것은 작동하지 않는다.

Answer 1

마지막 줄은 서브 루틴 호출이 아닌 함수 호출되어야한다 ... 그것은 당신이 result 변수가 필요하지 않습니다이

ThisDrawing.Plot.PlotToFile plotFileName 

처럼 보일 것입니다.

Answer 2

이 시도 :

Public Sub VBAplot() 
    Dim currentplot As AcadPlot 
    Set currentplot = ThisDrawing.Plot 

    ThisDrawing.ActiveLayout.ConfigName = "PDFCreator" ' Your plot device. 
    ThisDrawing.ActiveLayout.CanonicalMediaName = "A4" 

    ThisDrawing.ActiveLayout.StandardScale = acScaleToFit 
    ThisDrawing.Application.ZoomExtents 
    currentplot.PlotToDevice 


End Sub