Сразу смотрим код:

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. В результате выполнения будет создано новое поле.