GetDWGVersion -via VB.NET

[Anonymous]

Hi, 

Quick Question here

How do I get the Drawing Version (2000, 2004, 2007, 2010 Cad Version)?

myExtractedDB.Version = System.Enum.GetName(GetType(Autodesk.AutoCAD.DatabaseServices.DwgVersion), DatabaseIn.LastSavedAsVersion)..

For example the text file show it's 'AC1024' in the prefix. 

I'd rather just pull it from the Drawing Database via VB.NET

Any ideas here what's the object or method to access this? 

I think I'm the right trail with DwgVersion. 

[Alfred.NESWADBA]

Hi,

IMHO within the database-object you don't have the info, because it's only an info for "file-format" and not for "working-format".

And as long as you have the database open you have no info about what format will the user choose for the save-command in the future 😉

Opening the file (at least the first bytes) in binary-mode is the way you can go.

- alfred -

[arcticad · Accepted solution]

    Function isDWG2010(ByVal filename As String) As Boolean
        'Return False
        'Exit Function
        Dim rtnCheck As Boolean = False

        Dim objReader As IO.StreamReader
        Dim txtContents As String
        ' Check if File Exists
        If IO.File.Exists(filename) Then
            objReader = IO.File.OpenText(filename)
            'Read all the Text in the File
            Do While objReader.Peek <> -1
                txtContents = objReader.ReadLine()
                If txtContents.Substring(0, 6) = "AC1024" Then
                    rtnCheck = True
                End If
                Exit Do
            Loop
            ' Don't forget to close the file
            objReader.Close()
            objReader = Nothing
        End If

        Return rtnCheck

    End Function

[leaveAlone · Accepted solution]

Use property:

Application.DocumentManager.MdiActiveDocument.Database.OriginalFileVersion

...and from that you have version which is used to save that file (google for what it gives as return and you will find enough resources...)

[Anonymous]

Thanks!

[kerry_w_brown · Accepted solution]

arcticad,

Personally, I'd have the creation of the StreamReader instance in a using statement.

_Guy,

The  Application.DocumentManager.MdiActiveDocument.Database.OriginalFileVersion

will return the DwgVersion enumerators I posted for you elsewhere.

Regards

[Anonymous]

Some follow-up here:

Can someone point me to what number translates to what verison of Autocad... 

You know what the enumerated items stand for in simple terms....

For examples I get 

29, 24, 25

29 - Autocad 2011

25 - Autocad 2005

Any Idea guys?

Thanks! 

[arcticad]

http://autodesk.blogs.com/between_the_lines/autocad-release-history.html

[Anonymous]

Bingo Thanks articad!