aview = av.FindDoc("View1")
atheme = aview.FindTheme("Theme1")
aftab = atheme.GetFTab
shapefield = aftab.FindField("Shape")
atrans = Transform2D.Make
atrans.scale(2@2)
aftab.SetEditable(true)
for each record in aftab
curshape = aftab.returnValue(shapefield, record)
curshape.Transform(atrans)
------- aftab.setValue(shapefield,record,curshape)end
aftab.SetEditable(false)
но перед этим лучше сделать резурвную копию сшейпа, ато он может испортится.