[DonVik]

Всем доброго.
У меня появилась неожиданная проблема с некоторыми файлами.

Для примера я взял за основу код из хелпа, определяющий окно , которое должно посылаться на печать:

Код:

[Выделить все]

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.PlotType = acWindow
    ThisDrawing.Plot.DisplayPlotPreview 1
    
End Sub

Выбираю сначала нижний левый угол, потом правый верхний, но в preview вижу что выбранное окно сдвинулось

Это происходит не на всех чертежах.

Вопрос:Что нужно учитывать чтоб это окно не сдвигалось, или как правильно корректировать его координаты? От чего оно зависит?

Файлы скрина и бажный чертеж прикладываю.

Заранее спасибо.

[rocker]

У меня все нормально с Вашим файлом ... (AutoCAD Mechanical 2008).

[Savuk]

В настройках в части Plot scale поставьте галочку Fit to paper и оторентируйте првильно страницу

У меня с вашим листом потребовались эти действия

[DonVik]

AutoCAD Mechanical 2008

Хм. Пользую 2007 и 2002... В обоих лажа.

Savuk

Выставленно. Но толку то? Это реагирует только на ручную настройку, а я программу пишу, дабы сама принтер выбирала и формат выставляла в зависимости от выбранного мной блока. И вот этот баз очень достает.