function?[c_Linec_Polyc_Circ_Arcc_Poi]?=?f_LectDxf（nomArch）

%%?Read?entities?information?of?dxf?file
????%author?=?SebaTM?
????%Jul?27?2009
????%based?in?dxf2coord?1.1?matrix?of?lukas?wischounig?but?is?not?dependent?of?the?Code?
????%Group?relative?position.?That?is?better?way?to?read?dxf?format.?Don‘t?fail?if?the?
????%polyline?has?arcs?（budges）?but?yet?don‘t?read?them.?Don‘t?read?arcs?as?circles.?Read?
????%properties?（see?case?‘LINE‘?by?examples?of?modifications）.?Group?Codes?and?Associated?
????%Values?is?read?in?accurately?way?（accept?associated?values?with?space）.
????%
????%Use?cell2mat（cell（:1））?to?acquire?geometry?data?in?matrix?
????%by?example?cell2mat（c_Cir（:1））
?
%%?Read?file
????fId?=?fopen（nomArch）;????
????c_ValAsoc?=?textscan（fId‘%d%s‘‘Delimiter‘‘\n‘）;
????fclose（fId）;
????%?Code?Group?Matrix
????m_GrCode?=?c_ValAsoc{1};
????%?Associated?value?String?Cell
????c_ValAsoc?=?c_ValAsoc{2};
????%[m_GrCodec_ValAsoc]?=?c_ValAsoc{:};
????
%%?Entities
????m_PosCero?=?find（m_GrCode==0）;
????%Is?searched?by?（0SECTION）（2ENTITIES）
????indInSecEnt?=?strmatch（‘ENTITIES‘c_ValAsoc（m_PosCero（1:end-1）+1）‘exact‘）;
????%（0ENDSEC）
????m_indFinSecEnt?=?strmatch（‘ENDSEC‘c_ValAsoc（m_PosCero（indInSecEnt:end））‘exact‘）;
????%?Entities?Position
????m_PosCero?=?m_PosCero（indInSecEnt:indInSecEnt-1+m_indFinSecEnt（1））;
????%?Variable?initiation
????%accelerate?
%?????c_Line?=?cell（sum（strcmp（‘LINE‘c_ValAsoc（m_PosCero）））2）;
%?????c_Poly?=?cell（sum（strcmp（‘LWPOLYLINE‘c_ValAsoc（m_PosCero）））2）;
%?????c_Cir?=?cell（sum（strcmp（‘CIRCLE‘c_ValAsoc（m_PosCero）））2）;
%?????c_Arc?=?cell（sum（strcmp（‘ARC‘c_ValAsoc（m_PosCero）））2）;
%?????c_Poi?=?cell（sum（strcmp（‘POINT‘c_ValAsoc（m_PosCero）））2）;
????c_Line?=?cell（12）;
????c_Poly?=?cell（12）;
????c_Cir?=?cell（12）;
????c_Arc?=?cell（12）;
????c_Poi?=?cell（12）;
????%
????iLine?=?1;
????iPoly?=?1;
????iCir?=?1;??
????iArc?=?1;
????iPoi?=?1;
????%?Loop?on?the?Entities
????for?iEnt?=?1:length（m_PosCero）-2
????????m_GrCodeEnt?=?m_GrCode（m_PosCero（iEnt+1）:m_PosCero（iEnt+2）-1）;
????????c_ValAsocEnt?=?c_ValAsoc（m_PosCero（iEnt+1）:m_PosCero（iEnt+2）-1）;
????????nomEnt?=?c_ValAsocEnt{1};??%c_ValAsocEnt{m_PosCero（iEnt+1）}
????????%In?the?entitie‘s?name?is?assumed?uppercase
????????switch?nomEnt????????????
????????????case?‘LINE‘
????????????????%?（XiYiZiXjYjZj）?start?and?end?points
????????????????c_Line{iLine1}?=?[str2double（f_ValGrCode（10m_GrCodeEntc_ValAsocEnt））...
????????????????????str2double（f_ValGrCode（20m_GrCodeEntc_ValAsocEnt））...
????????????????????str2double（f_ValGrCode（30m_GrCodeEntc_ValAsocEnt））...
????????????????????str2double（f_ValGrCode（11m_GrCodeEntc_ValAsocEnt））...
????????????????????str2double（f_ValGrCode（21m_GrCodeEntc_ValAsocEnt））...
????????????????????str2double（f_ValGrCode（31m_GrCodeEntc_ValAsocEnt））];
????????????????%?layer
????????????????c_Line（iLine2）?=?f_ValGrCode（8m_GrCodeEntc_ValAsocEnt）;