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

Тема: Замкнутый контур по точке внутри него

Можно ли получить координаты замкнутого контура в виде массива точек. То есть я из программы задаю точку. Если вокруг нее есть контур - получаю массив, если нет то ноль.

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

Re: Замкнутый контур по точке внутри него

Sub AddB()
    Dim Pt
    Pt = ThisDrawing.Utility.GetPoint(, "PPPPPoint!")
    Dim strPt As String
    strPt = CStr(Pt(0)) & "," & CStr(Pt(1)) & " "
    ThisDrawing.SendCommand ("-BOUNDARY A I N N  " & strPt)
End Sub

потом пройтись по вершинам полигона, и собрать массив.
ежели найдете иной способ - приглашаю к общению, самому нада.

  • Откуда: Москва
  • На форуме с 2 июля 2004г.
  • Сообщений: 2,538
  • Спасибо: 10

Re: Замкнутый контур по точке внутри него

> Vetrodar
В свое время столкнулся с проблемой.
Если контур сложный и находится далеко от начала координат, акад не может создать BOUNDARY , но если все линии переместить поближе к точке 0,0,0 то все срабатывает. То-же самое с офсетом.
Надеюсь пригодится...