Нумерация полигонов

[Pavel]

Что-то я совсем затупил...
Есть полигональная тема, в ней очень много полигонов, им нужно присвоить номера от 1 до n, где n - последний полигон.
Читал вот это - viewtopic.php?f=15&t=3991 не помогло...

[nadiopt]

через калькулятор поля. вот только по какому принципу нужно нумеровать полигоны - как попало?

[Pavel]

через калькулятор поля. вот только по какому принципу нужно нумеровать полигоны - как попало?

А что именно писать в этом калькуляторе? Нумерация идет сплошная по порядку.

[ГИС программист]

через калькулятор поля. вот только по какому принципу нужно нумеровать полигоны - как попало?

А что именно писать в этом калькуляторе? Нумерация идет сплошная по порядку.

Давайте сделаем по шагам;) Открываете таблицу атрибутов, щелкаете правой кнопкой на колонке, в которую Вы хотите занести порядковый номер и жмете Field Calculator. Ставите галочку Advanced и вводите в текстовое поле "Pre-Logic VBA Script Code" следующий текст:

Код: Выделить всё

Static rec As Long 
Dim pStart As Long 
Dim pInterval As Long 

' Указываем стартовый номер
' ====================================
pStart = 1 

' С каким интервалом наращиваем номер
' =======================================
pInterval = 1 

 If (rec = 0) Then 
rec = pStart 
Else 
rec = rec + pInterval 
End If 

А в следующее поле вводите просто rec. Выглядит примерно, так :

[Pavel]

Спасибо!!! Как раз то, что нужно!
Надо бы занятся будет синтаксисом VBA...

[nadiopt]

гы а можно было проще:) номер= FID+1:)

[ГИС программист]

гы а можно было проще:) номер= FID+1:)

При условии, что FID первого объекта==0 и нумерация всех FID-ов непрерывна. А если кто-то удалил полигон, то что у Вас получится, если FID-ы вида [0,1,5,6,8]? Далеко не по порядку:)

[Pavel]

гы а можно было проще:) номер= FID+1:)

Скрипт очень простой! Куда уж проще?! Я предполагал, что так он и будет выглядеть, но синтаксиса VBA не знаю... Последнее, на чем я остановился был QBasic, и то это было давно и неправда! Плюс все-таки эстетичней смотрится!
Спасибо за помощь!

[Pavel]

Возвращаясь к напечатанному (или к наболевшему, как посмотреть)...
Есть две колонки "Field" и "Area". "Field" заполнено значениями полностью. "Area" - нет (имеются ячейки со значением "0"). Нужно заполнить "Area" из колонки "Field", причем если "Area" имеет значение, то заполнять его не надо. Наужно заполнить лишь нули.
Пытался решить это брутфорсом:

Код: Выделить всё

Static rec As Long 

If (rec = 0) Then 
rec = [FIELD] 
 
End If

Но не помогло. Заполняет колонку только первым значением ячейки из "Field".
Что нужно дописать в скрипт?

[AndreyL]

Код: Выделить всё

On Error Resume Next

If ([Area]=0) Then
 reg = [FIELD]
Else
 reg = [Area]
End If

__esri_field_calculator_splitter__
reg

[Pavel]

Спасибо за подсказку! Правда, последние две строчки пришлось убрать.
И еще... Где можно почитать про VBA для АркГИС? А то везде натыкаюсь только для Exel...

[AndreyL]

Правда, последние две строчки пришлось убрать.

Последние две строчки - это сказано, что писать в поле.

Где можно почитать про VBA для АркГИС? А то везде натыкаюсь только для Exel...

VBA в АркГИС и в Ёкселе одинаковый - микрософтовский. Объекты разные и идеология у АркОбжектс немного своя, ближе к СИшной. Гляньте вот эту тему. Ну и ДатаПлюсовский сайт - там есть специальные ветки.

[Pavel]

Последние две строчки - это сказано, что писать в поле.

А-а-а... Ну это я догадался...

VBA в АркГИС и в Ёкселе одинаковый - микрософтовский. Объекты разные и идеология у АркОбжектс немного своя, ближе к СИшной. Гляньте вот эту тему. Ну и ДатаПлюсовский сайт - там есть специальные ветки.

Спасибо! Почитаем!

[self-improving]

Есть полигональная тема, в ней очень много полигонов, им нужно присвоить номера от 1 до n, где n - последний полигон.

через калькулятор поля. вот только по какому принципу нужно нумеровать полигоны - как попало?

Навеяло
Если при этом таблица отсортирована по какому-либо полю (не FID!), и нумерация должна быть в соответствии с этой сортировкой. Есть идеи?
Варианты перегона в dbf/excel и пр. - не предлагать, хочется чего-нибудь красивого и не столь топорного =)