pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Lines in new DXF versions can be drawn now

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1460 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
sekelsenmat
2011-01-25 14:46:25 +00:00
parent 907f0fe3e0
commit e831cf4bde
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
View File

@ -353,6 +353,11 @@ begin
begin begin
// Now read and process the item name // Now read and process the item name
CurToken := TDXFToken(ATokens.Items[i]); CurToken := TDXFToken(ATokens.Items[i]);
// Avoid an exception by previously checking if the conversion can be made
if (CurToken.StrValue = 'AcDbEntity') or
(CurToken.StrValue = 'AcDbLine') then Continue;
CurToken.FloatValue := StrToFloat(Trim(CurToken.StrValue)); CurToken.FloatValue := StrToFloat(Trim(CurToken.StrValue));
case CurToken.GroupCode of case CurToken.GroupCode of