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

Тема: Как получить координату X самой левой точки чертежа?

Уважаемые форумчане, специалисты и юдители VBA.
Подскажите.
Есть чертеж. Как узнать координату X (самую левую) или допустим самую правую.
Т.е. задача получить координаты прямоугольника(4 точки), который бы описывал чертеж (все примитивы - круги, тексты, линии и т.п)

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Как получить координату X самой левой точки чертежа?

Через Document.Limits
Возвращает массив 2х2. Первая пара - нижний левый угол, вторая - верхний правый.
Пример к сожалению привести не могу, - нет времени:(..

  • На форуме с 7 ноября 2005г.
  • Сообщений: 505
  • Спасибо: 0

Re: Как получить координату X самой левой точки чертежа?

Хотя НЕТ!!! Неправда моя.
Drawing Limits и Object Limits это немного разные вещи:\
Если ни один объект не выходит за Document.Limits, то возвращается именно граница чертежа, а не объектов.

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

Re: Как получить координату X самой левой точки чертежа?

Limits
возвращает что то не то.
0, 0, 19, 6
Что за значения?

  • На форуме с 10 августа 2004г.
  • Сообщений: 917
  • Спасибо: 5

Re: Как получить координату X самой левой точки чертежа?

> pif32
Переменная LIMMIN
Оно?
~'J'~

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

Re: Как получить координату X самой левой точки чертежа?

нет

  • На форуме с 10 августа 2004г.
  • Сообщений: 917
  • Спасибо: 5

Re: Как получить координату X самой левой точки чертежа?

> pif32
Я их почему-то все время путаю...

Option Explicit
Sub Test_Limits()
Dim ll As Variant
Dim ur As Variant
Dim x1, x2, y1, y2, p1, p2 As String
On Error GoTo errx
ll = ThisDrawing.GetVariable("EXTMIN")
ur = ThisDrawing.GetVariable("EXTMAX")
x1 = CStr(ll(0)): y1 = CStr(ll(1))
x2 = CStr(ur(0)): y2 = CStr(ur(1))
p1 = Replace(x1, ",", ".") & "," & Replace(y1, ",", ".")
p2 = Replace(x2, ",", ".") & "," & Replace(y2, ",", ".")
ThisDrawing.SendCommand "_rectang" & vbCr & p1 & vbCr & p2 & vbCr
errx:
End Sub

~'J'~