<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Inventor idw to dxf vs ACAD dxf creation in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7091938#M72307</link>
    <description>&lt;P&gt;Hi Jason,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Could please post non confidential file samples (idw and dwg) for testing purpose?&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks and regards,&lt;/P&gt;</description>
    <pubDate>Thu, 18 May 2017 06:59:57 GMT</pubDate>
    <dc:creator>chandra.shekar.g</dc:creator>
    <dc:date>2017-05-18T06:59:57Z</dc:date>
    <item>
      <title>Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7084056#M72236</link>
      <description>&lt;P&gt;In the transition from ACAD to Inventor I stumbled into a snag from my previous predecessor. They created a lisp routine that when fired would prompt users a series of questions with the outcome of producing a dxf file with all bolt holes replaced with cross hairs for our vendors to burn only the profile and center punch the cross hair locations to be drilled by our drill department. I have attached a pdf of the pre process and post process of the ACAD routine as well as a dxf created in Inventor. Any suggestions on how to create the same type of dxf as the ACAD version? We are currently saving back into ACAD, changing to ACAD layers, and running the command from there. Not very streamlined. Any help would be greatly appreciated.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;Jason Mayes&lt;/P&gt;</description>
      <pubDate>Mon, 15 May 2017 13:20:35 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7084056#M72236</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2017-05-15T13:20:35Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7084898#M72242</link>
      <description>&lt;P&gt;I would think you should just be able to write a macro in inventor that:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;1) Makes a new/temporary copy of the flat pattern sheet in inventor that&lt;/P&gt;
&lt;P&gt;2)&amp;nbsp;Deletes all current centerlines&lt;/P&gt;
&lt;P&gt;3) Calls auto-centerline without inferring patterns&lt;/P&gt;
&lt;P&gt;4) Adds all of those centerlines to an etched line layer&lt;/P&gt;
&lt;P&gt;5) Moves all circular sketch lines to their own layer&amp;nbsp;and hide them.&lt;/P&gt;
&lt;P&gt;6) Exports to dxf.&lt;/P&gt;</description>
      <pubDate>Mon, 15 May 2017 17:49:50 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7084898#M72242</guid>
      <dc:creator>MechMachineMan</dc:creator>
      <dc:date>2017-05-15T17:49:50Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7091938#M72307</link>
      <description>&lt;P&gt;Hi Jason,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Could please post non confidential file samples (idw and dwg) for testing purpose?&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks and regards,&lt;/P&gt;</description>
      <pubDate>Thu, 18 May 2017 06:59:57 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7091938#M72307</guid>
      <dc:creator>chandra.shekar.g</dc:creator>
      <dc:date>2017-05-18T06:59:57Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7092772#M72318</link>
      <description>&lt;P&gt;Additional files as well as the program that creates our current dxf's in ACAD.&lt;/P&gt;</description>
      <pubDate>Thu, 18 May 2017 13:07:43 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7092772#M72318</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2017-05-18T13:07:43Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7092884#M72319</link>
      <description>&lt;P&gt;any help &lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/105031"&gt;@Curtis_Waguespack&lt;/a&gt;&lt;/P&gt;&lt;P&gt;maybe a macro (preferably with a button for the ribbon)&amp;nbsp;or illogic?&lt;/P&gt;</description>
      <pubDate>Thu, 18 May 2017 13:44:05 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7092884#M72319</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2017-05-18T13:44:05Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7099275#M72368</link>
      <description>&lt;P&gt;Hi Jason,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Please find a sample iLogic code in the following.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;Sub Main()

	Dim oDrawDoc As DrawingDocument
    oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    oSheet = oDrawDoc.Sheets.Item(1)

    Dim obj As DrawingCurveSegment
    obj = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kDrawingCurveSegmentFilter, "Select circle to create punch")

    obj.Visible = False

    Dim oCircleCurve As DrawingCurve

    For Each oCurve As DrawingCurve In oSheet.DrawingViews.Item(1).DrawingCurves
        If oCurve.CurveType = CurveTypeEnum.kCircleCurve Then
            For Each oSegment As DrawingCurveSegment In oCurve.Segments
                If oSegment.Equals(obj) = True Then
                    oCircleCurve = oCurve
                    oSegment.Visible = False
                    Exit For
                    Exit For
                End If
            Next
        End If
    Next

    Dim oIntent As GeometryIntent
    oIntent = oSheet.CreateGeometryIntent(oCircleCurve)

    Dim oCenter As Inventor.Centermark
    oCenter = oSheet.Centermarks.Add(oIntent)

    DXF_Export()

    obj.Visible = True

    oCenter.Delete()

End Sub

Private Sub DXF_Export()
    ' 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 = "C:\tempDXFOut.ini"

        ' Create the name-value that specifies the ini file to use.
        oOptions.Value("Export_Acad_IniFile") = strIniFile
    End If

    'Set the destination file name
    oDataMedium.FileName = ThisDoc.PathAndFileName(False) &amp;amp; ".dxf"

    'Publish document.
    Call DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

End Sub

&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;On running the code, it asks for a circle to select. After successful selection, a center mark is created on that circle and export to dxf at same location and same file name.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;This iLogic code can be extended for multiple selection. It is also can be extended automatic selection of circles which is having lesser radius(for example, 0.5 in radius).&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Please feel free to contact if there is any doubt.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;If solves your problem, click on "Accept as solution" or give a "Kudo".&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks and regards,&lt;/P&gt;</description>
      <pubDate>Mon, 22 May 2017 12:50:16 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7099275#M72368</guid>
      <dc:creator>chandra.shekar.g</dc:creator>
      <dc:date>2017-05-22T12:50:16Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7109627#M72508</link>
      <description>&lt;P&gt;I was able to get your code to run but it wasn't what I expected. I will describe it better here.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;When we run the rule or macro we want&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;1. All holes under 1 1/8" dia to marked with center marks and the hole disabled leaving only the center mark.&lt;/P&gt;&lt;P&gt;2. After the geometry and center marks are all that's left the file needs to exported "saved"&amp;nbsp;into&amp;nbsp;a network drive location as a 2004 dxf(or older) with the same name as the idw.&amp;nbsp;We will use&amp;nbsp;R:\email for our location&amp;nbsp;of the dxf's&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;**side note&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;We also save a copy of the idw as a dwf with all dimensions on it for our vendors to check quality of the parts. We have something in place for that now but it would be great if we could tie it all together.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;thanks,&lt;/P&gt;&lt;P&gt;Jason Mayes&lt;/P&gt;</description>
      <pubDate>Thu, 25 May 2017 19:12:08 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7109627#M72508</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2017-05-25T19:12:08Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7110885#M72519</link>
      <description>&lt;P&gt;Hi Jason,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;VBA macro has been updated to achieve requirement.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;Sub main()

    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    Dim oSheet As Sheet
    
    For Each oSheet In oDrawDoc.Sheets
        Dim oView As DrawingView
        For Each oView In oSheet.DrawingViews
            Call oSheet.DrawingDimensions.GeneralDimensions.Retrieve(oView)
            Dim oCurve As DrawingCurve
            For Each oCurve In oView.DrawingCurves
                If oCurve.CurveType = CurveTypeEnum.kCircleCurve Then
                    Dim seg As DrawingCurveSegment
                    For Each seg In oCurve.Segments
                        If seg.Geometry.Radius &amp;lt;= 1.125 / 2 Then
                            Dim oIntent As GeometryIntent
                            Set oIntent = oSheet.CreateGeometryIntent(oCurve)

                            Call oSheet.Centermarks.Add(oIntent)

                            seg.Visible = False
                        End If
                    Next
                End If
            Next
        Next

        Dim oDataIO As DataIO
        Set oDataIO = oSheet.DataIO

        &lt;FONT color="#ff0000"&gt;Call oDataIO.WriteDataToFile("DWF", "C:\Temp\dwfTest1.dwf")&lt;/FONT&gt;

    Next
    Call ExportDXF
End Sub

Sub ExportDXF()

' Get the DXF translator Add-In.
    Dim DXFAddIn As TranslatorAddIn
    Set 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
    Set oDocument = ThisApplication.ActiveDocument

    Dim oContext As TranslationContext
    Set oContext = ThisApplication.TransientObjects.CreateTranslationContext
    oContext.Type = kFileBrowseIOMechanism

    ' Create a NameValueMap object
    Dim oOptions As NameValueMap
    Set oOptions = ThisApplication.TransientObjects.CreateNameValueMap

    ' Create a DataMedium object
    Dim oDataMedium As DataMedium
    Set oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

    ' Check whether the translator has 'SaveCopyAs' options
    If DXFAddIn.HasSaveCopyAsOptions(oDocument, oContext, oOptions) Then

        Dim strIniFile As String
        &lt;FONT color="#ff0000"&gt;strIniFile = ".ini path\exportdxf.ini"&lt;/FONT&gt;

        ' Create the name-value that specifies the ini file to use.
        oOptions.Value("Export_Acad_IniFile") = strIniFile
    End If

    'Set the destination file name
&lt;FONT color="#ff0000"&gt;    oDataMedium.FileName = "c:\temp\tempdxftest.dxf"&lt;/FONT&gt;
    
    'Publish document.
    Call DXFAddIn.SaveCopyAs(oDocument, oContext, oOptions, oDataMedium)

End Sub&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;In the above code, there are 3 important paths (highlighted in red color) that need to be updated as per the user requirement.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;OL&gt;
&lt;LI&gt;Path of .dwf -&amp;nbsp;This can be changed to required path (Network path)&lt;/LI&gt;
&lt;LI&gt;Path of .ini - exportdxf.ini is zipped and attached with this post. This is very important file and used&amp;nbsp;to mention&amp;nbsp;.dxf export format. Currently, it is mentioned as &lt;STRONG&gt;"AUTOCAD VERSION=AutoCAD 2004". &lt;/STRONG&gt;Need to download, unzip&amp;nbsp;and locate at desire location. The desire location should be mentioned in the above code.&lt;/LI&gt;
&lt;LI&gt;Path of .dxf - This can be changed to required path (Network path)&lt;/LI&gt;
&lt;/OL&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Please feel free to contact if there is any doubt.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;If solve your problem, click on "Accept as solution" / give a "Kudo".&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks and regards,&lt;/P&gt;</description>
      <pubDate>Fri, 26 May 2017 10:46:22 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7110885#M72519</guid>
      <dc:creator>chandra.shekar.g</dc:creator>
      <dc:date>2017-05-26T10:46:22Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7129044#M72657</link>
      <description>&lt;P&gt;Still not what I am looking for. I have a meeting with our vendors to see if the default "save copy as" to dxf from flat pattern will work for them. If so I will then be looking at creating a button to run that process. ant help on that would be greatly appreciated.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Jason&lt;/P&gt;</description>
      <pubDate>Mon, 05 Jun 2017 13:11:12 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7129044#M72657</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2017-06-05T13:11:12Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7129815#M72663</link>
      <description>&lt;P&gt;After the meeting with our vender it was determined that a simple "save as dxf" from the ipt flat pattern was the best way to go. Any ideas on how to create a button for the ribbon would be greatly appreciated.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;Jason&lt;/P&gt;</description>
      <pubDate>Mon, 05 Jun 2017 17:49:07 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7129815#M72663</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2017-06-05T17:49:07Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7131289#M72677</link>
      <description>&lt;P&gt;Hi Jason,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;An Add-In is created and attached with this post. On successful loading Add-In, Ribbon called "Save As Dxf" will be created on activating "&lt;STRONG&gt;Flat Pattern"&lt;/STRONG&gt; mode as shown below.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Ribbon.JPG" style="width: 705px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/363904i4D7956A717BCE9B5/image-size/large?v=v2&amp;amp;px=999" role="button" title="Ribbon.JPG" alt="Ribbon.JPG" /&gt;&lt;/span&gt;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Unzip attached SaveAsDxf.zip and locate the same at &lt;STRONG&gt;"%appdata%\Autodesk\ApplicationPlugins&lt;/STRONG&gt;". After locating folder, "&lt;STRONG&gt;Autodesk.SaveAsDxf.Inventor.addin&lt;/STRONG&gt;" and "&lt;STRONG&gt;SaveAsDxf.dll&lt;/STRONG&gt;" files should available at "%appdata%\Autodesk\ApplicationPlugins\SaveAsDxf".&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Initially,&amp;nbsp;Add-In will be blocked. Go to "&lt;STRONG&gt;Tools&lt;/STRONG&gt;" tab-&amp;gt; Click on "&lt;STRONG&gt;Add-Ins&lt;/STRONG&gt;" button -&amp;gt; "&lt;STRONG&gt;Add-In Manager 2017&lt;/STRONG&gt;" will be launched as shown below. In that, need to uncheck "&lt;STRONG&gt;Block&lt;/STRONG&gt;" box and check "&lt;STRONG&gt;Load Automatically&lt;/STRONG&gt;" and "&lt;STRONG&gt;Loaded/Unloaded&lt;/STRONG&gt;" boxes.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="Unblock.JPG" style="width: 375px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/363900iF9E5815C00E2651E/image-size/large?v=v2&amp;amp;px=999" role="button" title="Unblock.JPG" alt="Unblock.JPG" /&gt;&lt;/span&gt;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Source code is also attached with this post for further enhancement.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&lt;STRONG&gt;Note&lt;/STRONG&gt;: If "&lt;STRONG&gt;ApplicationPlugins&lt;/STRONG&gt;" is not available at "&lt;STRONG&gt;%appdata%\Autodesk\&lt;/STRONG&gt;", folder need to be created.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Please feel free to contact if there is any doubt.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;If solves your problem, click on "Accept as solution" / give&amp;nbsp;a "Kudo".&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks and regards,&lt;/P&gt;</description>
      <pubDate>Tue, 06 Jun 2017 10:26:16 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/7131289#M72677</guid>
      <dc:creator>chandra.shekar.g</dc:creator>
      <dc:date>2017-06-06T10:26:16Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8951159#M100280</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I am interested in trying to implement this solution, however when I download and an unzip the file I cannot find the .dll file that is mentioned above, or any .dll file for that matter. Is there another file type I can use to get this add in to run?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Cameron&lt;/P&gt;</description>
      <pubDate>Tue, 06 Aug 2019 15:36:23 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8951159#M100280</guid>
      <dc:creator>cameron.houston</dc:creator>
      <dc:date>2019-08-06T15:36:23Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8952177#M100288</link>
      <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/7666765"&gt;@cameron.houston&lt;/a&gt;,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Actually, the attachment contains only source code. To get dll, need to build the source code using Visual studio 2015.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks ans regards,&lt;/P&gt;</description>
      <pubDate>Wed, 07 Aug 2019 05:12:11 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8952177#M100288</guid>
      <dc:creator>chandra.shekar.g</dc:creator>
      <dc:date>2019-08-07T05:12:11Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8964270#M100423</link>
      <description>&lt;P&gt;Since my original post I have approached this at a different angle. In place of creating a dxf file of the idw we are currently creating dxf's from the part files. We do this 2 different ways (depending on who needs it). We have an assembly level iLogic rule that basically opens all parts and if there is a flat pattern then it exports the dxf to a network drive and names it the same as the part file name. The only issue that one has is if you have been in Inventor for a period of time then I am assuming the cache fills and causes Inventor to crash. Once the software is restarted it runs perfectly. Our internal dxfs are fine for our programmers. The other is a macro with a button on the ribbon that we fire when needed at the sheet metal part level. We typically use this method for vendor dxf files.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Our vendor has again requested a change and I cannot figure out how to do what they want. I am reaching out to the community for help. I will attach our current macro code which is fired by a custom button placed on the ribbon. I will also attach 2 dxf files, 1 from ACAD (the old way), and 1 from Inventor (the new way). The vendor has asked us to remove all internal circles (holes) and just leave the center point. They state that they have to open all dxfs and manually delete all this geometry prior to importing it into their CAM software.&amp;nbsp;The way we capture this now in ACAD is a question is asked during the dxf creation via lisp what the largest&amp;nbsp;hole dia to be drilled is. The routine then places a center mark on all holes with a diameter equal to or smaller that value. For simplicity this could be a static value of 1 1/8" dia. All help will be appreciated.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Jason Mayes&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;Sub VendorExportDXF()
'config
'Change values located here to change output.
Dim strPath As String
strPath = "R:\email\" 'Must end with a "\"
Dim sOut As String
sOut = "FLAT PATTERN DXF?AcadVersion=2004" _
+ "&amp;amp;OuterProfileLayer=OUTER_PROF&amp;amp;OuterProfileLayerColor=255;165;0" _
+ "&amp;amp;InteriorProfilesLayer=INNER_PROFS&amp;amp;InteriorProfilesLayerColor=124;252;0" _
+ "&amp;amp;FeatureProfileLayer=FEATURE&amp;amp;FeatureProfileLayerColor=255;0;255" _
+ "&amp;amp;ArcCentersLayer=CENTERS&amp;amp;ArcCentersLayerColor=135;206;235" _
+ "&amp;amp;IV_Arc_Centers&amp;amp;InvisibleLayers=IV_Tangent;IV_Bend;IV_Bend_Down;IV_Bend_Up&amp;amp;IV_Arc_Centers&amp;amp;InvisibleLayersColor=135;206;235"

'/config
Dim oPartDoc As Document
Set oPartDoc = ThisApplication.ActiveDocument
Dim oFlatPattern As FlatPattern

'Pre-processing check:
' The Active document must be a Sheet metal Part with a flat pattern
If oPartDoc.DocumentType &amp;lt;&amp;gt; kPartDocumentObject Then
MsgBox "The Active document must be a 'Part'"
Exit Sub
Else
If oPartDoc.SubType &amp;lt;&amp;gt; "{9C464203-9BAE-11D3-8BAD-0060B0CE6BB4}" Then
MsgBox "The Active document must be a 'Sheet Metal Part'"
Exit Sub
Else
Set oFlatPattern = oPartDoc.ComponentDefinition.FlatPattern
If oFlatPattern Is Nothing Then
MsgBox "Please create the flat pattern"
Exit Sub
End If
End If
End If

'Processing:
Dim oDataIO As DataIO
Set oDataIO = oPartDoc.ComponentDefinition.DataIO
Dim strPartNum As String
strPartNum = oPartDoc.PropertySets("Design Tracking Properties").Item("Part Number").Value
Dim strRev As String
strRev = oPartDoc.PropertySets("Inventor Summary Information").Item("Revision Number").Value
Dim oDXFfileNAME As String
oDXFfileNAME = strPath &amp;amp; strPartNum &amp;amp; ".dxf"
Call oDataIO.WriteDataToFile(sOut, oDXFfileNAME)
MsgBox "DXF has been created in R:\email"
'Toggle this on/off to open output folder during output.
'Call Shell("explorer.exe" &amp;amp; " " &amp;amp; strPath, vbNormalFocus)
End Sub&lt;/PRE&gt;</description>
      <pubDate>Tue, 13 Aug 2019 20:49:19 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8964270#M100423</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2019-08-13T20:49:19Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8964290#M100424</link>
      <description>&lt;P&gt;Hi Jason,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;The "&lt;SPAN style="display: inline !important; float: none; background-color: #fef3e3; color: #666666; font-family: 'Artifakt',Tahoma,Helvetica,Arial,sans-serif; font-size: 14px; font-style: normal; font-variant: normal; font-weight: 400; letter-spacing: normal; orphans: 2; text-align: left; text-decoration: none; text-indent: 0px; text-transform: none; -webkit-text-stroke-width: 0px; white-space: normal; word-spacing: 0px;"&gt; assembly level iLogic rule that basically opens all parts and if there is a flat pattern then it exports the dxf to a network drive and names it the same as the part file name&lt;/SPAN&gt;" is essentially the exact workflow I am looking to achieve. Would it be possible for you to share the ILogic code for this? Is this a simple rule you have created?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Cameron&lt;/P&gt;</description>
      <pubDate>Tue, 13 Aug 2019 20:58:34 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8964290#M100424</guid>
      <dc:creator>cameron.houston</dc:creator>
      <dc:date>2019-08-13T20:58:34Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8965480#M100446</link>
      <description>&lt;P&gt;this is the macro that fires the rule, it is added to our ribbon as a button&lt;/P&gt;&lt;PRE&gt;Public Sub AssemblyExportDXFs()

Dim addIn As ApplicationAddIn
Dim addIns As ApplicationAddIns
Set addIns = ThisApplication.ApplicationAddIns
    For Each addIn In addIns
        If InStr(addIn.DisplayName, "iLogic") &amp;gt; 0 Then
                        addIn.Activate
            Dim iLogicAuto As Object
            Set iLogicAuto = addIn.Automation
            Exit For
        End If
    Next
Debug.Print addIn.DisplayName
 
 
Dim RuleName1 As String
EXTERNALrule = "DXF-Flat Patterns Export to Burn" ‘this is where you will call out out your rule name, ours is an external rule

Dim RuleName2 As String
INTERNALrule = "Rule0"
 
  Dim oDoc As Document
 
  Set oDoc = ThisApplication.ActiveDocument
  If oDoc Is Nothing Then
    MsgBox "Missing Inventor Document"
    Exit Sub
  End If
 
'iLogicAuto.RunRule oDoc, INTERNALrule 'for internal rule
iLogicAuto.RunExternalRule oDoc, EXTERNALrule 'for external rule

End Sub&lt;/PRE&gt;&lt;P&gt;here is our external rule that is fired from above macro&lt;/P&gt;&lt;PRE&gt;'define the active document as an assembly file
Dim oAsmDoc As AssemblyDocument

oAsmDoc = ThisApplication.ActiveDocument

oAsmName = Left(oAsmDoc.DisplayName, Len(oAsmDoc.DisplayName) -4)



'check that the active document is an assembly file
If ThisApplication.ActiveDocument.DocumentType &amp;lt;&amp;gt; kAssemblyDocumentObject Then

	MessageBox.Show("Please run this rule from the assembly file.", "iLogic")
	
	Exit Sub
	
End If

'get user input
RUsure = MessageBox.Show ( _
"This will create a DXF file for all of the assembly components that was created using the sheet metal template." _
&amp;amp; vbLf &amp;amp; "This rule expects that the part file is saved." _
&amp;amp; vbLf &amp;amp; " " _
&amp;amp; vbLf &amp;amp; "Are you sure you want to create DXF for all of the assembly components?" _
&amp;amp; vbLf &amp;amp; "This could take a while.", "iLogic  - Batch Output DXFs ",MessageBoxButtons.YesNo)

If RUsure = vbNo Then

	Return
	
	Else
	
End If

oPath = "R:\email\Burn Table" 'this will need to be modified for your use

oDataMedium = ThisApplication.TransientObjects.CreateDataMedium

oContext = ThisApplication.TransientObjects.CreateTranslationContext

oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism

oOptions = ThisApplication.TransientObjects.CreateNameValueMap

'get DXF target folder path
oFolder = oPath &amp;amp; "\" &amp;amp; oAsmName

'Check for the DXF folder and create it if it does not exist
If Not System.IO.Directory.Exists(oFolder) Then

    System.IO.Directory.CreateDirectory(oFolder)
	
End If
'- - - - - - - - - - - - -

'- - - - - - - - - - - - -Component  - - - - - - - - - - - -
'look at the files referenced by the assembly
Dim oRefDocs As DocumentsEnumerator

oRefDocs = oAsmDoc.AllReferencedDocuments

Dim oRefDoc As Document


'work the drawing files for the referenced models
'this expects that the model has been saved
		For Each oRefDoc In oRefDocs
			
			iptPathName = Left(oRefDoc.FullDocumentName, Len(oRefDoc.FullDocumentName) - 3) &amp;amp; "ipt"

    		'check that model is saved
			If(System.IO.File.Exists(iptPathName)) Then
			
                Dim oDrawDoc As PartDocument
				
                oDrawDoc = ThisApplication.Documents.Open(iptPathName, True)
				
            	oFileName = Left(oRefDoc.DisplayName, Len(oRefDoc.DisplayName))
				
				Try
				
                	'Set the DXF target file name
                	ofilename = Left(oRefDoc.displayname, Len(oRefDoc.DisplayName) - 3)
					
					oDataMedium.FileName = oFolder &amp;amp; "\" &amp;amp; oFileName &amp;amp; "dxf"
				
					Dim oCompDef As SheetMetalComponentDefinition
				
					oCompDef = oDrawDoc.ComponentDefinition
					
					If oCompDef.HasFlatPattern = False Then
					
						oCompDef.Unfold
						
					Else
					
   						oCompDef.FlatPattern.Edit
						
					End If

					Dim sOut As String
					
					'this assigns colors to the different layers, this can also be modified
				
					sOut = "FLAT PATTERN DXF?AcadVersion=2004" _
					+ "&amp;amp;OuterProfileLayer=OUTER_PROF&amp;amp;OuterProfileLayerColor=255;165;0" _
					+ "&amp;amp;InteriorProfilesLayer=INNER_PROFS&amp;amp;InteriorProfilesLayerColor=124;252;0" _
					+ "&amp;amp;FeatureProfileLayer=FEATURE&amp;amp;FeatureProfileLayerColor=255;0;255" _
					+ "&amp;amp;ArcCentersLayer=CENTERS&amp;amp;ArcCentersLayerColor=135;206;235" _
					+ "&amp;amp;IV_Arc_Centers&amp;amp;InvisibleLayers=IV_Tangent;IV_Bend;IV_Bend_Down;IV_Bend_Up&amp;amp;IV_Arc_Centers&amp;amp;InvisibleLayersColor=135;206;235"

					
					oCompDef.DataIO.WriteDataToFile( sOut, oDataMedium.FileName)
				
					'just for checking to see if its works coretcly
					'i=MessageBox.Show(oDataMedium.FileName, "Title",MessageBoxButtons.OKCancel)
					
					'MessageBox.Show(i,"title",MessageBoxButtons.OK)
				
					'If i=2 Then
				
						'Exit Sub
				
					'End If

					oCompDef.FlatPattern.ExitEdit
				
				Catch
				
				End Try
                
				oDrawDoc.Close
				
			Else
					
			End If
			
		Next&lt;/PRE&gt;&lt;P&gt;Jason&lt;/P&gt;</description>
      <pubDate>Wed, 14 Aug 2019 11:48:04 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8965480#M100446</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2019-08-14T11:48:04Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8978728#M100562</link>
      <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/4427777"&gt;@chandra.shekar.g&lt;/a&gt;&amp;nbsp;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Can you help with this?&lt;/P&gt;&lt;P&gt;Thanks,&lt;/P&gt;&lt;P&gt;Jason&lt;/P&gt;</description>
      <pubDate>Wed, 21 Aug 2019 14:55:53 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8978728#M100562</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2019-08-21T14:55:53Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8992585#M100812</link>
      <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/506634"&gt;@JasonMayes&lt;/a&gt;,&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;There are 2 issues. One is Inventor crash on running iLogic (generating dxf from sheet metal). Another issue is to deletion of holes and left with only hole centers.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Please validate the issues.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Thanks and regards,&lt;/P&gt;</description>
      <pubDate>Wed, 28 Aug 2019 12:27:30 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8992585#M100812</guid>
      <dc:creator>chandra.shekar.g</dc:creator>
      <dc:date>2019-08-28T12:27:30Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8993846#M100829</link>
      <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/4427777"&gt;@chandra.shekar.g&lt;/a&gt;&amp;nbsp; Please see my post referenced in attached picture. The thread that I think you are referring to was my reply to a request for how we handle assembly level def exports. That process seems to work good as long as we run in from a fresh start on Inventor otherwise it will crash. I am guessing at has something to do with the cache. If you have another way around this please feel free to help. I am more curious about my other post regarding the removal of hole with a smaller diameter only leaving the center mark. See photo of post.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Jason&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="170D4AE3-6569-4AC6-AFB7-59F9A556CC38.png" style="width: 999px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/671855i7F5F706E329018B4/image-size/large?v=v2&amp;amp;px=999" role="button" title="170D4AE3-6569-4AC6-AFB7-59F9A556CC38.png" alt="170D4AE3-6569-4AC6-AFB7-59F9A556CC38.png" /&gt;&lt;/span&gt;&lt;/P&gt;</description>
      <pubDate>Wed, 28 Aug 2019 20:35:37 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8993846#M100829</guid>
      <dc:creator>JasonMayes</dc:creator>
      <dc:date>2019-08-28T20:35:37Z</dc:date>
    </item>
    <item>
      <title>Re: Inventor idw to dxf vs ACAD dxf creation</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8994781#M100851</link>
      <description>&lt;P&gt;following the workflow that &lt;A href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/2511355" target="_blank"&gt;@MechMachineMan&lt;/A&gt; described I made a pice of code that will create the automated centerlines and move the circles to an other layer.&lt;/P&gt;&lt;P&gt;what you have to do, and maybe write code for it if you didnot do that already:&lt;/P&gt;&lt;P&gt;1 open the sheet metal part&lt;/P&gt;&lt;P&gt;2 create a new drawing of it&lt;/P&gt;&lt;P&gt;3 delete evreything from it like bordes, this is to get the right dxf output (better create an empty template and use that)&lt;/P&gt;&lt;P&gt;4 place one view of the flatpattern&lt;/P&gt;&lt;P&gt;5 Run my code, you can alter the layer, and the values for the radius&lt;/P&gt;&lt;P&gt;6 save as DXF, (mind you, don't use "model geometry only" this will remove the centerlines)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;see my screencast:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;DIV class="iframe-container"&gt;&lt;IFRAME width="640" height="590" src="https://screencast.autodesk.com/Embed/Timeline/d578e32a-c506-415b-9221-cba3528e8562" frameborder="0" scrolling="no" allowfullscreen="allowfullscreen" webkitallowfullscreen="webkitallowfullscreen"&gt;&lt;/IFRAME&gt;&lt;/DIV&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;the code:&lt;/P&gt;&lt;PRE&gt;&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDrawDoc&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;DrawingDocument&lt;/SPAN&gt; = &lt;SPAN style="color: #800080;"&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;ActiveDocument&lt;/SPAN&gt;
        &lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oActiveSheet&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Sheet&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oDrawDoc&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;ActiveSheet&lt;/SPAN&gt;

        &lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDrawView&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;DrawingView&lt;/SPAN&gt; = &lt;SPAN style="color: #ff0000;"&gt;Nothing&lt;/SPAN&gt;

        &lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;hiddenLayer&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Layer&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oDrawDoc&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StylesManager&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Layers&lt;/SPAN&gt;(&lt;SPAN style="color: #008080;"&gt;"Hidden"&lt;/SPAN&gt;)


        &lt;SPAN style="color: #ff0000;"&gt;For&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;Each&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDrawView&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;In&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oActiveSheet&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;DrawingViews&lt;/SPAN&gt;

            &lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;autoCenterSet&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;AutomatedCenterlineSettings&lt;/SPAN&gt;
            &lt;SPAN style="color: #800000;"&gt;oDrawView&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GetAutomatedCenterlineSettings&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;autoCenterSet&lt;/SPAN&gt;)

            &lt;SPAN style="color: #800000;"&gt;autoCenterSet&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CircularEdgeMaximumThreshold&lt;/SPAN&gt; = 1.2 &lt;SPAN style="color: #808080;"&gt;'12 mm&lt;/SPAN&gt;

            &lt;SPAN style="color: #808080;"&gt;'create automated centerlines:&lt;/SPAN&gt;
            &lt;SPAN style="color: #800000;"&gt;oDrawView&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;SetAutomatedCenterlineSettings&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;autoCenterSet&lt;/SPAN&gt;)

            &lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDrawCurve&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;DrawingCurve&lt;/SPAN&gt; = &lt;SPAN style="color: #ff0000;"&gt;Nothing&lt;/SPAN&gt;
            &lt;SPAN style="color: #ff0000;"&gt;For&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;Each&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDrawCurve&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;In&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDrawView&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;DrawingCurves&lt;/SPAN&gt;
                &lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;drawCurveSeg&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;DrawingCurveSegment&lt;/SPAN&gt;
                &lt;SPAN style="color: #ff0000;"&gt;For&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;Each&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;drawCurveSeg&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;In&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDrawCurve&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Segments&lt;/SPAN&gt;
                    &lt;SPAN style="color: #ff0000;"&gt;If&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;drawCurveSeg&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GeometryType&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;Curve2dTypeEnum&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;kCircleCurve2d&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;Then&lt;/SPAN&gt;
                        &lt;SPAN style="color: #ff0000;"&gt;If&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;drawCurveSeg&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Geometry&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Radius&lt;/SPAN&gt; &amp;lt; 0.6 &lt;SPAN style="color: #ff0000;"&gt;Then&lt;/SPAN&gt;  &lt;SPAN style="color: #808080;"&gt;'6 mm&lt;/SPAN&gt;
                            &lt;SPAN style="color: #808080;"&gt;'change layer&lt;/SPAN&gt;
                            &lt;SPAN style="color: #800000;"&gt;drawCurveSeg&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Layer&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;hiddenLayer&lt;/SPAN&gt;
                        &lt;SPAN style="color: #ff0000;"&gt;End&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;If&lt;/SPAN&gt;
                    &lt;SPAN style="color: #ff0000;"&gt;End&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;If&lt;/SPAN&gt;
                &lt;SPAN style="color: #ff0000;"&gt;Next&lt;/SPAN&gt;

            &lt;SPAN style="color: #ff0000;"&gt;Next&lt;/SPAN&gt;

        &lt;SPAN style="color: #ff0000;"&gt;Next&lt;/SPAN&gt;

        &lt;SPAN style="color: #800000;"&gt;hiddenLayer&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Visible&lt;/SPAN&gt; = &lt;SPAN style="color: #ff0000;"&gt;False&lt;/SPAN&gt;
&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 29 Aug 2019 10:00:33 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/inventor-idw-to-dxf-vs-acad-dxf-creation/m-p/8994781#M100851</guid>
      <dc:creator>HermJan.Otterman</dc:creator>
      <dc:date>2019-08-29T10:00:33Z</dc:date>
    </item>
  </channel>
</rss>

