Rule doesn't work

[stannm]

Hello,

I've got this rule which I've been using a while. Now all of a sudden it doesn't work anymore while I've nothing changed in it, i get this error message (attachment). Any idea what can be the problem? It is used for a lot of files, but i included a sample file.

aPath = ThisDoc.Path
iPropParNum = iProperties.Value("Project", "Part Number")
iPropRevNum = iProperties.Value("Project", "Revision Number")
aFolder = aPath & "\" & "DWG"
aDataMedium = ThisApplication.TransientObjects.CreateDataMedium
aDataMedium.FileName = aFolder & "\" & iPropParNum & " rev" & iPropRevNum & " - 2D drawing" & ".dwg"
aName = aDataMedium.FileName
aDWG = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC2-122E-11D5-8E91-0010B541CD80}") 
aDoc = ThisApplication.ActiveDocument  
transObjs = ThisApplication.TransientObjects 
aContext = transObjs.CreateTranslationContext 
aContext.Type = kFileBrowseIOMechanism 

aOptions = transObjs.CreateNameValueMap 
If aDWG.HasSaveCopyAsOptions(aDoc, aContext, aOptions) Then 
End If

If Not iPropParNum = "" Then
aDWG.SaveCopyAs(aDoc, aContext, aOptions, aDataMedium)
End If

If System.IO.File.Exists( aFolder & "\" & " rev" & " - 2D drawing" & ".dwg" ) = True Then
System.IO.File.Delete( aFolder & "\" & " rev" & " - 2D drawing" & ".dwg" )
End If

If System.IO.File.Exists( aFolder & "\" & iPropParNum & " rev" & " - 2D drawing" & ".dwg" ) = True Then
System.IO.File.Move( aFolder & "\" & iPropParNum & " rev" & " - 2D drawing" & ".dwg", aFolder & "\" & iPropParNum & " - 2D drawing" & ".dwg" )
End If

Thanks,

Stan

[stannm]

Well i found that on other computers the code works just fine... However, it won't work on my computer. I already read this http://www.solutioncottage.com/ShowSolution.aspx?solID=59 . But that didn't work or I am doing it wrong.

[stannm]

bump

[cwhetten]

Hi and welcome to the forum!

I don't have the same version of Inventor as you (I am using 2014), so I can't open your files.

You can try posting your question in the Inventor Customization forum.  You might get more help there.

Cameron Whetten
Inventor 2014