VB.NET: Read CAD Drawing

• Decode CAD drawings in both DWG and DXF formats
• Read CAD drawings from any .NET Stream
• Zoom in, zoom out CAD drawings to any point of page
• Fit the width, height or fit CAD drawings to a page
• Extract text from CAD drawing
• Save to file, IStream and Stream

Requirements

• Windows OS: Windows 7, Windows Vista, and Windows XP, etc
• Windows Server 2003, Windows Server 2008
• .NET Framework 2.0, 3.0, 4.0
• Microsoft Visual Studio 2005, 2008, 2010
• Yiigo.Image for .NET setup
• Yiigo.Imaging for .NET CAD Reading Plugin

Start to Read CAD Images

• Choose "Project" in "File-New" from the menu;
• In "New Project" dialog box, choose "Visual Basic Projects";
• Choose "Windows Application" in the "Templates" List and name it "YiigoImagingCAD ReadVBNET";
• In the "Solution Explorer" window from the context menu, right-click on the "References" folder, and select "Add Reference...";
• In the "Add Reference" dialog box, select the ".NET" tab and browse to Yiigo.Imaging.Net.dll library and Yiigo.Imaging.Net.Cad.Read.dll ;
• Add it to your VB.NET applications;
• Import Yiigo .NET Image Namespace & copy those following codes:

Imports System.IO
Imports System.Drawing.Printing
Imports Yiigo.Imaging
Imports Yiigo.Imaging.Processing
Imports Yiigo.Imaging.CadRead

' Open CAD drawings
Dim dwgdecode As New CADDecoder()
RegisteredDecoders.Decoders.Add(myCADDecoder)

' Extract text from CAD drawings
Private _textList As New List(Of ExtractText)()
Private Sub ExtractText(file__1 As String)
    If file__1 Is Nothing Then
        Return
    End If
    _textList.Clear()

    Dim txtHandler As New ExtractTextHandler()

    AddHandler txtHandler.OnTextFound, New ExtractTextHandler.OnTextFoundHandler(AddressOf(txtHandler_OnTextFound))

    Dim dwgdecode As New CADDecoder()

    Using s As Stream = File.OpenRead(file__1)
        dwgdecode.Distill(s, txtHandler, Nothing)
    End Using

End Sub

Private Sub txtHandler_OnTextFound(txt As Text)
    _textList.Add(txt)
End Sub

' Save CAD drawings
Private Sub Save()
End Sub