Не соответствие принадлежности сущности к слою dxf
Posted: 21 Dec 2017, 20:51
Добрый день.
Есть файл
https://cloud.mail.ru/public/AZEG/Pdqvbxezo
У детали есть рамка, в Автокаде она отображается в слое "TCH1600"
А в программе она показывается как вообще без слоя (layer=nil) и после экспорта, не сохраняется вообще. В чем может быть причина?
Вот текущий код:
Есть файл
https://cloud.mail.ru/public/AZEG/Pdqvbxezo
У детали есть рамка, в Автокаде она отображается в слое "TCH1600"
А в программе она показывается как вообще без слоя (layer=nil) и после экспорта, не сохраняется вообще. В чем может быть причина?
Вот текущий код:
Code: Select all
var
MyDxf:TsgCADdxfImage;
i,CntEnt:integer;
vEnt: TsgDXFEntity;
vExp:TsgCADtoDXF;
begin
MyDxf:=TsgCADdxfImage.Create;
MyDxf.LoadFromFile('Столешница.dxf');
CntEnt:=MyDxf.Converter.Counts[csEntities];
for i:=0 to CntEnt-1 do
begin
vEnt:=TsgDXFEntity.Create;
vEnt:=MyDxf.Entities[i];
Memo1.Lines.Add(vEnt.Name);
if vEnt.Layer <> nil then
Memo1.Lines.Add(vEnt.Layer.Name)
else Memo1.Lines.Add('nil');
end;
vExp:=TsgCADtoDXF.Create(MyDxf);
//не сохраняет слои которые nil
vExp.SaveToFile('1.dxf');
vExp.Free;