Как по координатам из метода GetBoundingBox уменьшить размер окна до этих координат?

зачем так сложно??
вычисли соотношение ширины к высоте (обьекта).Для етого ширину подели на высоту :)
Затем поменяй Ширину окна
ThisDrawing.Width = ThisDrawing.Width * (X/Y)
апотом просто Application.ZoomWindow minP, maxP
при етом ортогогональные стороны могут оказаться не видимыми так-как проходят по самому краю окна. Тем не мение ето не мешает создать нормальный wmf

просто приравниваю соотношение окна к соотношению обьекта
допустим у вас прямоугольник 50 по X и 20 по Y, соотношение сторон будет 50/20=2.5
теперь меняем окно чертежа
ThisDrawing.Width = ThisDrawing.Height * 2.5

мы говорим на разных языках ??
>>zoompickwindow и получаем в окне изображение объекта, который по оси X или Y
приближен "до упора"
не надо делать ни каких зумов руками или использовать zoompickwindow
>>Так вот я и не понимаю по какому-такому закону вы выбираете соотношение ширины и высоты
>>поскольку первый Zoom , дальше в зависиости от размеров может давать различные соотношение
Зум не меняет пропорции обьекта
не надо подстраивать окно под обьект, проще растянуть окно по пропорциям обьекта и уже потом делать зум по точкам обьекта
порядок таков
1. Максимайз окно чертежа(понятно?)
2. Взять точки обьецта (понятно?)
3. Найти пропорцию обьекта (П = Ш/В) (понятно?)
4. Изменить ширину окна чертежа (ширину окна * П)(понятно?)
5. Зум по точкам (понятно?)
6. Експорт
7. Сначала
при етом не важно будет ли окно иметь размер 200х300 или 400х600, ехпорт в wmf будет все равно одинаковый, так же не важно видиш ли ты все окно или только часть его(иногда при растягивании окно чертеж может быть болше чем окно автокада)
если ты делаеш ехпорт больше чем одного раза, не забудь максимайз окно чертежа
ThisDrawing.WindowState = acMax

???
да какая разница что больше???

Sub wmfEx()
Dim rel As Double
Dim minP, maxP
Dim more As Boolean
Dim ss As AcadSelectionSet
ThisDrawing.WindowState = acMax
  Set ss = ThisDrawing.ActiveSelectionSet
    For i = 0 To 100000
        ss.Clear
        ss.SelectOnScreen
        ss.Item(0).GetBoundingBox minP, maxP
        rel = (maxP(0) - minP(0)) / (maxP(1) - minP(1))
        ThisDrawing.Width = ThisDrawing.Height * rel
        Application.ZoomWindow minP, maxP
        ThisDrawing.Width = ThisDrawing.Width + 5
        ThisDrawing.Height = ThisDrawing.Height + 5
        ThisDrawing.SendCommand "REGEN "
        ThisDrawing.Export "C:\" & CStr(i), "WMF", ss
        If MsgBox("Next?", vbYesNo) = vbNo Then Exit For
        ThisDrawing.WindowState = acMax
    Next
End Sub