topic Betreff: Plot to pdf automaticaly using acwindow as a plotType in VBA Forum

Plot to pdf automaticaly using acwindow as a plotType

wianeh6700 — Tue, 10 Aug 2021 13:28:53 GMT

Hi, I have to create a VBA macro for AutoCAD, but I'm no VBA expert.

The main purpose of the code is to plot dwg files to pdf file automatically

I want to use the acwindow as a plot type but I want the conversion to be automatic

So far I worked on this code, but you still have to insert the corners manually

code:

Public Sub Example_SetWindowToPlot()

Dim pdfFile As String
pdfFile = "D:\stage\output.pdf"

AppActivate ThisDrawing.Application.Caption

Dim point1 As Variant, point2 As Variant

' Get first point in window

point1 = ThisDrawing.Utility.GetPoint(, "Click the lower-left of the window to plot.")
ReDim Preserve point1(0 To 1)

' Get second point in window

point2 = ThisDrawing.Utility.GetPoint(, "Click the upper-right of the window to plot.")
ReDim Preserve point2(0 To 1)

ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2

' Read back window information

ThisDrawing.ActiveLayout.GetWindowToPlot point1, point2

MsgBox "Press any key to plot the following window:" & vbCrLf & vbCrLf & _
"Lower Left: " & point1(0) & ", " & point1(1) & vbCrLf & _
"Upper Right: " & point2(0) & ", " & point2(1)

ThisDrawing.ActiveLayout.PlotType = acWindow

ThisDrawing.ActiveLayout.ConfigName = "DWG to PDF.pc3"
ThisDrawing.ActiveLayout.CanonicalMediaName = "ISO_A4_(210.00_x_297.00_mm)"
ThisDrawing.ActiveLayout.CenterPlot = True
ThisDrawing.ActiveLayout.StandardScale = acScaleToFit

Dim result As Boolean

result = ThisDrawing.Plot.PlotToFile(pdfFile)

If result Then

MsgBox "Plotting to pdf file succeeded."

Else

MsgBox "Plotting to pdf file failed."

End If

End Sub

Betreff: Plot to pdf automaticaly using acwindow as a plotType

Alfred.NESWADBA — Sat, 14 Aug 2021 19:32:10 GMT

Hi,

>> but you still have to insert the corners manually

Well, how could the coordinates be found by your program?

When you ask the user to input lower left point ... how is the user specifying this point?
Do any rules exist to find this point automatically?

- alfred -

Betreff: Plot to pdf automaticaly using acwindow as a plotType

wianeh6700 — Sun, 15 Aug 2021 14:32:02 GMT

Hi, thank u for answering

I'm wondering if i can draw a frame or create a layer that contains the limits, is this possible ??

Betreff: Plot to pdf automaticaly using acwindow as a plotType

Alfred.NESWADBA — Sun, 15 Aug 2021 14:48:10 GMT

Hi,

>> I'm wondering if i can draw a frame or create a layer

>> that contains the limits, is this possible ??

Yes, then you need to either create a selection-set for polylines on this layer (or scan the model-space for such items), then get the extents of these polylines and use them to evaluate lower-left and upper-right point.

- alfred -

Re: Plot to pdf automaticaly using acwindow as a plotType

maratovich — Sun, 15 Aug 2021 18:48:36 GMT

It may be easier for you to use a ready-made solution - Revers