这个DWG文档究竟设置了什么打印导致范围大幅度偏移？

lihezhou

Sub Example_SetWindowToPlot()
    ' This example allows the user to define an area in the current layout
    ' and displays a plot preview of the defined area.
    '
    ' * Note: You have to exit the
    ' plot preview before the VBA example will stop and control will be returned

    Dim point1 As Variant, point2 As Variant

    ' Get first point in window
    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

    ' Get second point in window
    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

    ' Send information about window to current layout
    ThisDrawing.ActiveLayout.SetWindowToPlot point1, point2

    ' Read back window information
    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)

    ' Be sure to plot a view, not some other plot style
    ThisDrawing.ActiveLayout.PlotType = acWindow

    ' Send Plot To Window
    ThisDrawing.Plot.DisplayPlotPreview acFullPreview
End Sub
用上面这个示例代码测试一般的图档，打印范围是正确的。但是打印我附件上的这个文件就大幅度的偏移，各位大侠帮我找找原因究竟设置了什么情况。
我错了个自动打印图框的插件，在工作中时不时会遇到一些图档打印偏位，导致这个功能无法正常使用。在以往遇到这种情况我是把这个图档上所有内容ＣＴＲＬ＋Ｃ复制到新建的一个ＣＡＤ文档中后正常使用。所以我断定是这个图档内部设置了什么东西。但是一直都没有找出来。苦惑我5年之久了！！！！！
CAD2004到2012我都试过，结果是一样的！！

zzyong00

可能原因，图形界线(limits)的问题，也有可能是教育版的问题

lihezhou

我觉得不是你说的这样的问题

vbcad

我感觉应该将世界坐标转换成打印坐标。

lihezhou

怎么转换打印的坐标！

wwswwswws

PtMax_UCS = ThisDrawing.Utility.TranslateCoordinates(ptMax, acWorld, acDisplayDCS, False)            '将世界坐标(WCS)转换为显示坐标(DCS)

lihezhou

还是不行！！！

lihezhou

我觉得不是坐标的问题。应该是哪个变量出了问题。或者是内存出了问题!

vbcad

如果手动打印设置不偏移，而用自己写的代码打印发生偏移，我感觉就是坐标问题，仔细查查TranslateCoordinates的用法看看，打印坐标是2维的。

lihezhou

其他图档没有问题。就这个图档有问题。你说是什么问题。还是代码的问题吗？