Hi All, I have a iLogic rule for saving drawings (dwg) to a pdf file in a designated folder. Everything worked well until this Monday morning. Now I get the message: Error in rule: Save2PDF, in document: 13006-027 propflens-1.dwg Value cannot be null. Parameter name: path What can I do to make it work again? This weekend a windows7 update has occurred. This is the iLogic Code: '------start of temp i Logic------- First update settings Dim oControlDef as ControlDefinition = ThisApplication.CommandManager.ControlDefinitions.Item("UpdateCopiedModeliPropertiesCmd") oControlDef.Execute2(True) '------end of temp i Logic------- '------start of iLogic------- oPath = ThisDoc.Path oFileName = ThisDoc.FileName(False) 'without extension oRevNum = iProperties.Value("Project", "Revision Number") 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 oTekNr = iProperties.Value("Custom", "Tekening Nummer") oSubTitle = iProperties.Value("Summary", "Title") oNewFolder = iProperties.Value("Custom", "ExportMap") If oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then oOptions.Value("All_Color_AS_Black") = 0 oOptions.Value("Remove_Line_Weights") = 1 oOptions.Value("Vector_Resolution") = 400 oOptions.Value("Sheet_Range") = Inventor.PrintRangeEnum.kPrintAllSheets 'oOptions.Value("Custom_Begin_Sheet") = 2 'oOptions.Value("Custom_End_Sheet") = 4 End If 'Check for the PDF folder and create it if it does not exist If Not System.IO.Directory.Exists(oFolder) Then System.IO.Directory.CreateDirectory(oFolder) End If 'Set the PDF target file name If oTekNr = "" Then oDataMedium.FileName = oNewFolder & "\" & oFileName & _ " Rev" & oRevNum & ".pdf" Else oDataMedium.FileName = oNewFolder & "\" & oTekNr & "_" & oFileName & _ " Rev" & oRevNum & ".pdf" End If 'Publish document oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium) 'MessageBox.Show("De PDF is gemaakt en staat in de volgende map: " & oFolder , "Regel") 'Show in Explorer Shell("explorer.exe " & oNewFolder,vbNormalFocus) '------end of iLogic-------
Regards
Danny
Inventor 2014 sp1 | Vault basic 2014 | HP Elitebook 8670W | win7 64b | 8Gb | GMT +1