Да я сам в недоумении, откуда это появилось. Объекты создаю динамически из БД на временном слое
| Код |
|---|
var rsc:AnsiString;
...
NetRSC:=ini.ReadString('Map','NetRSC','service.rsc');
...
rsc:=ExtractFileDir(MapFile)+'\'+NetRSC;
...
hSiteTmp:=mapCreateAndAppendTempSite(vMap.MapHandle,@rsc[1]);
idxTmp:=mapGetSiteNumber(vMap.MapHandle,hSiteTmp);
mapSetSiteNameEx(vMAp.MapHandle,hSiteTmp,'Объекты');
...
while not dm.Obj.Eof do begin
if (dm.Objx.Value<>0) and (dm.Objy.Value<>0) then begin
mo:=TMapObj.Create(vMap);
mo.MapView:=vMap;
mo.CreateNullObj(idxTmp);
//dm.Objcode.Value принимает значения 46 или 47
mo.SetObjectByExcode(KM_IDFLOAT2,dm.Objcode.Value,OL_VECTOR);
mp.SetPoint(dm.ObjX.Value,dm.ObjY.Value);
mo.Metric.Append(0,mp);
SetSemanticStringValue(mo,9,dm.Objfname.Value);
...
end;
dm.Obj.Next;
end;
|
классификатор и граф вышлю на почту