[evgm]

Здравствуйте,
подскажите, пожалуйста, как получить (на VB)
координаты (левой нижней и правой верхней) этого
резинового прямоугольника
то есть пользователь выделяет области в акаде
а я накапливаю массивы этих координат независимо от того попали ли какие-нить объекты в область до тех пор пока не нажата например правая кнопка мыши (или ентер или что-либо еще)
есть ли какой-нибудь метод/свойство

[Кулик Алексей aka kpblc]

Может, GetCorner поможет? Не уверен, что это есть в каде (сейчас не запустить и не проверить)

[evgm]

спасибо - это то что нужно
а то я сделал через место -
GetPoint без базовой точки,
потом GetPoint с полученной базовой точкой
получалось не очень красиво - видна была линия диагонали прямоугольника.
А как бы узнать что пользователь потом нажал - Enter или Esc?

[Кулик Алексей aka kpblc]

Код:

[Выделить все]

Option Explicit

Function GetRectang() As Variant '(StartPoint As Variant, EndPoint As Variant) As Variant
Dim res(1) As Variant, ptStart As Variant, ptEnd As Variant
  On Error GoTo lErrorStartPoint
  ptStart = ThisDrawing.Utility.GetPoint(, "Начальная точка")
  On Error GoTo lErrorEndPoint
  ptEnd = ThisDrawing.Utility.GetCorner(ptStart, "Конечная точка")
  res(0) = ptStart
  res(1) = ptEnd
  GetRectang = res
  Exit Function
lErrorStartPoint:
  Set GetRectang = Nothing
  Exit Function
lErrorEndPoint:
  Set GetRectang = Nothing
  Exit Function
End Function

Sub test()
Dim res As Variant
  Set res = GetRectang()
  If Not (res Is Nothing) Then
    MsgBox "Все выбрано"
  Else
    MsgBox "Отменен выбор первой или второй точки, гуляем"
  End If
End Sub

[Елпанов Евгений]

Сообщение от Кулик Алексей aka kpblc Может, GetCorner поможет? Не уверен, что это есть в каде (сейчас не запустить и не проверить)

Есть!
пример кода:

Код:

[Выделить все]

(setq p1 (getpoint "\nPick a point")p2(getcorner p1 "\rPick a corner"))

[Кулик Алексей aka kpblc]

Елпанов Евгений, я имел в виду не "в каде", а в VBA Очепятался, извини