• На форуме с 19 августа 2005г.
  • Сообщений: 15
  • Спасибо: 0

Тема: Как поменять размер активного окна?

Мне надо экспортировать "прямоугольник" в wmf или bmp и потом в "третье" приложение, проблема вот в чём: В "третьем" приложении этот прямоугольник должен быть определённого размера , если делать экспорт через bmp, то импорт в "третье" приложение получается нужного размера, но фон получается непрозраным  :x
а если делать через wmf, то всё нормально , но надо немного увеличивать изображение. Чтобы экспорт в wmf был корректным надо размер окна свернуть до размера прямоугольника и потом делать экспорт. Не подскажете ли как?

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как поменять размер активного окна?

проще вычислить Obj.GetBoundingBox и сделать zoom по етим точкам, а затем уже експортировать

  • На форуме с 19 августа 2005г.
  • Сообщений: 15
  • Спасибо: 0

Re: Как поменять размер активного окна?

так я так и делаю , только zoom по этим точкам делает до той границы(вертикаль или горизонталь), которая ближе всех находится к краю экрана, а остальные куски остаются незаполненными

  • cadhelp
  • Восстановленный участник
  • На форуме с 24 февраля 2004г.
  • Сообщений: 231
  • Спасибо: 0

Re: Как поменять размер активного окна?

в общих чертах
ThisDrawing ето почти как форма, так-что
ThisDrawing.Utility.GetEntity obj, Null, "Select obj :"
всять обьект
obj.GetBoundingBox minP, maxP
взять точки
ThisDrawing.WindowState = acMax
максимайз
relation = (maxP(0) - minP(0)) / (maxP(1) - minP(1))
найти соотношение
ThisDrawing.Width = ThisDrawing.Height * relation
ресайз окно
Application.ZoomWindow minP, maxP
зум по точкам
обрати внимание что окно не может быть меньше определенных размеров

  • На форуме с 19 августа 2005г.
  • Сообщений: 15
  • Спасибо: 0

Re: Как поменять размер активного окна?

Новый вопрос -- новая тема: Как по координатам из метода GetBoundingBox уменьшить размер окна до этих координат?.
/Администратор./