<?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 Add folder browser when exporting .step using ilogic in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10744995#M131047</link>
    <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;I have an iLogic rule that lets me export selected parts from assembly as step files.&lt;/P&gt;&lt;P&gt;I want to add a modification so that when i select parts and run the rule, then a folder browser pops up and lets me choose where i want to save selected parts. Now it just saves step files in the same directory that the part files are located, but i want to be able to choose where i want to save .step files.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Rule i use for exporting selected files is from this forum, posted by&amp;nbsp;&lt;SPAN&gt;&amp;nbsp;&lt;/SPAN&gt;&lt;A href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/1734991" target="_self"&gt;&lt;SPAN class=""&gt;marcin_otręba&lt;/SPAN&gt;&lt;/A&gt;.&lt;/P&gt;&lt;P&gt;The rule:&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Public&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()
&lt;SPAN&gt;'MsgBox("BOM QTY Update ")&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ass&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;AssemblyDocument&lt;/SPAN&gt;= &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oselset&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;SelectSet&lt;/SPAN&gt; = &lt;SPAN&gt;ass&lt;/SPAN&gt;.&lt;SPAN&gt;SelectSet&lt;/SPAN&gt;	
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;i&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Integer&lt;/SPAN&gt; = 0
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;result&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Boolean&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;occ&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;ComponentOccurrence&lt;/SPAN&gt; 
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oselset&lt;/SPAN&gt;.&lt;SPAN&gt;Count&lt;/SPAN&gt;&amp;lt;&amp;gt;0 &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;occ&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oselset&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt; = &lt;SPAN&gt;occ&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;

&lt;SPAN&gt;' Update or create the custom iProperty.&lt;/SPAN&gt;
&lt;SPAN&gt;result&lt;/SPAN&gt;=&lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;)
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;result&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;i&lt;/SPAN&gt; = &lt;SPAN&gt;i&lt;/SPAN&gt; + 1
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;Next&lt;BR /&gt;MessageBox.Show(i &amp;amp; " files successfully exported", "result")&lt;/SPAN&gt;
&lt;SPAN&gt;Else&lt;/SPAN&gt;
	&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"You must select files to export before running rule"&lt;/SPAN&gt;, &lt;SPAN&gt;"Error"&lt;/SPAN&gt;)

&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
&lt;SPAN&gt;'Here's the subroutine.&lt;/SPAN&gt;

 

&lt;SPAN&gt;Function&lt;/SPAN&gt; &lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;) &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Boolean&lt;/SPAN&gt;
    &lt;SPAN&gt;' Get the STEP translator Add-In.&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TranslatorAddIn&lt;/SPAN&gt;
     &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ApplicationAddIns&lt;/SPAN&gt;.&lt;SPAN&gt;ItemById&lt;/SPAN&gt;(&lt;SPAN&gt;"{90AF7F40-0C01-11D5-8E83-0010B541CD80}"&lt;/SPAN&gt;)


    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt; &lt;SPAN&gt;Is&lt;/SPAN&gt; &lt;SPAN&gt;Nothing&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;MsgBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Could not access STEP translator."&lt;/SPAN&gt;)
		&lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;=&lt;SPAN&gt;False&lt;/SPAN&gt;
        &lt;SPAN&gt;Exit&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oContext&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TranslationContext&lt;/SPAN&gt;
     &lt;SPAN&gt;oContext&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateTranslationContext&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oOptions&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;NameValueMap&lt;/SPAN&gt;
     &lt;SPAN&gt;oOptions&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateNameValueMap&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt;.&lt;SPAN&gt;HasSaveCopyAsOptions&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;' Set application protocol.&lt;/SPAN&gt;
        &lt;SPAN&gt;' 2 = AP 203 - Configuration Controlled Design&lt;/SPAN&gt;
        &lt;SPAN&gt;' 3 = AP 214 - Automotive Design&lt;/SPAN&gt;
        &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"ApplicationProtocolType"&lt;/SPAN&gt;) = 3

        &lt;SPAN&gt;' Other options...&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Author") = ""&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Authorization") = ""&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Description") = ""&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Organization") = ""&lt;/SPAN&gt;

        &lt;SPAN&gt;oContext&lt;/SPAN&gt;.&lt;SPAN&gt;Type&lt;/SPAN&gt; = &lt;SPAN&gt;kFileBrowseIOMechanism&lt;/SPAN&gt;

        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oData&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DataMedium&lt;/SPAN&gt;
         &lt;SPAN&gt;oData&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateDataMedium&lt;/SPAN&gt;
        &lt;SPAN&gt;oData&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;Replace&lt;/SPAN&gt;(&lt;SPAN&gt;Replace&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;fullfilename&lt;/SPAN&gt;,&lt;SPAN&gt;".ipt"&lt;/SPAN&gt;,&lt;SPAN&gt;""&lt;/SPAN&gt;),&lt;SPAN&gt;".iam"&lt;/SPAN&gt;,&lt;SPAN&gt;""&lt;/SPAN&gt;) &amp;amp; &lt;SPAN&gt;".stp"&lt;/SPAN&gt;

        &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt;.&lt;SPAN&gt;SaveCopyAs&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;, &lt;SPAN&gt;oData&lt;/SPAN&gt;)
		&lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;=&lt;SPAN&gt;True&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
    <pubDate>Tue, 09 Nov 2021 12:37:35 GMT</pubDate>
    <dc:creator>m.rymut</dc:creator>
    <dc:date>2021-11-09T12:37:35Z</dc:date>
    <item>
      <title>Add folder browser when exporting .step using ilogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10744995#M131047</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;I have an iLogic rule that lets me export selected parts from assembly as step files.&lt;/P&gt;&lt;P&gt;I want to add a modification so that when i select parts and run the rule, then a folder browser pops up and lets me choose where i want to save selected parts. Now it just saves step files in the same directory that the part files are located, but i want to be able to choose where i want to save .step files.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Rule i use for exporting selected files is from this forum, posted by&amp;nbsp;&lt;SPAN&gt;&amp;nbsp;&lt;/SPAN&gt;&lt;A href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/1734991" target="_self"&gt;&lt;SPAN class=""&gt;marcin_otręba&lt;/SPAN&gt;&lt;/A&gt;.&lt;/P&gt;&lt;P&gt;The rule:&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Public&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()
&lt;SPAN&gt;'MsgBox("BOM QTY Update ")&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;ass&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;AssemblyDocument&lt;/SPAN&gt;= &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oselset&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;SelectSet&lt;/SPAN&gt; = &lt;SPAN&gt;ass&lt;/SPAN&gt;.&lt;SPAN&gt;SelectSet&lt;/SPAN&gt;	
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;i&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Integer&lt;/SPAN&gt; = 0
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;result&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Boolean&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;occ&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;ComponentOccurrence&lt;/SPAN&gt; 
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oselset&lt;/SPAN&gt;.&lt;SPAN&gt;Count&lt;/SPAN&gt;&amp;lt;&amp;gt;0 &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;occ&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oselset&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt; = &lt;SPAN&gt;occ&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;

&lt;SPAN&gt;' Update or create the custom iProperty.&lt;/SPAN&gt;
&lt;SPAN&gt;result&lt;/SPAN&gt;=&lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;)
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;result&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
	&lt;SPAN&gt;i&lt;/SPAN&gt; = &lt;SPAN&gt;i&lt;/SPAN&gt; + 1
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;Next&lt;BR /&gt;MessageBox.Show(i &amp;amp; " files successfully exported", "result")&lt;/SPAN&gt;
&lt;SPAN&gt;Else&lt;/SPAN&gt;
	&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"You must select files to export before running rule"&lt;/SPAN&gt;, &lt;SPAN&gt;"Error"&lt;/SPAN&gt;)

&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
&lt;SPAN&gt;'Here's the subroutine.&lt;/SPAN&gt;

 

&lt;SPAN&gt;Function&lt;/SPAN&gt; &lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;) &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Boolean&lt;/SPAN&gt;
    &lt;SPAN&gt;' Get the STEP translator Add-In.&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TranslatorAddIn&lt;/SPAN&gt;
     &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ApplicationAddIns&lt;/SPAN&gt;.&lt;SPAN&gt;ItemById&lt;/SPAN&gt;(&lt;SPAN&gt;"{90AF7F40-0C01-11D5-8E83-0010B541CD80}"&lt;/SPAN&gt;)


    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt; &lt;SPAN&gt;Is&lt;/SPAN&gt; &lt;SPAN&gt;Nothing&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;MsgBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Could not access STEP translator."&lt;/SPAN&gt;)
		&lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;=&lt;SPAN&gt;False&lt;/SPAN&gt;
        &lt;SPAN&gt;Exit&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oContext&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;TranslationContext&lt;/SPAN&gt;
     &lt;SPAN&gt;oContext&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateTranslationContext&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oOptions&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;NameValueMap&lt;/SPAN&gt;
     &lt;SPAN&gt;oOptions&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateNameValueMap&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt;.&lt;SPAN&gt;HasSaveCopyAsOptions&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;' Set application protocol.&lt;/SPAN&gt;
        &lt;SPAN&gt;' 2 = AP 203 - Configuration Controlled Design&lt;/SPAN&gt;
        &lt;SPAN&gt;' 3 = AP 214 - Automotive Design&lt;/SPAN&gt;
        &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"ApplicationProtocolType"&lt;/SPAN&gt;) = 3

        &lt;SPAN&gt;' Other options...&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Author") = ""&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Authorization") = ""&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Description") = ""&lt;/SPAN&gt;
        &lt;SPAN&gt;'oOptions.Value("Organization") = ""&lt;/SPAN&gt;

        &lt;SPAN&gt;oContext&lt;/SPAN&gt;.&lt;SPAN&gt;Type&lt;/SPAN&gt; = &lt;SPAN&gt;kFileBrowseIOMechanism&lt;/SPAN&gt;

        &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oData&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;DataMedium&lt;/SPAN&gt;
         &lt;SPAN&gt;oData&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN&gt;CreateDataMedium&lt;/SPAN&gt;
        &lt;SPAN&gt;oData&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;Replace&lt;/SPAN&gt;(&lt;SPAN&gt;Replace&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;fullfilename&lt;/SPAN&gt;,&lt;SPAN&gt;".ipt"&lt;/SPAN&gt;,&lt;SPAN&gt;""&lt;/SPAN&gt;),&lt;SPAN&gt;".iam"&lt;/SPAN&gt;,&lt;SPAN&gt;""&lt;/SPAN&gt;) &amp;amp; &lt;SPAN&gt;".stp"&lt;/SPAN&gt;

        &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oSTEPTranslator&lt;/SPAN&gt;.&lt;SPAN&gt;SaveCopyAs&lt;/SPAN&gt;(&lt;SPAN&gt;doc&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;, &lt;SPAN&gt;oData&lt;/SPAN&gt;)
		&lt;SPAN&gt;ExportToSTEP&lt;/SPAN&gt;=&lt;SPAN&gt;True&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Function&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 09 Nov 2021 12:37:35 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10744995#M131047</guid>
      <dc:creator>m.rymut</dc:creator>
      <dc:date>2021-11-09T12:37:35Z</dc:date>
    </item>
    <item>
      <title>Re: Add folder browser when exporting .step using ilogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10746018#M131059</link>
      <description>&lt;P&gt;Try this:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="general"&gt;Public Sub Main()
	Dim ass As AssemblyDocument = ThisApplication.ActiveDocument
	Dim RutaExport As String = ThisDoc.Path
	Dim Dialog = New FolderBrowserDialog()
	Dialog.SelectedPath = RutaExport
	Dialog.ShowNewFolderButton = True
	Dialog.Description = "Choose directory for saved .stp files"
	Dialog.ShowDialog()
	If DialogResult.OK Then
		oPath = Dialog.SelectedPath &amp;amp; "\"
	Else
		Return
	End If
	Dim oselset As SelectSet = ass.SelectSet
	Dim i As Integer = 0
	Dim result As Boolean
	Dim occ As ComponentOccurrence
	If oselset.Count &amp;lt;&amp;gt; 0 Then
		For Each occ In oselset
			Dim doc As Document = occ.Definition.Document
			result = ExportToSTEP(doc, oPath)
			If result = True Then
				i = i + 1
			End If
		Next
		MessageBox.Show(i &amp;amp; " files successfully exported", "result")
	Else
		MessageBox.Show("You must select files to export before running rule", "Error")
	End If
End Sub

Function ExportToSTEP(doc As Document, sPath As String) As Boolean
	Dim oSTEPTranslator As TranslatorAddIn = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
	Dim oContext As TranslationContext = ThisApplication.TransientObjects.CreateTranslationContext
	Dim oOptions As NameValueMap = ThisApplication.TransientObjects.CreateNameValueMap
	If oSTEPTranslator.HasSaveCopyAsOptions(doc, oContext, oOptions) Then
		oOptions.Value("ApplicationProtocolType") = 3
		oContext.Type = kFileBrowseIOMechanism
		Dim oData As DataMedium = ThisApplication.TransientObjects.CreateDataMedium
		uPath = Left(doc.FullDocumentName, InStrRev(doc.FullDocumentName, "\") -1)
		uName = Mid(doc.FullDocumentName, Len(uPath) + 2, Len(doc.FullDocumentName) -Len(uPath) -5)
		oData.FileName = sPath &amp;amp; uName &amp;amp; ".stp" 
		Call oSTEPTranslator.SaveCopyAs(doc, oContext, oOptions, oData)
		ExportToSTEP = True
	End If
End Function&lt;/LI-CODE&gt;</description>
      <pubDate>Tue, 09 Nov 2021 18:48:31 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10746018#M131059</guid>
      <dc:creator>petr.meduna</dc:creator>
      <dc:date>2021-11-09T18:48:31Z</dc:date>
    </item>
    <item>
      <title>Re: Add folder browser when exporting .step using ilogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10746099#M131060</link>
      <description>&lt;P&gt;This is just another version that I was working on for you at the same time.&amp;nbsp; It just puts the code for the folder dialog out into a separate function to keep the main code cleaner.&lt;/P&gt;
&lt;LI-CODE lang="general"&gt;Sub Main()
	Dim ass As AssemblyDocument = ThisApplication.ActiveDocument
	Dim oSelSet As SelectSet = ass.SelectSet
	If oSelSet.Count = 0 Then
		MessageBox.Show("You must select files to export before running rule", "Error")
		Exit Sub
	End If
	'this runs the custom Function defined below to return a selected folder path
	oFolder = GetFolder
	'make sure a folder was selected, if not exit rule
	If String.IsNullOrEmpty(oFolder) Then Exit Sub
	Dim i As Integer = 0
	Dim result As Boolean
	Dim Occ As ComponentOccurrence
	For Each Occ In oSelSet
		Dim OccDoc As Document = Occ.Definition.Document
		'get file name (without path &amp;amp; without file extension)
		oName = System.IO.Path.GetFileNameWithoutExtension(OccDoc.FullFileName)
		'put new STEP file name together
		oNewName = oFolder &amp;amp; "\" &amp;amp; oName &amp;amp; ".stp"
		result = ExportToSTEP(OccDoc, oNewName)
		If result = True Then
			i = i + 1
		End If
	Next
	MessageBox.Show(i &amp;amp; " files successfully exported", "result")
End Sub

'Here's the subroutine.
Function ExportToSTEP(doc As Document, NewFileName As String) As Boolean
	' Get the STEP translator Add-In.
	Dim oSTEPTranslator As TranslatorAddIn
	oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")
	If oSTEPTranslator Is Nothing Then
		MsgBox("Could not access STEP translator.")
		ExportToSTEP = False
		Exit Function
	End If

	oContext = ThisApplication.TransientObjects.CreateTranslationContext
	oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism
	oOptions = ThisApplication.TransientObjects.CreateNameValueMap
	oData = ThisApplication.TransientObjects.CreateDataMedium
	oData.FileName = NewFileName
	
	If oSTEPTranslator.HasSaveCopyAsOptions(doc, oContext, oOptions) Then
		' Set application protocol.
		' 2 = AP 203 - Configuration Controlled Design
		' 3 = AP 214 - Automotive Design
		oOptions.Value("ApplicationProtocolType") = 3
		'oOptions.Value("Author") = ""
		'oOptions.Value("Authorization") = ""
		'oOptions.Value("Description") = ""
		'oOptions.Value("Organization") = ""

		oSTEPTranslator.SaveCopyAs(doc, oContext, oOptions, oData)
		ExportToSTEP = True
    End If
End Function

Function GetFolder() As String
	'Imports System.Windows.Forms
	Dim oSFolder As String
	Dim oFDialog As New System.Windows.Forms.FolderBrowserDialog
	oFDialog.Description = "SELECT DIRECTORY TO SAVE STEP FILES IN."
	oFDialog.RootFolder = System.Environment.SpecialFolder.MyComputer
	Dim oResult As DialogResult = oFDialog.ShowDialog()
	If oResult = DialogResult.OK Then
		oSFolder = oFDialog.SelectedPath
	Else
		Return String.Empty
	End If
	Return oSFolder
End Function&lt;/LI-CODE&gt;</description>
      <pubDate>Tue, 09 Nov 2021 19:25:49 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10746099#M131060</guid>
      <dc:creator>WCrihfield</dc:creator>
      <dc:date>2021-11-09T19:25:49Z</dc:date>
    </item>
    <item>
      <title>Re: Add folder browser when exporting .step using ilogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10747321#M131072</link>
      <description>Works perfectly, thank you very much.</description>
      <pubDate>Wed, 10 Nov 2021 08:33:47 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10747321#M131072</guid>
      <dc:creator>m.rymut</dc:creator>
      <dc:date>2021-11-10T08:33:47Z</dc:date>
    </item>
    <item>
      <title>Re: Add folder browser when exporting .step using ilogic</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10747328#M131073</link>
      <description>&lt;P&gt;Yes, i think i might have sent you a private message for help&amp;nbsp;&lt;img class="lia-deferred-image lia-image-emoji" src="https://forums.autodesk.com/html/@1A5BF4DFF76C3208F100BEEBB3221CE2/emoticons/1f605.png" alt=":grinning_face_with_sweat:" title=":grinning_face_with_sweat:" /&gt;&lt;/P&gt;&lt;P&gt;Code works perfectly, thanks for the help&lt;/P&gt;</description>
      <pubDate>Wed, 10 Nov 2021 08:36:42 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/add-folder-browser-when-exporting-step-using-ilogic/m-p/10747328#M131073</guid>
      <dc:creator>m.rymut</dc:creator>
      <dc:date>2021-11-10T08:36:42Z</dc:date>
    </item>
  </channel>
</rss>

