<?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 export all open files to pdf with revision level in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12534471#M163267</link>
    <description>&lt;P&gt;I am still somewhat new to iLogic, I have this code that I have gotten from the forums and modified to export all open drawings to pdf in a single folder. It works great with only one problem. I include a custom iproperty of "&lt;FONT color="#FF0000"&gt;REV LEVEL&lt;/FONT&gt;" in the file name. The issue is it takes the revision level of the first drawing and uses it for all the other drawings. How is that value reset or changed between each loop thru the code?&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()
  &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;myDate&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;Now&lt;/SPAN&gt;().&lt;SPAN&gt;ToString&lt;/SPAN&gt;(&lt;SPAN&gt;"yyyy-MM-dd HHmmss"&lt;/SPAN&gt;)
  &lt;SPAN&gt;myDate&lt;/SPAN&gt; = &lt;SPAN&gt;myDate&lt;/SPAN&gt;.&lt;SPAN&gt;Replace&lt;/SPAN&gt;(&lt;SPAN&gt;":"&lt;/SPAN&gt;,&lt;SPAN&gt;""&lt;/SPAN&gt;)  &lt;SPAN&gt;' &amp;amp; " - " &amp;amp; TypeString&lt;/SPAN&gt;
 &lt;SPAN&gt;userChoice&lt;/SPAN&gt; = &lt;SPAN&gt;InputRadioBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Defined the scope"&lt;/SPAN&gt;, &lt;SPAN&gt;"This Document"&lt;/SPAN&gt;, &lt;SPAN&gt;"All Open Documents"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;, &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Defined the scope"&lt;/SPAN&gt;)
 &lt;SPAN&gt;UserSelectedActionList&lt;/SPAN&gt; = &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;(){&lt;SPAN&gt;"DXF &amp;amp; PDF"&lt;/SPAN&gt;, &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;, &lt;SPAN&gt;"DXF Only"&lt;/SPAN&gt;}
  &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = &lt;SPAN&gt;InputListBox&lt;/SPAN&gt;(&lt;SPAN&gt;"What action must be performed with selected views?"&lt;/SPAN&gt;, _
          &lt;SPAN&gt;UserSelectedActionList&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedActionList&lt;/SPAN&gt;(0), &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Action to Perform"&lt;/SPAN&gt;, &lt;SPAN&gt;ListName&lt;/SPAN&gt; := &lt;SPAN&gt;"Options"&lt;/SPAN&gt;)
      &lt;SPAN&gt;Select&lt;/SPAN&gt; &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt;
   &lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"DXF &amp;amp; PDF"&lt;/SPAN&gt;: &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 3
   &lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;: &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 1
   &lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"DXF Only"&lt;/SPAN&gt;:    &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 2
   &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Select&lt;/SPAN&gt;
 &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;userChoice&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;MakePDFFromDoc&lt;/SPAN&gt;(&lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;, &lt;SPAN&gt;myDate&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt;)
  &lt;SPAN&gt;Else&lt;/SPAN&gt;
   &lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;Documents&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt;
     &lt;SPAN&gt;Try&lt;/SPAN&gt;
      &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Len&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;)&amp;gt;0 &lt;SPAN&gt;Then&lt;/SPAN&gt;
       &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;MakePDFFromDoc&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;, &lt;SPAN&gt;myDate&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt;)
      &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
     &lt;SPAN&gt;Catch&lt;/SPAN&gt;
     &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
   &lt;SPAN&gt;Next&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;Sub&lt;/SPAN&gt; &lt;SPAN&gt;MakePDFFromDoc&lt;/SPAN&gt;(&lt;SPAN&gt;ByRef&lt;/SPAN&gt; &lt;SPAN&gt;oDocument&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;, &lt;SPAN&gt;DateString&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Integer&lt;/SPAN&gt;)
 &lt;SPAN&gt;' oPath = oDocument.Path&lt;/SPAN&gt;
 &lt;SPAN&gt;' oFileName = oDocument.FileName(False) 'without extension&lt;/SPAN&gt;
  &lt;SPAN&gt;'oDocument = ThisApplication.ActiveDocument&lt;/SPAN&gt;
  &lt;SPAN&gt;oPDFAddIn&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;"{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}"&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;oContext&lt;/SPAN&gt;.&lt;SPAN&gt;Type&lt;/SPAN&gt; = &lt;SPAN&gt;IOMechanismEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kFileBrowseIOMechanism&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;oDataMedium&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;oFullFileName&lt;/SPAN&gt; = &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;
 &lt;SPAN&gt;oPath&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\eric.smyth\OneDrive - CPM Holdings Inc\Desktop\pdf folder"&lt;/SPAN&gt;
  &lt;SPAN&gt;'oPath = Left(oFullFileName, InStrRev(oFullFileName, "\")-1)&lt;/SPAN&gt;
  &lt;SPAN&gt;oFileName&lt;/SPAN&gt; = &lt;SPAN&gt;Right&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&lt;/SPAN&gt;, &lt;SPAN&gt;Len&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&lt;/SPAN&gt;)-&lt;SPAN&gt;InStrRev&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&lt;/SPAN&gt;, &lt;SPAN&gt;"\"&lt;/SPAN&gt;))
  &lt;SPAN&gt;oFilePart&lt;/SPAN&gt; = &lt;SPAN&gt;Left&lt;/SPAN&gt;(&lt;SPAN&gt;oFileName&lt;/SPAN&gt;, &lt;SPAN&gt;InStrRev&lt;/SPAN&gt;(&lt;SPAN&gt;oFileName&lt;/SPAN&gt;, &lt;SPAN&gt;"."&lt;/SPAN&gt;)-1)
 &lt;SPAN&gt;'oRevNum = oDocument.iProperties.Value("Project", "Revision Number")&lt;/SPAN&gt;
 &lt;SPAN&gt;oRevNum1&lt;/SPAN&gt;= &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Custom"&lt;/SPAN&gt;, &lt;SPAN&gt;"&lt;FONT color="#FF0000"&gt;REV LEVEL&lt;/FONT&gt;"&lt;/SPAN&gt;)
  &lt;SPAN&gt;'oDocument = ThisApplication.ActiveDocument&lt;/SPAN&gt;
 &lt;SPAN&gt;' If oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then&lt;/SPAN&gt;
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"All_Color_AS_Black"&lt;/SPAN&gt;) = 0
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Remove_Line_Weights"&lt;/SPAN&gt;) = 0
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Vector_Resolution"&lt;/SPAN&gt;) = 400
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Sheet_Range"&lt;/SPAN&gt;) = &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;PrintRangeEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kPrintAllSheets&lt;/SPAN&gt;
  &lt;SPAN&gt;'oOptions.Value("Custom_Begin_Sheet") = 2&lt;/SPAN&gt;
  &lt;SPAN&gt;'oOptions.Value("Custom_End_Sheet") = 4&lt;/SPAN&gt;
 &lt;SPAN&gt;' End If&lt;/SPAN&gt;
 &lt;SPAN&gt;'get PDF target folder path&lt;/SPAN&gt;
  &lt;SPAN&gt;'oFolder = Left(oPath, InStrRev(oPath, "\")) &amp;amp; "PDF"&lt;/SPAN&gt;
  &lt;SPAN&gt;oFolder&lt;/SPAN&gt; = &lt;SPAN&gt;oPath&lt;/SPAN&gt;
  &lt;SPAN&gt;'oFolder = oPath &amp;amp; "\iLogic PDF's (" &amp;amp; DateString &amp;amp; ")"&lt;/SPAN&gt;
 &lt;SPAN&gt;'Check for the PDF folder and create it if it does not exist&lt;/SPAN&gt;
  &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Directory&lt;/SPAN&gt;.&lt;SPAN&gt;Exists&lt;/SPAN&gt;(&lt;SPAN&gt;oFolder&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Directory&lt;/SPAN&gt;.&lt;SPAN&gt;CreateDirectory&lt;/SPAN&gt;(&lt;SPAN&gt;oFolder&lt;/SPAN&gt;)
  &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
 &lt;SPAN&gt;'Set the PDF target file name&lt;/SPAN&gt;
 &lt;SPAN&gt;'DataMedium.FileName = "\" &amp;amp; oFileName &amp;amp; "_r" &amp;amp; oRevNum1 &amp;amp; ".pdf"&lt;/SPAN&gt;
  &lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;oFolder&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oFilePart&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"_r"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oRevNum1&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;".pdf"&lt;/SPAN&gt;
  &lt;SPAN&gt;'PDFName = PDFPath &amp;amp; "\" &amp;amp; oFileName &amp;amp; "_r" &amp;amp; oRevNum1 &amp;amp; ".pdf"&lt;/SPAN&gt;
 &lt;SPAN&gt;'Publish document&lt;/SPAN&gt;
  &lt;SPAN&gt;If&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 1) &lt;SPAN&gt;Or&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 3) &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt;.&lt;SPAN&gt;SaveCopyAs&lt;/SPAN&gt;(&lt;SPAN&gt;oDocument&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;, &lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;)&lt;SPAN&gt;'For PDF's&lt;/SPAN&gt;
  &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
  &lt;SPAN&gt;If&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 2) &lt;SPAN&gt;Or&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 3) &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;SaveAs&lt;/SPAN&gt;(&lt;SPAN&gt;oFolder&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oFilePart&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;".dxf"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;) &lt;SPAN&gt;'For DXF's&lt;/SPAN&gt;
  &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
  &lt;SPAN&gt;'oDocument.SaveAs(oFolder &amp;amp; "\" &amp;amp; ThisDoc.ChangeExtension(".dxf"), True) 'For DXF's&lt;/SPAN&gt;
  &lt;SPAN&gt;'------end of iLogic-------&lt;/SPAN&gt;
 &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
    <pubDate>Thu, 01 Feb 2024 15:04:53 GMT</pubDate>
    <dc:creator>eric_smythC4KJK</dc:creator>
    <dc:date>2024-02-01T15:04:53Z</dc:date>
    <item>
      <title>export all open files to pdf with revision level</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12534471#M163267</link>
      <description>&lt;P&gt;I am still somewhat new to iLogic, I have this code that I have gotten from the forums and modified to export all open drawings to pdf in a single folder. It works great with only one problem. I include a custom iproperty of "&lt;FONT color="#FF0000"&gt;REV LEVEL&lt;/FONT&gt;" in the file name. The issue is it takes the revision level of the first drawing and uses it for all the other drawings. How is that value reset or changed between each loop thru the code?&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;()
  &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;myDate&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;Now&lt;/SPAN&gt;().&lt;SPAN&gt;ToString&lt;/SPAN&gt;(&lt;SPAN&gt;"yyyy-MM-dd HHmmss"&lt;/SPAN&gt;)
  &lt;SPAN&gt;myDate&lt;/SPAN&gt; = &lt;SPAN&gt;myDate&lt;/SPAN&gt;.&lt;SPAN&gt;Replace&lt;/SPAN&gt;(&lt;SPAN&gt;":"&lt;/SPAN&gt;,&lt;SPAN&gt;""&lt;/SPAN&gt;)  &lt;SPAN&gt;' &amp;amp; " - " &amp;amp; TypeString&lt;/SPAN&gt;
 &lt;SPAN&gt;userChoice&lt;/SPAN&gt; = &lt;SPAN&gt;InputRadioBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Defined the scope"&lt;/SPAN&gt;, &lt;SPAN&gt;"This Document"&lt;/SPAN&gt;, &lt;SPAN&gt;"All Open Documents"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;, &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Defined the scope"&lt;/SPAN&gt;)
 &lt;SPAN&gt;UserSelectedActionList&lt;/SPAN&gt; = &lt;SPAN&gt;New&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;(){&lt;SPAN&gt;"DXF &amp;amp; PDF"&lt;/SPAN&gt;, &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;, &lt;SPAN&gt;"DXF Only"&lt;/SPAN&gt;}
  &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = &lt;SPAN&gt;InputListBox&lt;/SPAN&gt;(&lt;SPAN&gt;"What action must be performed with selected views?"&lt;/SPAN&gt;, _
          &lt;SPAN&gt;UserSelectedActionList&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedActionList&lt;/SPAN&gt;(0), &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Action to Perform"&lt;/SPAN&gt;, &lt;SPAN&gt;ListName&lt;/SPAN&gt; := &lt;SPAN&gt;"Options"&lt;/SPAN&gt;)
      &lt;SPAN&gt;Select&lt;/SPAN&gt; &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt;
   &lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"DXF &amp;amp; PDF"&lt;/SPAN&gt;: &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 3
   &lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;: &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 1
   &lt;SPAN&gt;Case&lt;/SPAN&gt; &lt;SPAN&gt;"DXF Only"&lt;/SPAN&gt;:    &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 2
   &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Select&lt;/SPAN&gt;
 &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;userChoice&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;MakePDFFromDoc&lt;/SPAN&gt;(&lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;, &lt;SPAN&gt;myDate&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt;)
  &lt;SPAN&gt;Else&lt;/SPAN&gt;
   &lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;Documents&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt;
     &lt;SPAN&gt;Try&lt;/SPAN&gt;
      &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Len&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;)&amp;gt;0 &lt;SPAN&gt;Then&lt;/SPAN&gt;
       &lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;MakePDFFromDoc&lt;/SPAN&gt;(&lt;SPAN&gt;oDoc&lt;/SPAN&gt;, &lt;SPAN&gt;myDate&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt;)
      &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
     &lt;SPAN&gt;Catch&lt;/SPAN&gt;
     &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
   &lt;SPAN&gt;Next&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;Sub&lt;/SPAN&gt; &lt;SPAN&gt;MakePDFFromDoc&lt;/SPAN&gt;(&lt;SPAN&gt;ByRef&lt;/SPAN&gt; &lt;SPAN&gt;oDocument&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Document&lt;/SPAN&gt;, &lt;SPAN&gt;DateString&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;, &lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Integer&lt;/SPAN&gt;)
 &lt;SPAN&gt;' oPath = oDocument.Path&lt;/SPAN&gt;
 &lt;SPAN&gt;' oFileName = oDocument.FileName(False) 'without extension&lt;/SPAN&gt;
  &lt;SPAN&gt;'oDocument = ThisApplication.ActiveDocument&lt;/SPAN&gt;
  &lt;SPAN&gt;oPDFAddIn&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;"{0AC6FD96-2F4D-42CE-8BE0-8AEA580399E4}"&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;oContext&lt;/SPAN&gt;.&lt;SPAN&gt;Type&lt;/SPAN&gt; = &lt;SPAN&gt;IOMechanismEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kFileBrowseIOMechanism&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;oDataMedium&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;oFullFileName&lt;/SPAN&gt; = &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;FullFileName&lt;/SPAN&gt;
 &lt;SPAN&gt;oPath&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\eric.smyth\OneDrive - CPM Holdings Inc\Desktop\pdf folder"&lt;/SPAN&gt;
  &lt;SPAN&gt;'oPath = Left(oFullFileName, InStrRev(oFullFileName, "\")-1)&lt;/SPAN&gt;
  &lt;SPAN&gt;oFileName&lt;/SPAN&gt; = &lt;SPAN&gt;Right&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&lt;/SPAN&gt;, &lt;SPAN&gt;Len&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&lt;/SPAN&gt;)-&lt;SPAN&gt;InStrRev&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&lt;/SPAN&gt;, &lt;SPAN&gt;"\"&lt;/SPAN&gt;))
  &lt;SPAN&gt;oFilePart&lt;/SPAN&gt; = &lt;SPAN&gt;Left&lt;/SPAN&gt;(&lt;SPAN&gt;oFileName&lt;/SPAN&gt;, &lt;SPAN&gt;InStrRev&lt;/SPAN&gt;(&lt;SPAN&gt;oFileName&lt;/SPAN&gt;, &lt;SPAN&gt;"."&lt;/SPAN&gt;)-1)
 &lt;SPAN&gt;'oRevNum = oDocument.iProperties.Value("Project", "Revision Number")&lt;/SPAN&gt;
 &lt;SPAN&gt;oRevNum1&lt;/SPAN&gt;= &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Custom"&lt;/SPAN&gt;, &lt;SPAN&gt;"&lt;FONT color="#FF0000"&gt;REV LEVEL&lt;/FONT&gt;"&lt;/SPAN&gt;)
  &lt;SPAN&gt;'oDocument = ThisApplication.ActiveDocument&lt;/SPAN&gt;
 &lt;SPAN&gt;' If oPDFAddIn.HasSaveCopyAsOptions(oDataMedium, oContext, oOptions) Then&lt;/SPAN&gt;
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"All_Color_AS_Black"&lt;/SPAN&gt;) = 0
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Remove_Line_Weights"&lt;/SPAN&gt;) = 0
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Vector_Resolution"&lt;/SPAN&gt;) = 400
  &lt;SPAN&gt;oOptions&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Sheet_Range"&lt;/SPAN&gt;) = &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;PrintRangeEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kPrintAllSheets&lt;/SPAN&gt;
  &lt;SPAN&gt;'oOptions.Value("Custom_Begin_Sheet") = 2&lt;/SPAN&gt;
  &lt;SPAN&gt;'oOptions.Value("Custom_End_Sheet") = 4&lt;/SPAN&gt;
 &lt;SPAN&gt;' End If&lt;/SPAN&gt;
 &lt;SPAN&gt;'get PDF target folder path&lt;/SPAN&gt;
  &lt;SPAN&gt;'oFolder = Left(oPath, InStrRev(oPath, "\")) &amp;amp; "PDF"&lt;/SPAN&gt;
  &lt;SPAN&gt;oFolder&lt;/SPAN&gt; = &lt;SPAN&gt;oPath&lt;/SPAN&gt;
  &lt;SPAN&gt;'oFolder = oPath &amp;amp; "\iLogic PDF's (" &amp;amp; DateString &amp;amp; ")"&lt;/SPAN&gt;
 &lt;SPAN&gt;'Check for the PDF folder and create it if it does not exist&lt;/SPAN&gt;
  &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Not&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Directory&lt;/SPAN&gt;.&lt;SPAN&gt;Exists&lt;/SPAN&gt;(&lt;SPAN&gt;oFolder&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Directory&lt;/SPAN&gt;.&lt;SPAN&gt;CreateDirectory&lt;/SPAN&gt;(&lt;SPAN&gt;oFolder&lt;/SPAN&gt;)
  &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
 &lt;SPAN&gt;'Set the PDF target file name&lt;/SPAN&gt;
 &lt;SPAN&gt;'DataMedium.FileName = "\" &amp;amp; oFileName &amp;amp; "_r" &amp;amp; oRevNum1 &amp;amp; ".pdf"&lt;/SPAN&gt;
  &lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt; = &lt;SPAN&gt;oFolder&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oFilePart&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"_r"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oRevNum1&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;".pdf"&lt;/SPAN&gt;
  &lt;SPAN&gt;'PDFName = PDFPath &amp;amp; "\" &amp;amp; oFileName &amp;amp; "_r" &amp;amp; oRevNum1 &amp;amp; ".pdf"&lt;/SPAN&gt;
 &lt;SPAN&gt;'Publish document&lt;/SPAN&gt;
  &lt;SPAN&gt;If&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 1) &lt;SPAN&gt;Or&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 3) &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt;.&lt;SPAN&gt;SaveCopyAs&lt;/SPAN&gt;(&lt;SPAN&gt;oDocument&lt;/SPAN&gt;, &lt;SPAN&gt;oContext&lt;/SPAN&gt;, &lt;SPAN&gt;oOptions&lt;/SPAN&gt;, &lt;SPAN&gt;oDataMedium&lt;/SPAN&gt;)&lt;SPAN&gt;'For PDF's&lt;/SPAN&gt;
  &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
  &lt;SPAN&gt;If&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 2) &lt;SPAN&gt;Or&lt;/SPAN&gt; (&lt;SPAN&gt;UserSelectedAction&lt;/SPAN&gt; = 3) &lt;SPAN&gt;Then&lt;/SPAN&gt;
   &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;SaveAs&lt;/SPAN&gt;(&lt;SPAN&gt;oFolder&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oFilePart&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;".dxf"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;) &lt;SPAN&gt;'For DXF's&lt;/SPAN&gt;
  &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
  &lt;SPAN&gt;'oDocument.SaveAs(oFolder &amp;amp; "\" &amp;amp; ThisDoc.ChangeExtension(".dxf"), True) 'For DXF's&lt;/SPAN&gt;
  &lt;SPAN&gt;'------end of iLogic-------&lt;/SPAN&gt;
 &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;
&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Thu, 01 Feb 2024 15:04:53 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12534471#M163267</guid>
      <dc:creator>eric_smythC4KJK</dc:creator>
      <dc:date>2024-02-01T15:04:53Z</dc:date>
    </item>
    <item>
      <title>Re: export all open files to pdf with revision level</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12534929#M163282</link>
      <description>&lt;P&gt;Your sub "MakePDFFromDoc()" is being called with "ThisApplication.ActiveDocument". Therefore, it is always only going to make the PDF from the active document on screen.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;You instead need to loop through each of the open document(s), calling "MakePDFFromDoc" on each document.&lt;/P&gt;</description>
      <pubDate>Thu, 01 Feb 2024 18:04:22 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12534929#M163282</guid>
      <dc:creator>Ethibaudeau</dc:creator>
      <dc:date>2024-02-01T18:04:22Z</dc:date>
    </item>
    <item>
      <title>Re: export all open files to pdf with revision level</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12534986#M163285</link>
      <description>&lt;P&gt;isn't Sub Main() looping thru all "&lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;Documents" and then calling&amp;nbsp;"MakePDFFromDoc" on each document? It is saving all the drawings as pdfs, its not getting the correct "rev level" for each.&lt;/SPAN&gt;&lt;/P&gt;</description>
      <pubDate>Thu, 01 Feb 2024 18:29:04 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12534986#M163285</guid>
      <dc:creator>eric_smythC4KJK</dc:creator>
      <dc:date>2024-02-01T18:29:04Z</dc:date>
    </item>
    <item>
      <title>Re: export all open files to pdf with revision level</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12535006#M163286</link>
      <description>&lt;P&gt;Ah, sorry about that, you are correct. I misread the code.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I generally avoid iLogic, and go straight to the Inventor API. My guess is the iLogic: "iProperties" is grabbing info for the active document.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;I see you might have been trying 'Document.iProperties" in the commented code, which would have errored because that doesn't exist. Instead, try the Inventor API: "Document.PropertySets"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;A href="https://help.autodesk.com/view/INVNTOR/2022/ENU/?guid=Document_FilePropertySets" target="_blank" rel="noopener"&gt;https://help.autodesk.com/view/INVNTOR/2022/ENU/?guid=Document_FilePropertySets&lt;/A&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Example here:&lt;BR /&gt;&lt;A href="https://help.autodesk.com/view/INVNTOR/2022/ENU/?guid=iPropertyGetValue_Sample" target="_blank" rel="noopener"&gt;https://help.autodesk.com/view/INVNTOR/2022/ENU/?guid=iPropertyGetValue_Sample&lt;/A&gt;&lt;/P&gt;</description>
      <pubDate>Fri, 02 Feb 2024 16:12:18 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-all-open-files-to-pdf-with-revision-level/m-p/12535006#M163286</guid>
      <dc:creator>Ethibaudeau</dc:creator>
      <dc:date>2024-02-02T16:12:18Z</dc:date>
    </item>
  </channel>
</rss>

