Hi,
Why i get Error:
<CommandMethod("OpenDrawingDWG", CommandFlags.Session)>
Public Sub OpenDrawingDWG()
Dim strFileName As String = "C:\AutoCad_API\CAD\20221024\Folder_A\Test_ver2018_b.dwg"
Dim strFileNameSave As String = "C:\AutoCad_API\CAD\20221024\Folder_A\Test_ver2018_b.dxf"
Dim acDocMgr As DocumentCollection = Application.DocumentManager
DocumentCollectionExtension.Open(acDocMgr, strFileName, False)
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
Dim strDWGName As String = acDoc.Name
MsgBox("strFileNameSave = " & strFileNameSave)
acDoc.Database.DxfOut(strFileNameSave, 16, DwgVersion.Current)
End Sub
Error:

Second Code:
<CommandMethod("OpenDrawingDWG", CommandFlags.Session)>
Public Sub OpenDrawingDWG()
Dim strFileName As String = "C:\AutoCad_API\CAD\20221024\Folder_A\Test_ver2018_b.dwg"
Dim strFileNameSave As String = "C:\AutoCad_API\CAD\20221024\Folder_A\Test_ver2018_b.dxf"
Dim acDocMgr As DocumentCollection = Application.DocumentManager
DocumentCollectionExtension.Open(acDocMgr, strFileName, False)
Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument
acDoc.Database.SaveAs(strFileNameSave, True, DwgVersion.AC1027, acDoc.Database.SecurityParameters)
End Sub
Save File as DXF, but the File is Empty
When i try to open the File, than i get Blackscreen and Text " Press Enter to go Forward" but the File is Empty
Thanks for Any Suggestion!