Plot Origin

[GeeHaa]

Hi,

Can someone tell me why this isn't moving the plot origin.

Sub Plot_Test()
Dim Cur_layout As AcadLayout
Dim Origin(0 To 1) As Double
Origin(0) = 0.5
Origin(1) = 0#

Set Cur_layout = ThisDrawing.ActiveLayout

With Cur_layout
.CenterPlot = False
.PlotOrigin = Origin
.PlotType = acExtents
.PlotRotation = ac90degrees
.PlotWithPlotStyles = True
.StyleSheet = "monochrome.ctb"
End With

ThisDrawing.Plot.DisplayPlotPreview (acFullPreview)

End Sub

Thanks

[GeeHaa]

Evidently the Plotorigin is using millimeters instead of inches. If I change the y (origin(1) )coordinate to 12.7 (plot rotated 90) it offsets the plot by 0.5 inches in th X direction.

Is there a way to get it to use inches? I tried .PaperUnits

Thanks

[arcticad]

mm * 25.4 = Inches

[Anonymous]

you should have to

.UseStandardsScale True