https://forums.autodesk.com/t5/inventor-forum/ilogic-rule-idw-with-flat-pattern/m-p/5511209#M386157 <P>Hi Mike&nbsp;</P><P>&nbsp;</P><P>This is how i changed your code. just changed the "C:\Temp\test.dxf" &nbsp;to&nbsp;ThisDoc.PathAndFileName(False) &amp; ".dxf"&nbsp;</P><P>&nbsp;</P><P>&nbsp;</P><P>&nbsp;</P><PRE>Dim oDoc As DrawingDocument Dim oSheet As Sheet Dim oSheets As Sheets Try oDoc = ThisDrawing.Document Catch MsgBox("Must be ran on a drawing document!",vbOKOnly,"Error") Exit Sub End Try oSheets = oDoc.Sheets For Each oSheet In oSheets Try If oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then Try oDoc.SaveAs(ThisDoc.PathAndFileName(False) &amp; ".dxf", True) Catch MsgBox("Error saving file",vbOKOnly,"Error") Exit Sub End Try End If Catch MsgBox("Error detecting file type - probably no views on sheet: " &amp; oSheet.Name,vbOKOnly,"Error") End Try Next</PRE><P>&nbsp;</P> Wed, 18 Feb 2015 14:13:29 GMT Anonymous 2015-02-18T14:13:29Z