• Миша
  • Восстановленный участник
  • На форуме с 31 декабря 2001г.
  • Сообщений: 322
  • Спасибо: 0

Тема: Получение внешних границ набора объектов чертежа

Каким образом в VBA можно получить координаты внешних границ всех объектов чертежа вместе взятых?
Тоже самое как можно сделать для блока?

  • На форуме с 24 июня 2002г.
  • Сообщений: 150
  • Спасибо: 0

Re: Получение внешних границ набора объектов чертежа

А object.GetBoundingBox чем не угодил?
для blockref оно работает.
а вот для selectionset видимо придется перебирать каждый объект и искать минимальную координату и максимальную
пока в мою больную голову более ничего не приходит....

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Получение внешних границ набора объектов чертежа

Миша, вот частичное решение первой задачи - получение габаритных размеров области занимаемой всеми объектами чертежа:

     Dim b As Double, h As Double
     ZoomExtents
     ThisDrawing.ActiveSpace = acModelSpace
     Set MViewPort = ThisDrawing.ActiveViewport
     b = MViewPort.width  ' ширина "коробки"
     h = MViewPort.height ' высота  "коробки"

Как получить координаты границ не нашел.
Есть, впрочем, вариант на уровне идеи - создать временный блок из всех зачетных примитивов и далее см.
Дмитрий (2005-01-29 15:54:35)

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Получение внешних границ набора объектов чертежа

Leonid пишет:

b = MViewPort.width  ' ширина "коробки"
        h = MViewPort.height ' высота  "коробки"

нет, это не то... это размер экрана

  • algol
  • Восстановленный участник
  • На форуме с 5 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Получение внешних границ набора объектов чертежа

mini=ThisDrawing.GetVariable("extmin")
maxi=ThisDrawing.GetVariable("extmax")

  • Leonid
  • Восстановленный участник
  • На форуме с 16 июня 2003г.
  • Сообщений: 389
  • Спасибо: 0

Re: Получение внешних границ набора объектов чертежа

> algol
Да... век живи, век учись. Ведь этих сист. переменных нет даже в весьма полном перечне включающем и недокументированные переменные из книги Н.Н.Полещука.
Спасибо за науку.

  • hcs
  • Восстановленный участник
  • На форуме с 20 января 2005г.
  • Сообщений: 4
  • Спасибо: 0

Re: Получение внешних границ набора объектов чертежа

> algol
Спасибо тебе, о человечище! Низкий поклон! В моей теме ( https://www.caduser.ru/forum/topic14928.html ), теперь я смогу разобраться, вычислив коэффициент смещения!
Дай бог тебе здоровья :)

  • algol
  • Восстановленный участник
  • На форуме с 5 февраля 2005г.
  • Сообщений: 27
  • Спасибо: 0

Re: Получение внешних границ набора объектов чертежа

Рад был помогти.