oFolder = ThisDoc.PathoFileName = ThisDoc.FileName(False)oDXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")oDocument = ThisApplication.ActiveDocumentoContext = ThisApplication.TransientObjects.CreateTranslationContextoContext.Type = IOMechanismEnum.kFileBrowseIOMechanismoOptions = ThisApplication.TransientObjects.CreateNameValueMapoDataMedium = ThisApplication.TransientObjects.CreateDataMedium If oDXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) ThenstrIniFile = "C:\temp\dxfout.ini"' Create the name-value that specifies the ini file to use.oOptions.Value("Export_Acad_IniFile") = strIniFileEnd If 'oDataMedium.FileName = oFolder & "\" & oFileName & ".pdf" '-------------------------------------------oDrawDoc = ThisApplication.ActiveDocumentFor Each sh In oDrawDoc.Sheets 					Dim dxfSmazat As String = oFolder & "\" & oFileName & "_" & Left(sh.Name, Len(sh.Name)-2) & "_" & Right(sh.Name, 1) & ".dxf"		Dim dxfSmazat2 As String = oFolder & "\" & oFileName & "_" & Left(sh.Name, Len(sh.Name)-2) &  ".dxf"				If System.IO.File.Exists(dxfSmazat) Then			Try				'Delete existing file				System.IO.File.Delete(dxfSmazat)			Catch ex As Exception				'Handle error				'Show message				MsgBox(ex.Message)				'Exit rule				Return							End Try					ElseIf System.IO.File.Exists(dxfSmazat2) Then										Try				'Delete existing file				System.IO.File.Delete(dxfSmazat2)							Catch ex As Exception				'Handle error				'Show message				MsgBox(ex.Message)				'Exit rule				Return							End Try										End If		Next	oDataMedium.FileName = oFolder & "\" & oFileName & ".dxf" '-------------------------------------------oDXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 

PDF

oFolder = ThisDoc.PathoFileName = ThisDoc.FileName(False)oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById ("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")oDocument = ThisApplication.ActiveDocumentoContext = ThisApplication.TransientObjects.CreateTranslationContextoContext.Type = IOMechanismEnum.kFileBrowseIOMechanismoOptions = ThisApplication.TransientObjects.CreateNameValueMapoDataMedium = ThisApplication.TransientObjects.CreateDataMedium If oPDFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets oOptions.Value("All_Color_As_Black") = 1 oOptions.Value("Remove_Line_Weights") = 1 oOptions.Value("Vector_Resolution") = 400End If oDataMedium.FileName = oFolder & "\" & oFileName & ".pdf" oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)