topic Re: acad.exe link problem! in Inventor Programming Forum

acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 08:24:52 GMT

i have a old rule who working great until a install inventor 2026???

i just change the new link but error message!

any body can help me???

sorry for my horrible english!

my old rule:

' Get the DXF translator Add-In.
Dim DXFAddIn As TranslatorAddIn
DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
'Set a reference to the active document (the document to be published).
Dim oDocument As Document
oDocument = ThisApplication.ActiveDocument
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
' Create a NameValueMap object
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
' Create a DataMedium object
Dim oDataMedium As DataMedium
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
' Check whether the translator has 'SaveCopyAs' options
If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
Dim strIniFile As String
strIniFile = "I:\INVENTOR\ILOGIC\TEMPLATE\DXFOut.ini"
' Create the name-value that specifies the ini file to use.
oOptions.Value("Export_Acad_IniFile") = strIniFile
End If

DOSSIER = ThisDoc.Path
POSITION1 = InStrRev(DOSSIER, "\") 
POSITION2 = Right(DOSSIER, Len(DOSSIER) - POSITION1)

'get DXF target folder path
oFolder = "I:\DOCUMENTS\ARTICLES\" & POSITION2 & "\"
oFileName = ThisDoc.FileName(False) 'without extension

'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

For i = 1 To 100
chiffre = i
myFile = oFolder & oFileName & "_Sheet_" & chiffre & ".dxf"
If(System.IO.File.Exists(myFile)) Then
Kill (myFile)
End If
Next i

'Set the destination file name
oDataMedium.FileName = oFolder & oFileName & ".dxf"
oFileName = ThisDoc.FileName(False) 'without extension

'Publish document.
DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'Launch the dxf file in whatever application Windows is set to open this document type with

myFile2 = oFolder & oFileName & "_Sheet_" & 100 & ".dxf"
If(System.IO.File.Exists(myFile2)) Then
Kill (myFile2)
End If

' Get the DWG translator Add-In.
Dim oDWGAddIn As TranslatorAddIn 
oDWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
' Check whether the translator has 'SaveCopyAs' options
If oDWGAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
Dim strIniFile As String
strIniFile = "I:\INVENTOR\ILOGIC\TEMPLATE\DWGOut.ini"
' Create the name-value that specifies the ini file to use.
oOptions.Value("Export_Acad_IniFile") = strIniFile
End If

'get DXF target folder path
oFolder2 = "I:\DOCUMENTS\ARTICLES\" & POSITION2 & "\"
oFileName2 = ThisDoc.FileName(False) 'without extension

'Check for the PDF folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder2) Then
    System.IO.Directory.CreateDirectory(oFolder2)
End If

For i = 1 To 100
chiffre2 = i
myFile2 = oFolder2 & oFileName2 & "_Sheet_" & chiffre2 & ".dwg"
If(System.IO.File.Exists(myFile2)) Then
Kill (myFile2)
End If
Next i

'Set the destination file name
oDataMedium.FileName = oFolder2 & oFileName2 & ".dwg"
oFileName2 = ThisDoc.FileName(False) 'without extension

'Publish document.
oDWGAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'Launch the dxf file in whatever application Windows is set to open this document type with

myFile2 = oFolder2 & oFileName2 & "_Sheet_" & 100 & ".dwg"
If(System.IO.File.Exists(myFile2)) Then
Kill (myFile2)
End If

question = MessageBox.Show("VEUX-TU OUVRIR AUTOCAD POUR PURGER TES DESSINS???", "OUVERTURE AUTOCAD???", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
MultiValue.SetValueOptions(True)
If question = vbYes Then
GoTo OUVERTURE
Else If question = vbNo Then
GoTo FIN
End If

OUVERTURE :
Dim acadExe = "C:\Program Files\Autodesk\AutoCAD 2025\acad.exe"

'MessageBox.Show("N'OUBLIE PAS DE SAUVER EN VERSION 2000, UNE FOIS TON DESSIN PURGER ET DE PURGER TOUTES TES PAGES", "ATTENTION",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Process.Start(acadExe, oFolder2 & oFileName2 & "_Sheet_" & 1 & ".dwg")

FIN:

my new rule with new link of acad:

' Get the DXF translator Add-In.
Dim DXFAddIn As TranslatorAddIn
DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
'Set a reference to the active document (the document to be published).
Dim oDocument As Document
oDocument = ThisApplication.ActiveDocument
Dim oContext As TranslationContext
oContext = ThisApplication.TransientObjects.CreateTranslationContext
oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
' Create a NameValueMap object
Dim oOptions As NameValueMap
oOptions = ThisApplication.TransientObjects.CreateNameValueMap
' Create a DataMedium object
Dim oDataMedium As DataMedium
oDataMedium = ThisApplication.TransientObjects.CreateDataMedium
' Check whether the translator has 'SaveCopyAs' options
If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
Dim strIniFile As String
strIniFile = "I:\INVENTOR\ILOGIC\TEMPLATE\DXFOut.ini"
' Create the name-value that specifies the ini file to use.
oOptions.Value("Export_Acad_IniFile") = strIniFile
End If

DOSSIER = ThisDoc.Path
POSITION1 = InStrRev(DOSSIER, "\") 
POSITION2 = Right(DOSSIER, Len(DOSSIER) - POSITION1)

'get DXF target folder path
oFolder = "I:\DOCUMENTS\ARTICLES\" & POSITION2 & "\"
oFileName = ThisDoc.FileName(False) 'without extension

'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

For i = 1 To 100
chiffre = i
myFile = oFolder & oFileName & "_Sheet_" & chiffre & ".dxf"
If(System.IO.File.Exists(myFile)) Then
Kill (myFile)
End If
Next i

'Set the destination file name
oDataMedium.FileName = oFolder & oFileName & ".dxf"
oFileName = ThisDoc.FileName(False) 'without extension

'Publish document.
DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'Launch the dxf file in whatever application Windows is set to open this document type with

myFile2 = oFolder & oFileName & "_Sheet_" & 100 & ".dxf"
If(System.IO.File.Exists(myFile2)) Then
Kill (myFile2)
End If

' Get the DWG translator Add-In.
Dim oDWGAddIn As TranslatorAddIn 
oDWGAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")
' Check whether the translator has 'SaveCopyAs' options
If oDWGAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then
Dim strIniFile As String
strIniFile = "I:\INVENTOR\ILOGIC\TEMPLATE\DWGOut.ini"
' Create the name-value that specifies the ini file to use.
oOptions.Value("Export_Acad_IniFile") = strIniFile
End If

'get DXF target folder path
oFolder2 = "I:\DOCUMENTS\ARTICLES\" & POSITION2 & "\"
oFileName2 = ThisDoc.FileName(False) 'without extension

'Check for the PDF folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder2) Then
    System.IO.Directory.CreateDirectory(oFolder2)
End If

For i = 1 To 100
chiffre2 = i
myFile2 = oFolder2 & oFileName2 & "_Sheet_" & chiffre2 & ".dwg"
If(System.IO.File.Exists(myFile2)) Then
Kill (myFile2)
End If
Next i

'Set the destination file name
oDataMedium.FileName = oFolder2 & oFileName2 & ".dwg"
oFileName2 = ThisDoc.FileName(False) 'without extension

'Publish document.
oDWGAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)
'Launch the dxf file in whatever application Windows is set to open this document type with

myFile2 = oFolder2 & oFileName2 & "_Sheet_" & 100 & ".dwg"
If(System.IO.File.Exists(myFile2)) Then
Kill (myFile2)
End If

question = MessageBox.Show("VEUX-TU OUVRIR AUTOCAD POUR PURGER TES DESSINS???", "OUVERTURE AUTOCAD???", MessageBoxButtons.YesNoCancel, MessageBoxIcon.Question, MessageBoxDefaultButton.Button1)
MultiValue.SetValueOptions(True)
If question = vbYes Then
GoTo OUVERTURE
Else If question = vbNo Then
GoTo FIN
End If

OUVERTURE :
Dim acadExe = "‪‪C:\Program Files\Autodesk\AutoCAD 2026\acad.exe"

'MessageBox.Show("N'OUBLIE PAS DE SAUVER EN VERSION 2000, UNE FOIS TON DESSIN PURGER ET DE PURGER TOUTES TES PAGES", "ATTENTION",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Process.Start(acadExe, oFolder2 & oFileName2 & "_Sheet_" & 1 & ".dwg")

FIN:

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 09:51:03 GMT

can you try this out:

I think if this works that it is not the acad.exe related but the drive "I" related.

It is better to use the server name instead of the drive letter name!

Dim acadExe = "‪‪C:\Program Files\Autodesk\AutoCAD 2026\acad.exe"

'MessageBox.Show("N'OUBLIE PAS DE SAUVER EN VERSION 2000, UNE FOIS TON DESSIN PURGER ET DE PURGER TOUTES TES PAGES", "ATTENTION",MessageBoxButtons.OK,MessageBoxIcon.Warning)
Process.Start(acadExe)

Re: acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 09:59:10 GMT

Thank for your reply 🙂

I have only change the acad.exe link

"‪‪C:\Program Files\Autodesk\AutoCAD 2026\acad.exe"

for what you talking about ''I'' ?

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 10:42:22 GMT

The code goes wrong on line 111

This is where you open acad with parameters to the I drive

To eliminate that this is the case use my test code to have a look if the acad exe is the problem or the I drive.

Using the drive letter in code is not best practice. Using the server name is in this case better.

For example what if the server is not available?
This possibly is best to check.

So please test this first:

Dim acadExe = "‪‪C:\Program Files\Autodesk\AutoCAD 2026\acad.exe"

Process.Start(acadExe)

Re: acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 11:16:30 GMT

THANKS AGAIN FOR YOUR TIMES 🙂

i try it but dont work again 😞

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 11:28:55 GMT

can you test with a new rule the following:

Process.Start(acad.exe)

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 11:34:32 GMT

could this be the solution maybe:

https://forums.autodesk.com/t5/inventor-programming-forum/fail-to-use-process-start-in-inventor-2025-the-specified/td-p/12801603

Re: acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 11:34:44 GMT

i have allready test it!

i have remove my link to just try to open autocad, and i have reinstall autocad 2026 2 times!

without succes 😞

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 11:41:26 GMT

maybe this is relevant for you too then:

https://www.autodesk.com/support/technical/article/caas/sfdcarticles/sfdcarticles/FATAL-ERROR-ASC-initialization-failed-Please-reinstall-the-product-after-opening-a-drawing-in-Inventor-a-second-drawing-is-opened-in-AutoCAD-from-the-Vault-level.html

Re: acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 11:47:06 GMT

i have allready reinstall autocad 2026 and i dont use vault!

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 11:55:07 GMT

can you start via explorer:

C:\Program Files\Autodesk\AutoCAD 2026\acad.exe

Re: acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 12:00:30 GMT

yes when i click on the icon acad.exe on my C:

is starting and i looking the pproperties and the link is really C:\Program Files\Autodesk\AutoCAD 2026\acad.exe

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 12:03:14 GMT

And when you copy paste that string "C:\Program Files\Autodesk\AutoCAD 2026\acad.exe" in windows explorer?

Re: acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 12:06:02 GMT

autocad open

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 12:09:56 GMT

then please try the next thing:

use a new code of i-logic

Process.Start("notepad.exe")

does this start notepad?

Re: acad.exe link problem!

SergeLachance — Wed, 24 Sep 2025 12:44:15 GMT

yes

Re: acad.exe link problem!

bradeneuropeArthur — Wed, 24 Sep 2025 13:41:16 GMT

@johnsonshiue do you have any ideas?

Re: acad.exe link problem!

CGBenner — Mon, 29 Sep 2025 13:47:46 GMT

@SergeLachance

Did the information provided answer your question? If so, please use Accept Solution so that others may find this in the future. Thank you very much!

Re: acad.exe link problem!

SergeLachance — Mon, 29 Sep 2025 15:53:46 GMT

no one resolve my problem again!