This is usually an easy task, but now I'm not able to see what could be wrong!!!
Here is the simple code:
Dim fileName As String, path As String, ObjDWG As AcadDocument
path = "C:\Temp\geotic\Tiri\"
fileName = Dir(path & "*.dwg")
ThisDrawing.Application.Documents.Open (path & fileName)
I see that Autocad (2011) is trying to open the file up to some point, then Error -2145386153 (80200157)
I can open the file manually without any problem, note that the file I'm trying to read is from a third party software
If I save the file with autocad and try to open it with VBA... still crash.
No problem with a native drawing
A sample is attached.
I solved the problem, I have FME a software I use to translate files, (same software used by inside autocad) and it to saved all my files to DXF.
But I ran into another problem, with an another method.
fileName = fileName & ".dwg"
'fileName = path & "3D\" & fileName
ThisDrawing.SaveAs fileName, ac2007_dwg
If I try to do the saveas to a different folder it crashes... simply saveas to the default folder it works!!!???
this is why I've put a remark in front of the second line above!
Try to use:
fileName = path & "\3D\" & fileName
Not sure about thogh just a shot in the dark
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register
Start with some of our most frequented solutions to get help installing your software.