Subscribe Topic

Rank: 1

Marijan Glavac

Newbie

posts: 0

Registered: 2011-6-5

Message 1 of 1

18-05-2011 05:22 . pm   |   View his/her posts only
I try to make page set up for "old drawings" from VBA.
WHen start test example ZWCAD 2011 (vernum="2011.02.28(16649)") :

Sub Example_PlotConfigurations()

' Define the plot variable
Dim currentPlot As ZwcadPlot
Set currentPlot = ThisDocument.PLOT
Dim plotconfig As ZwcadPlotConfiguration

Set plotconfig = ThisDocument.PlotConfigurations.Add("123")
plotconfig.ConfigName = "FinePrint"
plotconfig.CanonicalMediaName = "A3"
plotconfig.StandardScale = zc1_1
ThisDocument.ActiveLayout.CopyFrom plotconfig
currentPlot.PlotToDevice

End Sub

ZWCAD crahes down each time.

And how to set plot configuation (page set up) from VBA ? (drawing has layou view)

Regards,

Magla
See also
X