Скрипт для создания пустого шефп файла

Question

Какой командой или скриптом на Avenue можно создать пустой шефп-файл?
Как создать пустой шейп-фал и добавить его как новую тему скриптом на Avenue?

Answer 1

FTab.MakeNew()

Answer 2

Приблизительно так...

defaultName    = FileName.Make(av.Getproject.getWorkDir.AsString).MakeTmp("shape","shp")
shpName  = FileDialog.Put( defaultName,"*.shp","Выходной Шейп Файл")
if (shpName = nil) then
  exit
end
shpName.SetExtension("shp")
shpdbfName=shpName
shpdbfName.SetExtension("dbf")
далее тип объектов...
if (type = "Point") then
  shpFTab = Ftab.MakeNew(shpName,Point)
elseif (type = "Line") then
  shpFTab = FTab.MakeNew(shpName, Polyline)
elseif (type = "Polygon") then
  shpFTab = FTab.MakeNew(shpName, Polygon)
end

if (MsgBox.YesNo("Добавить шейп-файл как тему в Вид?", "Преобразовать в шейп-файл",true)) then
  fthm = FTheme.Make(shpFTab)
  av.GetActiveDoc.AddTheme(fthm)
end