https://forums.autodesk.com/t5/inventor-forum/ilogic-rule-idw-with-flat-pattern/m-p/5511168#M386155 <P>Thank Mike</P><P>&nbsp;</P><P>I have somthing funny happen now. The scrips runs and i see it saves the dxf but the file never shows.&nbsp;</P><P>&nbsp;</P><P>So I tried the Export IDW to DXF scrip that is under My Snippets and now I get a zip file with the DXF in it.</P><P>&nbsp;</P><P>here is the code that I have</P><P>&nbsp;</P><P>&nbsp;</P><PRE>Dim oDoc As DrawingDocument<BR />Dim oSheet As Sheet<BR />Dim oSheets As Sheets<BR /><BR />Try<BR /> oDoc = ThisDrawing.Document<BR />Catch<BR />' MsgBox("Must be ran on a drawing document!",vbOKOnly,"Error")<BR /> Exit Sub<BR />End Try<BR /><BR />oSheets = oDoc.Sheets<BR />For Each oSheet In oSheets<BR /> Try<BR /> If oSheet.DrawingViews.Item(1).ReferencedDocumentDescriptor.ReferencedDocument.SubType = "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then<BR /> Try<BR /> 'oDoc.SaveAs(ThisDoc.FileName &amp; ".dxf", True)<BR /> ' Get the DXF translator Add-In.<BR /> Dim DXFAddIn As TranslatorAddIn<BR /> DXFAddIn = ThisApplication.ApplicationAddIns.ItemById("{C24E3AC4-122E-11D5-8E91-0010B541CD80}")<BR /> 'Set a reference to the active document (the document to be published).<BR /> Dim oDocument As Document<BR /> oDocument = ThisDoc.Document<BR /> Dim oContext As TranslationContext<BR /> oContext = ThisApplication.TransientObjects.CreateTranslationContext<BR /> oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism<BR /> ' Create a NameValueMap object<BR /> Dim oOptions As NameValueMap<BR /> oOptions = ThisApplication.TransientObjects.CreateNameValueMap<BR /> ' Create a DataMedium object<BR /> Dim oDataMedium As DataMedium<BR /> oDataMedium = ThisApplication.TransientObjects.CreateDataMedium<BR /> ' Check whether the translator has 'SaveCopyAs' options<BR /> If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then<BR /> Dim strIniFile As String<BR /> strIniFile = "dxfout.ini"<BR /> ' Create the name-value that specifies the ini file to use.<BR /> oOptions.Value("Export_Acad_IniFile") = strIniFile<BR /> End If<BR /> 'Set the destination file name<BR /> oDataMedium.FileName = ThisDoc.PathAndFileName(False) &amp; ".dxf"<BR /> MsgBox(oDataMedium.FileName)<BR /> 'Publish document.<BR /> DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)<BR /> <BR /> Catch<BR /> MsgBox("Error saving file",vbOKOnly,"Error")<BR /> Exit Sub<BR /> End Try<BR /> End If<BR /> Catch<BR /> 'MsgBox("Error detecting file type - probably no views on sheet: " &amp; oSheet.Name,vbOKOnly,"Error")<BR /> End Try<BR />Next</PRE> Wed, 18 Feb 2015 13:47:09 GMT Anonymous 2015-02-18T13:47:09Z