Inventor - Plánovač úloh


oFolder = ThisDoc.Path
oFileName = ThisDoc.FileName(False)
oDXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium 

If oDXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
strIniFile = "C:\temp\dxfout.ini"
' Create the name-value that specifies the ini file to use.
oOptions.Value("Export_Acad_IniFile") = strIniFile
End If 

'oDataMedium.FileName = oFolder & "\" & oFileName & ".pdf" 

'-------------------------------------------

oDrawDoc = ThisApplication.ActiveDocument

For 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.Path
oFileName = ThisDoc.FileName(False)
oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById ("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
oDocument = ThisApplication.ActiveDocument
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
oDataMedium = 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") = 400
End If 

oDataMedium.FileName = oFolder & "\" & oFileName & ".pdf" 
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)