podschet chisla vershin poligona

Question

Posovetuite script VBA v AtcGISe (ili drugie bolee prostue vozmozhnosti) dlya opredeleniya i zapisi v atributivnuu tablitsu kolichestva vershin poligonov!
Spasibo bolshoe! 

Answer 1

Dim pPointCollection As IPointCollection
Dim lVertexCount As Long
If (Not IsNull([Shape])) Then
  Set pPointCollection = [Shape]
  lVertexCount = pPointCollection.PointCount-1
End If
__esri_field_calculator_splitter__
lVertexCount

Answer 2

Spasibo! Probuu primenit!

Answer 3

Poka ne poluchaetsya.
Pri dobavlenii polya i vubore tipa IVertexCount est variantu Short Integer ili Long Integer. Luchshe bubrat Long Integer?
Obyazatelnu li poslednie 2 stroki v kode?
Spasibo esche raz za pomoch!

Answer 4

разбейте любой из утилит полигон на вертексы, и будет вам счастье в табличной форме :) Недавно серия тем про сборку-разборку прошла. Если коротко, то в тулбоксе есть инструмент разбиения на составляющие, (требует лицензии АркЭдитора), либо бесплатный TypeConvert Хронусова. последний удобнее, т.к. бьет сразу на точки.
    

Answer 5

Poka ne poluchaetsya.
Pri dobavlenii polya i vubore tipa IVertexCount est variantu Short Integer ili Long Integer. Luchshe bubrat Long Integer?
Obyazatelnu li poslednie 2 stroki v kode?
Spasibo esche raz za pomoch!

Long Integer

Текст из моего сообщения нужно сохранить в файле с расширением cal, а потом при расчете поля загрузить его в окошко скрипта. Тогда две строки обязательны.

Или, если делать вручную, тогда две строки не нужны, просто в результат вписать lVertexCount

 

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

Answer 6

Spasibo, rabotaet!