• SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Тема: Как найти все полилинии с Elevation=0?

Необходимо найти все полилайны с Elevation=0, и если полилайн стыкуется (т.е. заканчивается в начале следующего полилайна) у которого Elevation отлично от 0 то следует назначит первому значение Elevation второго. И как все это можно реализовать, на VBA ;)

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

Re: Как найти все полилинии с Elevation=0?

Извини, не понимаю проблемы. Если выбрать  полилинию с помощью метода GetEntity(к примеру)
то в свойствах выбранного объекта можно увидеть

: Elevation : 0 : Double : ThisDrawing.Example_SelectOnScreen

Ну а дальше сам, что-то типа..

    ThisDrawing.Utility.GetEntity returnObj, basePnt, "Select an object"
    returnObj.Elevation = 10
    returnObj.Update = True

  • SmeL
  • SmeL
  • Активный участник
  • Откуда: Молдова
  • На форуме с 29 сентября 2005г.
  • Сообщений: 464
  • Спасибо: 1

Re: Как найти все полилинии с Elevation=0?

2Воха
Спасибо за ответ, он не отвечает на мой вопрос (который плавно перехал https://www.caduser.ru/forum/topic21231.html (Как определить прилегающие полилинии?)), но отвечает на тот, что я еще не успел еще задать.

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

Re: Как найти все полилинии с Elevation=0?

Ну значит хоть в чем то помог. А на счет прилегания... ничего умней уже обсуждаемых в указанной ветке методов в голову не лезет =(

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

Re: Как найти все полилинии с Elevation=0?

Ещё один дурацкий совет.
Ведь есть простой способ выбирать объекты с заданными свойствами через _.QSELECT. Задаёшь необходимый диапазон параметров и значений,  получаешь набор и делай с ним что хош. Диалоговое окно этой команды вызывается кнопочкой с изображением воронки и молнии. Кнопка расположена на диалоговом окне свойств объектов.