Win11?

[Log0ut]

Hi

I'm using follow code to generate PDF from drawings:

 '------start of iLogic-------
oPath = ThisDoc.Path
doc = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
oFileName = ThisDoc.FileName(False) 'without extension
oRevNum = iProperties.Value(doc, "Custom", "rev")
oProduct = iProperties.Value(doc, "Custom", "toode")
oCurDate = iProperties.Value("Status", "Checked Date")
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

'get PDF target folder path
oFolder = Left(oPath, InStrRev(oPath, "\"))

'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
oDataMedium.FileName = oFolder & "\" & oProduct & " - " & oRevNum & " - " & oCurDate &".pdf"

'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'------end of iLogic-------

In work, win10, everything works. In home, win11, i get this error:

Unspecified error (Exception from HRESULT: 0x80004005 (E_FAIL))

Has anybody have any idea, what causes this?

[bradeneuropeArthur]

Have you show fileextensions on in win11?

[Log0ut]

Are my file extensions showing in file explorer? yes

[bradeneuropeArthur]

What message do you receive the last, if you use this coding?

'------start of iLogic-------
oPath = ThisDoc.Path
doc = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
MsgBox("1")
oFileName = ThisDoc.FileName(False) 'without extension
MsgBox("2")
oRevNum = iProperties.Value(doc, "Custom", "rev")
MsgBox("3")
oProduct = iProperties.Value(doc, "Custom", "toode")
MsgBox("4")
oCurDate = iProperties.Value("Status", "Checked Date")
MsgBox("5")
oPDFAddIn = ThisApplication.ApplicationAddIns.ItemById _
("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
MsgBox("6")
oDocument = ThisApplication.ActiveDocument
MsgBox("7")
oContext = ThisApplication.TransientObjects.CreateTranslationContext
MsgBox("8")
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
MsgBox("9")
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
MsgBox("10")
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
MsgBox("11")

'get PDF target folder path
oFolder = Left(oPath, InStrRev(oPath, "\"))
MsgBox("12")

'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)
	MsgBox("13")
End If

 'Set the PDF target file name
oDataMedium.FileName = oFolder & "\" & oProduct & " - " & oRevNum & " - " & oCurDate & ".pdf"
MsgBox("14")

'Publish document
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
MsgBox("15")
'------end of iLogic-------

[Log0ut]

14, error in line 42

[bradeneuropeArthur]

test if the add-in is loaded.

Do you receive a true message?

'------start of iLogic-------
oPath = ThisDoc.Path
doc = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
MsgBox("1")
oFileName = ThisDoc.FileName(False) 'without extension
MsgBox("2")
'oRevNum = iProperties.Value(doc, "Custom", "rev")
MsgBox("3")
'oProduct = iProperties.Value(doc, "Custom", "toode")
MsgBox("4")
oCurDate = iProperties.Value("Status", "Checked Date")
MsgBox("5")
Dim oPDFAddIn As Inventor.ApplicationAddIn = ThisApplication.ApplicationAddIns.ItemById _
("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
MsgBox("6")
oDocument = ThisApplication.ActiveDocument
MsgBox("7")
oContext = ThisApplication.TransientObjects.CreateTranslationContext
MsgBox("8")
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
MsgBox("9")
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
MsgBox("10")
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
MsgBox("11")

'get PDF target folder path
oFolder = Left(oPath, InStrRev(oPath, "\"))
MsgBox("12")

'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)
	MsgBox("13")
End If

 'Set the PDF target file name
oDataMedium.FileName = oFolder & "\" & oProduct & " - " & oRevNum & " - " & oCurDate & ".pdf"
MsgBox("14")

'Publish document
MsgBox (oPDFAddIn.Activated)
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
MsgBox("15")
'------end of iLogic-------

[Log0ut]

Yes, true

[bradeneuropeArthur · Accepted solution]

Test the date-string:

Does it contain non allowed characters like "/"?

'------start of iLogic-------
oPath = ThisDoc.Path
doc = IO.Path.GetFileName(ThisDrawing.ModelDocument.FullFileName)
MsgBox("1")
oFileName = ThisDoc.FileName(False) 'without extension
MsgBox("2")
'oRevNum = iProperties.Value(doc, "Custom", "rev")
MsgBox("3")
'oProduct = iProperties.Value(doc, "Custom", "toode")
MsgBox("4")
oCurDate = iProperties.Value("Status", "Checked Date")
MsgBox (oCurDate.ToString)
MsgBox("5")
Dim oPDFAddIn As Inventor.TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById _
("{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}")
MsgBox("6")
oDocument = ThisApplication.ActiveDocument
MsgBox("7")
oContext = ThisApplication.TransientObjects.CreateTranslationContext
MsgBox("8")
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
MsgBox("9")
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
MsgBox("10")
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
MsgBox("11")

'get PDF target folder path
oFolder = Left(oPath, InStrRev(oPath, "\"))
MsgBox("12")

'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)
	MsgBox("13")
End If

 'Set the PDF target file name
oDataMedium.FileName = oFolder & "\" & oProduct & " - " & oRevNum & " - " & oCurDate & ".pdf"
MsgBox(oFolder & "\" & oProduct & " - " & oRevNum & " - " & oCurDate & ".pdf")
MsgBox("14")

'Publish document
MsgBox (oPDFAddIn.Activated)
oPDFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
MsgBox("15")

[Log0ut]

That was it- changing date format, solved the problem. Thank you!

[Log0ut]

I also have another similar problem- if i export drawings to dwg, attached images shows like that:

At work converting works as it must be, using same drawing

[bradeneuropeArthur]

Can you share that code too?

[Log0ut]

I'm using File-Export-Export to DWG option

[bradeneuropeArthur]

The command in inventor selves.

You don't use coding to do the export.

Could you make a movie to see what happens.

[Log0ut]

Yes, i dont use coding to do export.

Everything works as it must. Only problem is that images don't show up in DWG

[Log0ut]

Anybody any idea?

[bradeneuropeArthur]

could you share the template file (drawing file)?

[Log0ut]

I attached template file

I don't believe that problem is template file, because in work computer same files works without problem