Lines in new DXF versions can be drawn now

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1460 8e941d3f-bd1b-0410-a28a-d453659cc2b4
2011-01-25 14:46:25 +00:00
parent 907f0fe3e0
commit e831cf4bde
1 changed files with 5 additions and 0 deletions
--- a/applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
+++ b/applications/fpvviewer/fpvectorialsrc/dxfvectorialreader.pas
@ -353,6 +353,11 @@ begin
  begin
    // Now read and process the item name
    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));

    case CurToken.GroupCode of