Тема: DisplayPlotPreview показывает не то что установили в SetWindowToPlot
Доброго времени суток.
Есть документ AutoCAD. Есть пример SetWindowToPlot из хелпа к акаду. Проблема в том, что выбранное окно не совпадает с тем которое мы указываем. 
ThisDrawing.Plot.DisplayPlotPreview acFullPreview
показывает не то что было установлено при помощи SetWindowToPlot
Если у кого нибудь есть интерес, напишите мне на мыло, я вышлю документ.
Вот код из хелпа:
Sub Example_SetWindowToPlot()
Dim point1 As Variant, point2 As Variant
point1 = ThisDrawing.Utility.GetPoint(, "Click the lower-left of the window to plot.")
ReDim Preserve point1(0 To 1) ' Change this to a 2D array by removing the Z position
point2 = ThisDrawing.Utility.GetPoint(, "Click the upper-right of the window to plot.")
ReDim Preserve point2(0 To 1) ' Change this to a 2D array by removing the Z position
ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2
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.Plot.DisplayPlotPreview acFullPreview
End Sub
