PlotConfig
PlotConfig
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
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



