<?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: Adding revision number exported to filename in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485254#M162227</link>
    <description>&lt;P&gt;Hi,&lt;BR /&gt;&lt;BR /&gt;Hope this helps you!&lt;BR /&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;oInvApp&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&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;"dd-MM-yyyy"&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;"DWG &amp;amp; PDF"&lt;/SPAN&gt;, &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;, &lt;SPAN&gt;"DWG 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;"DWG &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;"DWG 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;oInvApp&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;oInvApp&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; &amp;lt;&amp;gt; &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;Continue&lt;/SPAN&gt; &lt;SPAN&gt;For&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;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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oInvApp&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;Application&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;DrawingDocument&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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;sDescript&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Design Tracking Properties"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Description"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;
	&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; = &lt;SPAN&gt;oInvApp&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;oInvApp&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;oInvApp&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;oInvApp&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;Left&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;)-1)
	&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 = Left(oFileName, InStrRev(oFileName, ".") - 1)&lt;/SPAN&gt;
	&lt;FONT color="#0000FF"&gt;&lt;EM&gt;'REF Model
	Dim oRefModel As Document = oDocument.ReferencedDocuments.Item(1)
	oRevNum = oRefModel.PropertySets("Inventor Summary Information").Item("Revision Number").Value
	Dim oExtra As String = Nothing
	If oRevNum = "" Or  oRevNum Is Nothing Then
		oExtra = Nothing
		Else
		oExtra = "_" &amp;amp; oRevNum	
	End If 
	oFilePart = Left(oFileName, InStrRev(oFileName, ".") -1) &amp;amp; " " &amp;amp; sDescript &amp;amp; oExtra&lt;/EM&gt;&lt;/FONT&gt;

	&lt;SPAN&gt;'oRevNum = oDocument.iProperties.Value("Project", "Revision Number")&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;) = 1
	&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; &amp;amp; &lt;SPAN&gt;"\Export DWG &amp;amp; PDF ("&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DateString&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;")"&lt;/SPAN&gt;
	&lt;SPAN&gt;oDirectoryName&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetDirectoryName&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&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;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;".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;".dwg"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;) &lt;SPAN&gt;'For DWG'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(".DWG"), True) 'For DWG'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;</description>
    <pubDate>Tue, 09 Jan 2024 08:42:41 GMT</pubDate>
    <dc:creator>BM_Ashraf</dc:creator>
    <dc:date>2024-01-09T08:42:41Z</dc:date>
    <item>
      <title>Adding revision number exported to filename</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485158#M162224</link>
      <description>&lt;P&gt;A while ago i struggled with the below code and with your help i've worked with it pleasently. Now the question is to add the revision number of the exported document to the filename (if there is a revision number).&amp;nbsp;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This code is used to export current or all open drawings to PDF and/or DWG.&amp;nbsp;This saves a lot of time to export 50+ drawings of a project.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;When i edit the code i'm coming to 2 outcome's:&lt;/P&gt;&lt;P&gt;1. it is looking at the revision number of the shown model and not the drawings revision number.&amp;nbsp;&lt;/P&gt;&lt;P&gt;2. it is only looking at the current open drawing's revision number and adding it to all filenames.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Now i can update the revision numbers to the models by hand, but that's not ideal.&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;oInvApp&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&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;"dd-MM-yyyy"&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;"DWG &amp;amp; PDF"&lt;/SPAN&gt;, &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;, &lt;SPAN&gt;"DWG 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;"DWG &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;"DWG 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;oInvApp&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;oInvApp&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; &amp;lt;&amp;gt; &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;Continue&lt;/SPAN&gt; &lt;SPAN&gt;For&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;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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oInvApp&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;Application&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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;sDescript&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Design Tracking Properties"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Description"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;
	&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; = &lt;SPAN&gt;oInvApp&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;oInvApp&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;oInvApp&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;oInvApp&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;Left&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;)-1)
	&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 = Left(oFileName, InStrRev(oFileName, ".") - 1)&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) &amp;amp; &lt;SPAN&gt;" "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;sDescript&lt;/SPAN&gt;
	&lt;SPAN&gt;'oRevNum = oDocument.iProperties.Value("Project", "Revision Number")&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;) = 1
	&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; &amp;amp; &lt;SPAN&gt;"\Export DWG &amp;amp; PDF ("&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DateString&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;")"&lt;/SPAN&gt;
	&lt;SPAN&gt;oDirectoryName&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetDirectoryName&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&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;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;".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;".dwg"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;) &lt;SPAN&gt;'For DWG'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(".DWG"), True) 'For DWG'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;&amp;nbsp;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 09 Jan 2024 07:29:47 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485158#M162224</guid>
      <dc:creator>jordyCVWSE</dc:creator>
      <dc:date>2024-01-09T07:29:47Z</dc:date>
    </item>
    <item>
      <title>Re: Adding revision number exported to filename</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485254#M162227</link>
      <description>&lt;P&gt;Hi,&lt;BR /&gt;&lt;BR /&gt;Hope this helps you!&lt;BR /&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;oInvApp&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&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;"dd-MM-yyyy"&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;"DWG &amp;amp; PDF"&lt;/SPAN&gt;, &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;, &lt;SPAN&gt;"DWG 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;"DWG &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;"DWG 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;oInvApp&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;oInvApp&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; &amp;lt;&amp;gt; &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;Continue&lt;/SPAN&gt; &lt;SPAN&gt;For&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;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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oInvApp&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;Application&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;DrawingDocument&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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;sDescript&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Design Tracking Properties"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Description"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;
	&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; = &lt;SPAN&gt;oInvApp&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;oInvApp&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;oInvApp&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;oInvApp&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;Left&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;)-1)
	&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 = Left(oFileName, InStrRev(oFileName, ".") - 1)&lt;/SPAN&gt;
	&lt;FONT color="#0000FF"&gt;&lt;EM&gt;'REF Model
	Dim oRefModel As Document = oDocument.ReferencedDocuments.Item(1)
	oRevNum = oRefModel.PropertySets("Inventor Summary Information").Item("Revision Number").Value
	Dim oExtra As String = Nothing
	If oRevNum = "" Or  oRevNum Is Nothing Then
		oExtra = Nothing
		Else
		oExtra = "_" &amp;amp; oRevNum	
	End If 
	oFilePart = Left(oFileName, InStrRev(oFileName, ".") -1) &amp;amp; " " &amp;amp; sDescript &amp;amp; oExtra&lt;/EM&gt;&lt;/FONT&gt;

	&lt;SPAN&gt;'oRevNum = oDocument.iProperties.Value("Project", "Revision Number")&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;) = 1
	&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; &amp;amp; &lt;SPAN&gt;"\Export DWG &amp;amp; PDF ("&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DateString&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;")"&lt;/SPAN&gt;
	&lt;SPAN&gt;oDirectoryName&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetDirectoryName&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&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;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;".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;".dwg"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;) &lt;SPAN&gt;'For DWG'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(".DWG"), True) 'For DWG'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;</description>
      <pubDate>Tue, 09 Jan 2024 08:42:41 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485254#M162227</guid>
      <dc:creator>BM_Ashraf</dc:creator>
      <dc:date>2024-01-09T08:42:41Z</dc:date>
    </item>
    <item>
      <title>Re: Adding revision number exported to filename</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485316#M162228</link>
      <description>&lt;P&gt;Thank you for the quick reply. Since the time of the post i've been puzzling in the code and found a different solution:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Maybe it is a bit rough as i am not a coder, but it worked.&amp;nbsp;&lt;/P&gt;&lt;P&gt;also added if there is no Rev number that it doesn't show.&lt;/P&gt;&lt;P&gt;&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;oInvApp&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&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;"dd-MM-yyyy"&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;"DWG &amp;amp; PDF"&lt;/SPAN&gt;, &lt;SPAN&gt;"PDF Only"&lt;/SPAN&gt;, &lt;SPAN&gt;"DWG 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;"DWG &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;"DWG 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;oInvApp&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;oInvApp&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; &amp;lt;&amp;gt; &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt; &lt;SPAN&gt;Continue&lt;/SPAN&gt; &lt;SPAN&gt;For&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;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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oInvApp&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;Application&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;Dim&lt;/SPAN&gt; &lt;SPAN&gt;sDescript&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Design Tracking Properties"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Description"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;
&lt;FONT color="#3366FF"&gt;	&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;sRevnum&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Revision Number"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;
	
	&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Revision Number"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
		&lt;SPAN&gt;oREV&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt;
&lt;SPAN&gt;ElseIf&lt;/SPAN&gt; &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Revision Number"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;  &lt;SPAN&gt;IsNot&lt;/SPAN&gt;  &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
		&lt;SPAN&gt;oREV&lt;/SPAN&gt;= &lt;SPAN&gt;" REV "&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;&lt;/FONT&gt;
	
	&lt;SPAN&gt;oPDFAddIn&lt;/SPAN&gt; = &lt;SPAN&gt;oInvApp&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;oInvApp&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;oInvApp&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;oInvApp&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;Left&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;)-1)
	&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 = Left(oFileName, InStrRev(oFileName, ".") - 1)&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) &amp;amp; &lt;SPAN&gt;" "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;sDescript&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oREV&lt;/SPAN&gt; &amp;amp;&lt;FONT color="#3366FF"&gt; &lt;SPAN&gt;sRevNum&lt;/SPAN&gt;&lt;/FONT&gt;
	&lt;SPAN&gt;'oRevNum = oDocument.iProperties.Value("Project", "Revision Number")&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;) = 1
	&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; &amp;amp; &lt;SPAN&gt;"\Export DWG &amp;amp; PDF ("&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DateString&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;")"&lt;/SPAN&gt;
	&lt;SPAN&gt;oDirectoryName&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt;.&lt;SPAN&gt;GetDirectoryName&lt;/SPAN&gt;(&lt;SPAN&gt;oFullFileName&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;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;".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;".dwg"&lt;/SPAN&gt;, &lt;SPAN&gt;True&lt;/SPAN&gt;) &lt;SPAN&gt;'For DWG'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(".DWG"), True) 'For DWG'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>Tue, 09 Jan 2024 09:17:12 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485316#M162228</guid>
      <dc:creator>jordyCVWSE</dc:creator>
      <dc:date>2024-01-09T09:17:12Z</dc:date>
    </item>
    <item>
      <title>Re: Adding revision number exported to filename</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485346#M162229</link>
      <description>&lt;P&gt;Hi,&lt;BR /&gt;Well done!&lt;BR /&gt;Yeah, that works too.&lt;BR /&gt;You will face one problem if no revision exists. As you will add the Text " REV " or space " " to the file name.&lt;BR /&gt;&lt;BR /&gt;&lt;/P&gt;</description>
      <pubDate>Tue, 09 Jan 2024 09:36:25 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485346#M162229</guid>
      <dc:creator>BM_Ashraf</dc:creator>
      <dc:date>2024-01-09T09:36:25Z</dc:date>
    </item>
    <item>
      <title>Re: Adding revision number exported to filename</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485511#M162233</link>
      <description>&lt;PRE&gt;&lt;FONT color="#3366FF"&gt;&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Revision Number"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
		&lt;SPAN&gt;oREV&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt;
&lt;SPAN&gt;ElseIf&lt;/SPAN&gt; &lt;SPAN&gt;oDocument&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Revision Number"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;  &lt;SPAN&gt;IsNot&lt;/SPAN&gt;  &lt;SPAN&gt;""&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
		&lt;SPAN&gt;oREV&lt;/SPAN&gt;= &lt;SPAN&gt;"REV "&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;&lt;/FONT&gt;&lt;/PRE&gt;&lt;P&gt;To my logic i prefent this from happening with this If section.&amp;nbsp;&lt;/P&gt;&lt;P&gt; &lt;/P&gt;&lt;P&gt;If there is "nothing" filled in to the revision number value, "nothing" will be added.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;If something is filled into te revision number value, REV will be added in front of the Revision number value.&amp;nbsp;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;That is wat the goal is with this section. That REV is not always shown, only when there is a Revision.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;So far it is working as intended. Tried it with multiple documents so far so good.&amp;nbsp;&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="Schermafbeelding 2024-01-09 114025.png" style="width: 600px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/1311911i79C7E357EF4ECE83/image-size/medium?v=v2&amp;amp;px=400" role="button" title="Schermafbeelding 2024-01-09 114025.png" alt="Schermafbeelding 2024-01-09 114025.png" /&gt;&lt;/span&gt;&lt;/P&gt;</description>
      <pubDate>Tue, 09 Jan 2024 10:42:09 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/adding-revision-number-exported-to-filename/m-p/12485511#M162233</guid>
      <dc:creator>jordyCVWSE</dc:creator>
      <dc:date>2024-01-09T10:42:09Z</dc:date>
    </item>
  </channel>
</rss>

