Линию в одну точку

Question

Неоюходимо вместо линии получить одну точку с атрибутами этой линии. (Задача есть несколько тем часть линейных, часть точечных необходимо составить общую таблицу с привязками)

Answer 1

Проставляешь центральную точку, затем пространственное соединение с линиями - нет проблем..

Answer 2

Проставляешь центральную точку, затем пространственное соединение с линиями - нет проблем.. Ниже из активной темы делаем центральные точки:
myView = av.GetActiveDoc
myTheme = myView.GetActiveThemes.Get(0)
myFTab=myTheme.GetFTab
myShp = myFTab.FindField( "Shape" )


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")
toftab= Ftab.MakeNew(shpName,Point)
toshp = shpFTab.FindField("Shape")

if (toFtab.StartEditingWithRecovery) then
toFtab.BeginTransaction
for each aRec in myFTab
  myShpVal = myFTab.ReturnValue( myShp,aRec )
  theCpoint=myShpVal.ReturnCenter
  toFTab.SetValue(toShp, theRec, theCPoint)
end
toFTab.EndTransaction
toFTab.StopEditingWithRecovery(TRUE)
end