Сразу смотрим код:
theView = av.FindDoc("View1") theTheme = theView.FindTheme("Point.shp") theFTab = theTheme.GetFTab theFld = Field.Make("TEST", #FIELD_LONG, 6, 2) theFTab.StartEditingWithRecovery theFTab.AddFields({theFld}) theFTab.StopEditingWithRecovery(TRUE)
Итак, как все это выглядит.
Все, что нужно - это создать отдельный объект Field. В результате выполнения будет создано новое поле.