v1=av.GetActiveDoc 'Активный вид
t1=v1.GetActiveThemes.Get(0) 'Активная точечная тема
ft1=t1.GetFTab 'Таблица темы
pnt1=Point.Make(x,y) 'Создаём точку (x,y - числа)
ft1.SetEditable(TRUE) 'Включаем на редактирование
rec=ft1.AddRecord 'Добавляем запись
ft1.SetValue(ft1.findField("Shape"), rec, pnt1)