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

Тема: Вернуть расстояние между двумя указываемыми точками

Здравствуйте!
Нужно на VBA выполнить действие, аналогичное функции (getdist) в AutoLISP.
Помогите пожалуйста!

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Вернуть расстояние между двумя указываемыми точками

ThisDrawing.Utility.GetDistance

  • Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Re: Вернуть расстояние между двумя указываемыми точками

> Nike
https://www.caduser.ru/forum/topic26445.html
'Определение расстояния
'Между двумя точками
Sub Distance()
Dim A, B As Variant
Dim x, y, z, D As Double
A = ThisDrawing.Utility.GetPoint(, "Укажите 1-ю точку: ")
B = ThisDrawing.Utility.GetPoint(A, "Укажите 2-ю точку: ")
x = A(0) - B(0)
y = A(1) - B(1)
z = A(2) - B(2)
D = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2))
MsgBox Str(D)
End Sub

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

Re: Вернуть расстояние между двумя указываемыми точками

Спасибо!

  • The Rust
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 179
  • Спасибо: 0

Re: Вернуть расстояние между двумя указываемыми точками

> Дарья
А этот макрос работает?

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Вернуть расстояние между двумя указываемыми точками

> The Rust
Работает. А что в нем смущает?

  • The Rust
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 179
  • Спасибо: 0

Re: Вернуть расстояние между двумя указываемыми точками

> Vildar
Да вот:

x = A(0) — B(0)
y = A(1) — B(1)
z = A(2) — B(2)

пишет Syntax error.
p.s. Тестировал на MVB 6.3

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Вернуть расстояние между двумя указываемыми точками

> The Rust
А, есть такая фигня. Длинные тире, замени на минусики.

  • Дарья
  • Восстановленный участник
  • На форуме с 28 января 2008г.
  • Сообщений: 237
  • Спасибо: 0

Re: Вернуть расстояние между двумя указываемыми точками

> Vildar
Да все так и есть.
Тире надо заменить на минусики.

  • Vildar
  • Активный участник
  • Откуда: Саратов
  • На форуме с 15 августа 2008г.
  • Сообщений: 574
  • Спасибо: 11

Re: Вернуть расстояние между двумя указываемыми точками

> Дарья
Есть небольшие замечания:
1.Объявить A и B как массивы doubles

Dim A() As Double, B() As Double

2. x,y,z объявить тоже как double

Dim x As Double, y As Double, z As Double, D As Double

3. Зачем лишняя арифметика в формуле?

Sqr(x ^ 2 + y ^ 2 + z ^ 2)

Еще, по хорошему, нужно обработаль исключение переполнения overflow (но это если проектировать галактику Кин-дза-дза в спирали :)

  • The Rust
  • Восстановленный участник
  • На форуме с 22 мая 2008г.
  • Сообщений: 179
  • Спасибо: 0

Re: Вернуть расстояние между двумя указываемыми точками

Vildar (2009-02-11 07:54:39)

...Длинные тире, замени на минусики....

>
Теперь все в порядке. Спасибо.