Итак, сразу код:
theView = av.FindDoc("View1") tbl = FTab.MakeNew("c:\test.shp".AsFileName, Point) theTheme = FTheme.Make(tbl) shpField = tbl.FindField("Shape") fields = List.Make fields.Add(Field.Make("IDS", #FIELD_SHORT, 4, 0)) tbl.AddFields(fields) for each x in 1..5 rec = tbl.AddRecord p = Point.Make(0.2+(x/10),0.6+(x/10)) tbl.SetValue( shpField, rec, p ) end theView.AddTheme(theTheme)
А вот такой будет примерно результат.
Что здесь Важно. Самое первое это добавить хоть одно свое поле, иначе AddRecord не сработает и вернет -1.
fields = List.Make fields.Add(Field.Make("IDS", #FIELD_SHORT, 4, 0)) tbl.AddFields(fields)
Ну и само добавление точки. Немного не привычно, дело в том, что полю Shape нужно установить соответствующий объект. У нас точка, значит точку.
p = Point.Make(0.2+(x/10),0.6+(x/10)) tbl.SetValue( shpField, rec, p )
Вот в принципе и все.