Hi all,
I'm trying to create a batch plot utility using ObjectDBX. But I'm not able to get the Plot or PlotToDevice methods. Could anybody please point me to the right direction?
Code:
Dim oAxDbDoc As New AxDbDocument ' Declare variable
Dim i As Integer
For i = LBound(lstDwgs.List) To UBound(lstDwgs.List)
oAxDbDoc.Open lstDwgs.List(i) 'ObjectDBX
Dim item As AcadLayout
For Each item In oAxDbDoc.Layouts ' Start of loop through all layouts
item.ConfigName = cboPlotter.Text ' device name
item.CanonicalMediaName = cboPsize.Text ' Paper size
item.StyleSheet = cboPStyleTab.Text ' CTB file
item.StandardScale = acScaleToFit ' Scale to fit
item.PlotType = acExtents ' Extents
item.CenterPlot = True ' Center
item.PaperUnits = acMillimeters ' Units
item.PlotRotation = ac0degrees ' Rotation
'------------------------------------------------------------------------------
' Here I have a problem
' ??acPlotOrientationLandscape ' Orientation
' ??.plot ' Proceed with plot
'------------------------------------------------------------------------------
Next i
End Sub
Many thanks & regards,
Abdul Huck