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

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

Подскажите пожалуйста, как щелчком мыши выбрать полилинию и считать её координаты в массив

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

Re: Как считать координаты полилинии в массив?

ThisDrawing.Utility.GetEntity obj, basePnt, vbCr & "Select polyline :"
If obj.ObjectName = "AcDbPolyline" Then retCoord = obj.Coordinates

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

Re: Как считать координаты полилинии в массив?

Спасибо Вам Анатолий за помощь.
Не могли бы Вы прислать более подробно код этой программы (скажем как она будет выглядеть в прцедуре).

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

Re: Как считать координаты полилинии в массив?

Sub getCoords()
Dim obj As AcadEntity
ThisDrawing.Utility.GetEntity obj, basePnt, vbCr & "Select polyline :"
If obj.ObjectName = "AcDbPolyline" Then
  retCoord = obj.Coordinates
Else: MsgBox "This object isn't a polyline!"
    Exit Sub
End If
For j = 0 To UBound(retCoord) - 1
MsgBox j & "    " & retCoord(j)
Next j
End Sub

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

Re: Как считать координаты полилинии в массив?

Уважаемый Анатолий, не могли бы Вы подсказать, что в Вашей программе является массивом? И когда процедуру я запускаю на выполнение компилятор требует объявить: basePnt, retCoord.
Что делает этот цикл:
For j = 0 To UBound(retCoord) - 1
MsgBox j & " " & retCoord(j)
Next j
Не могли бы Вы снабдить программу комментариями.
Ёщё раз большое спасибо вам за помощь.

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

Re: Как считать координаты полилинии в массив?

Анатолий, спасибо у меня получилось.
Я долго мучился, но мы это сделали. Я твой должник.