Geo Redes

‘declara una tabla de atributos en blanco

miFTab = FTab.MakeNew("nuevatabladeatributos".AsFileName,Point)

’crea un campo nuevo

fld = Field.Make("ID", #FIELD_DECIMAL, 8, 0)

fld.SetVisible(FALSE)

’agrega el campo recién creado a la tabla

miFTab.AddFields({fld})

’localiza la el campo “forma” en la tabla

shapeField = miFTab.FindField("Shape")

’inicia ciclo para crear 10 registros

for each i in 1..10

‘agrega registro en el puntero

newRecNum = miFTab.AddRecord

‘inserta un punto 1@1, 2@2 , etc. en el tema

miFTab.SetValue(shapeField, newRecNum, i@i)

end

’abre la vista1

v = av.GetProject.FindDoc("Vista1")

’inserta tema en la vista

v.AddTheme(FTheme.Make(anFTab))