<?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 picture (PNG) - ilogic - with variable Name in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7770226#M80245</link>
    <description>&lt;P&gt;HI all,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; i use this Code, for Export Model to PNG Picture:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;-----------------------------------------------------------------------------------&lt;/P&gt;&lt;P&gt;Option Explicit On&lt;/P&gt;&lt;P&gt;Dim m_Doc As Inventor.Document&lt;BR /&gt;m_Doc = ThisDoc.Document&lt;/P&gt;&lt;P&gt;If m_Doc.DocumentType &amp;lt;&amp;gt; kAssemblyDocumentObject _&lt;BR /&gt;&amp;nbsp;&amp;nbsp; And m_Doc.DocumentType &amp;lt;&amp;gt; kPartDocumentObject Then&lt;BR /&gt;&amp;nbsp;&amp;nbsp; MessageBox.Show("File is not a model.", "iLogic")&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Return 'exit rule&lt;BR /&gt;End If&lt;/P&gt;&lt;P&gt;Dim m_Camera As Inventor.Camera&lt;BR /&gt;m_Camera = ThisServer.TransientObjects.CreateCamera()&lt;BR /&gt;If m_Doc.DocumentType = kPartDocumentObject Then&lt;BR /&gt;&amp;nbsp; m_Camera.SceneObject = DirectCast(m_Doc, PartDocument).ComponentDefinition&lt;BR /&gt;Else&lt;BR /&gt;&amp;nbsp; m_Camera.SceneObject = DirectCast(m_Doc, AssemblyDocument).ComponentDefinition&lt;BR /&gt;End If&lt;BR /&gt;'m_Camera.Perspective = True&lt;/P&gt;&lt;P&gt;Dim m_TO As Inventor.TransientObjects&lt;BR /&gt;m_TO = ThisApplication.TransientObjects&lt;/P&gt;&lt;P&gt;Dim oFileName As String = ThisDoc.FileName(False)&lt;/P&gt;&lt;P&gt;m_Camera.ViewOrientationType = Inventor.ViewOrientationTypeEnum.kIsoTopLeftViewOrientation&lt;BR /&gt;m_Camera.Fit&lt;BR /&gt;m_Camera.ApplyWithoutTransition&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;Dim m_PrevMode As DisplayModeEnum&lt;BR /&gt;Dim m_Disp3D As Boolean&lt;/P&gt;&lt;P&gt;m_Disp3D = ThisApplication.DisplayOptions.Show3DIndicator&lt;BR /&gt;m_PrevMode = ThisApplication.DisplayOptions.NewWindowDisplayMode&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;ThisApplication.DisplayOptions.NewWindowDisplayMode = DisplayModeEnum.kSHADEDWITHEDGESRendering&lt;BR /&gt;ThisApplication.DisplayOptions.Show3DIndicator = False&lt;/P&gt;&lt;P&gt;Try&lt;BR /&gt;m_Camera.SaveAsBitmap("C:\Export\" &amp;amp; oFileName &amp;amp; ".png", 2970, 2100, m_TO.CreateColor(255,255,255))&lt;/P&gt;&lt;P&gt;Finally&lt;BR /&gt;ThisApplication.DisplayOptions.NewWindowDisplayMode = m_PrevMode&lt;BR /&gt;ThisApplication.DisplayOptions.Show3DIndicator = m_Disp3D&lt;BR /&gt;End Try&lt;/P&gt;&lt;P&gt;----------------------------------------------------------------------------------&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;But i have Problem with export more Picture from one Model -&amp;gt; is overwriten. I need edit code and add with variable Name (Name_001 - Name_999).&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Please can me help sameone?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;TY.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
    <pubDate>Mon, 12 Feb 2018 10:02:10 GMT</pubDate>
    <dc:creator>Anonymous</dc:creator>
    <dc:date>2018-02-12T10:02:10Z</dc:date>
    <item>
      <title>Export picture (PNG) - ilogic - with variable Name</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7770226#M80245</link>
      <description>&lt;P&gt;HI all,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; i use this Code, for Export Model to PNG Picture:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;-----------------------------------------------------------------------------------&lt;/P&gt;&lt;P&gt;Option Explicit On&lt;/P&gt;&lt;P&gt;Dim m_Doc As Inventor.Document&lt;BR /&gt;m_Doc = ThisDoc.Document&lt;/P&gt;&lt;P&gt;If m_Doc.DocumentType &amp;lt;&amp;gt; kAssemblyDocumentObject _&lt;BR /&gt;&amp;nbsp;&amp;nbsp; And m_Doc.DocumentType &amp;lt;&amp;gt; kPartDocumentObject Then&lt;BR /&gt;&amp;nbsp;&amp;nbsp; MessageBox.Show("File is not a model.", "iLogic")&lt;BR /&gt;&amp;nbsp;&amp;nbsp; Return 'exit rule&lt;BR /&gt;End If&lt;/P&gt;&lt;P&gt;Dim m_Camera As Inventor.Camera&lt;BR /&gt;m_Camera = ThisServer.TransientObjects.CreateCamera()&lt;BR /&gt;If m_Doc.DocumentType = kPartDocumentObject Then&lt;BR /&gt;&amp;nbsp; m_Camera.SceneObject = DirectCast(m_Doc, PartDocument).ComponentDefinition&lt;BR /&gt;Else&lt;BR /&gt;&amp;nbsp; m_Camera.SceneObject = DirectCast(m_Doc, AssemblyDocument).ComponentDefinition&lt;BR /&gt;End If&lt;BR /&gt;'m_Camera.Perspective = True&lt;/P&gt;&lt;P&gt;Dim m_TO As Inventor.TransientObjects&lt;BR /&gt;m_TO = ThisApplication.TransientObjects&lt;/P&gt;&lt;P&gt;Dim oFileName As String = ThisDoc.FileName(False)&lt;/P&gt;&lt;P&gt;m_Camera.ViewOrientationType = Inventor.ViewOrientationTypeEnum.kIsoTopLeftViewOrientation&lt;BR /&gt;m_Camera.Fit&lt;BR /&gt;m_Camera.ApplyWithoutTransition&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;Dim m_PrevMode As DisplayModeEnum&lt;BR /&gt;Dim m_Disp3D As Boolean&lt;/P&gt;&lt;P&gt;m_Disp3D = ThisApplication.DisplayOptions.Show3DIndicator&lt;BR /&gt;m_PrevMode = ThisApplication.DisplayOptions.NewWindowDisplayMode&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;ThisApplication.DisplayOptions.NewWindowDisplayMode = DisplayModeEnum.kSHADEDWITHEDGESRendering&lt;BR /&gt;ThisApplication.DisplayOptions.Show3DIndicator = False&lt;/P&gt;&lt;P&gt;Try&lt;BR /&gt;m_Camera.SaveAsBitmap("C:\Export\" &amp;amp; oFileName &amp;amp; ".png", 2970, 2100, m_TO.CreateColor(255,255,255))&lt;/P&gt;&lt;P&gt;Finally&lt;BR /&gt;ThisApplication.DisplayOptions.NewWindowDisplayMode = m_PrevMode&lt;BR /&gt;ThisApplication.DisplayOptions.Show3DIndicator = m_Disp3D&lt;BR /&gt;End Try&lt;/P&gt;&lt;P&gt;----------------------------------------------------------------------------------&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;But i have Problem with export more Picture from one Model -&amp;gt; is overwriten. I need edit code and add with variable Name (Name_001 - Name_999).&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Please can me help sameone?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;TY.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Mon, 12 Feb 2018 10:02:10 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7770226#M80245</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2018-02-12T10:02:10Z</dc:date>
    </item>
    <item>
      <title>Re: Export picture (PNG) - ilogic - with variable Name</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7770656#M80246</link>
      <description>&lt;P&gt;Well.. you have some options..&lt;/P&gt;
&lt;P&gt;Do you want to prompt for the file name?&lt;/P&gt;
&lt;P&gt;Do you want the file name to just be the models file name + png?&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;You really can't do a variable as there isn't a method to store the "last known state" that I know of short of exporting to a file and reading that file over each time but thats a bit silly for such a simple task..&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Try this..&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;Option Explicit On
Dim m_Doc As Inventor.Document
m_Doc = ThisDoc.Document

If m_Doc.DocumentType &amp;lt;&amp;gt; kAssemblyDocumentObject _
   And m_Doc.DocumentType &amp;lt;&amp;gt; kPartDocumentObject Then
   MessageBox.Show("File is not a model.", "iLogic")
   Return 'exit rule
End If

Dim m_Camera As Inventor.Camera
m_Camera = ThisServer.TransientObjects.CreateCamera()
If m_Doc.DocumentType = kPartDocumentObject Then
  m_Camera.SceneObject = DirectCast(m_Doc, PartDocument).ComponentDefinition
Else
  m_Camera.SceneObject = DirectCast(m_Doc, AssemblyDocument).ComponentDefinition
End If
'm_Camera.Perspective = True

Dim m_TO As Inventor.TransientObjects
m_TO = ThisApplication.TransientObjects

Dim oFileName As String = ThisDoc.FileName(False)

m_Camera.ViewOrientationType = Inventor.ViewOrientationTypeEnum.kIsoTopLeftViewOrientation
m_Camera.Fit
m_Camera.ApplyWithoutTransition
 
Dim m_PrevMode As DisplayModeEnum
Dim m_Disp3D As Boolean&lt;BR /&gt;Dim myimagename As String

m_Disp3D = ThisApplication.DisplayOptions.Show3DIndicator
m_PrevMode = ThisApplication.DisplayOptions.NewWindowDisplayMode
 
ThisApplication.DisplayOptions.NewWindowDisplayMode = DisplayModeEnum.kShadedWithEdgesRendering
ThisApplication.DisplayOptions.Show3DIndicator = False

Try
myimagename = InputBox("Enter a file name", "Image File Name", "Name01.png")
m_Camera.SaveAsBitmap(&lt;SPAN&gt;"C:\Export\" &amp;amp; &lt;/SPAN&gt;myimagename, 2970, 2100, m_TO.CreateColor(255,255,255))

Finally
ThisApplication.DisplayOptions.NewWindowDisplayMode = m_PrevMode
ThisApplication.DisplayOptions.Show3DIndicator = m_Disp3D
End Try&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Mon, 12 Feb 2018 13:05:57 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7770656#M80246</guid>
      <dc:creator>mcgyvr</dc:creator>
      <dc:date>2018-02-12T13:05:57Z</dc:date>
    </item>
    <item>
      <title>Re: Export picture (PNG) - ilogic - with variable Name</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7770802#M80247</link>
      <description>&lt;P&gt;I need only save more screenshots (Image)&amp;nbsp;&lt;SPAN&gt;&lt;SPAN&gt;from different sides&lt;/SPAN&gt;&lt;/SPAN&gt;,&lt;SPAN&gt;&lt;SPAN&gt; unter &lt;/SPAN&gt;&lt;/SPAN&gt;Name: Model_001, Model_002, Model_003 - Model_XXX&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Model = Part or Assembly &lt;SPAN&gt;&lt;SPAN&gt;that is for me &lt;/SPAN&gt;&lt;/SPAN&gt;FileName&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;1-click on ilogic rule = 1 new screen shots with &lt;SPAN&gt;&lt;SPAN&gt;with a suffix&lt;/SPAN&gt;&lt;/SPAN&gt; _001 - XXX, &lt;SPAN&gt;&lt;SPAN&gt;iLogic itself saves other sreenshots under a new name (verify it free suffix)&lt;/SPAN&gt;&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;&lt;SPAN&gt;Something like here on other forum at STEP file (link is&amp;nbsp;forbidden) :&lt;/SPAN&gt;&lt;/SPAN&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;&lt;SPAN&gt;Option Explicit On&lt;BR /&gt;&lt;BR /&gt;Dim m_Doc As Inventor.Document&lt;BR /&gt;m_Doc = ThisDoc.Document&lt;BR /&gt;&lt;BR /&gt;' Start of iLogic code *******************************************&lt;BR /&gt;&lt;BR /&gt;Stepfilename = ThisDoc.PathAndFileName(False)&lt;BR /&gt;&lt;BR /&gt;Counter = 0&lt;BR /&gt;&lt;BR /&gt;FileExists = True&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;'check to see if the file to be exported already exists&lt;BR /&gt;&lt;BR /&gt;Do While FileExists&amp;nbsp;&amp;nbsp; &amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' Define name of exported file - note a .stp file extension&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' Is currently being used. In this example I am exporting a Step file&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; CurrentFile = Stepfilename &amp;amp; "_V" &amp;amp; Counter &amp;amp; ".stp"&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp; &amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; If Dir(CurrentFile) &amp;lt;&amp;gt; "" Then ' The file does exist&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Counter += 1&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; FileExists = True&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Else&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; SaveAs = MessageBox.Show("Export file as '" &amp;amp; CurrentFile &amp;amp; _&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; "'?", "Cadline iLogic", _&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MessageBoxButtons.YesNo, MessageBoxIcon.Question, _&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; MessageBoxDefaultButton.Button1)&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; If SaveAs = vbNo Then&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Return&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; Else ' User says continue&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; FileExists = False&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp;&amp;nbsp; End If&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; End If&lt;BR /&gt;&lt;BR /&gt;Loop&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;' Put your export or 'save as' code in here ***********************&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;' Get the STEP translator Add-In.&lt;BR /&gt;&lt;BR /&gt;Dim oSTEPTranslator As TranslatorAddIn&lt;BR /&gt;&lt;BR /&gt;oSTEPTranslator = ThisApplication.ApplicationAddIns.ItemById _&lt;BR /&gt;&lt;BR /&gt;("{90AF7F40-0C01-11D5-8E83-0010B541CD80}")&lt;BR /&gt;&lt;BR /&gt;Dim oContext As TranslationContext&lt;BR /&gt;&lt;BR /&gt;oContext = ThisApplication.TransientObjects.CreateTranslationContext&lt;BR /&gt;&lt;BR /&gt;Dim oOptions As NameValueMap&lt;BR /&gt;&lt;BR /&gt;oOptions = ThisApplication.TransientObjects.CreateNameValueMap&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;If oSTEPTranslator.HasSaveCopyAsOptions(ThisApplication.ActiveDocument _&lt;BR /&gt;&lt;BR /&gt;, oContext, oOptions) Then&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; oOptions.Value("ApplicationProtocolType") = 3&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; oContext.Type = IOMechanismEnum.kFileBrowseIOMechanism&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Dim oData As DataMedium&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; oData = ThisApplication.TransientObjects.CreateDataMedium&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp; &amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; ' Set export name of STEP file&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; oData.FileName = CurrentFile&lt;BR /&gt;&lt;BR /&gt;oSTEPTranslator.SaveCopyAs(ThisApplication.ActiveDocument, oContext _&lt;BR /&gt;&lt;BR /&gt;, oOptions, oData)&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;' End of export code ***********************************************&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;' Ask user if they want to open the export folder&lt;BR /&gt;&lt;BR /&gt;OpenFolder = MessageBox.Show("Export successful! " &amp;amp; _&lt;BR /&gt;&lt;BR /&gt;"- open containing folder now?", "Cadline iLogic", _&lt;BR /&gt;&lt;BR /&gt;MessageBoxButtons.YesNo, _&lt;BR /&gt;&lt;BR /&gt;MessageBoxIcon.Question,MessageBoxDefaultButton.Button1)&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;If OpenFolder = vbYes Then&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; Process.Start("explorer.exe", ThisDoc.Path)&lt;BR /&gt;&lt;BR /&gt;Else ' User says continue&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&amp;nbsp;&amp;nbsp; 'Return&lt;BR /&gt;&lt;BR /&gt;End If&lt;BR /&gt;&lt;BR /&gt;&amp;nbsp;&lt;BR /&gt;&lt;BR /&gt;' End of iLogic code **************************************************&lt;/SPAN&gt;&lt;/SPAN&gt;&lt;/P&gt;</description>
      <pubDate>Mon, 12 Feb 2018 13:49:40 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7770802#M80247</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2018-02-12T13:49:40Z</dc:date>
    </item>
    <item>
      <title>Re: Export picture (PNG) - ilogic - with variable Name</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7773120#M80266</link>
      <description>Could this help you?&lt;BR /&gt;&lt;BR /&gt;&lt;A href="https://forums.autodesk.com/t5/inventor-customization/transparent-background/m-p/7761624#M80096" target="_blank"&gt;https://forums.autodesk.com/t5/inventor-customization/transparent-background/m-p/7761624#M80096&lt;/A&gt;</description>
      <pubDate>Tue, 13 Feb 2018 07:31:52 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7773120#M80266</guid>
      <dc:creator>bradeneuropeArthur</dc:creator>
      <dc:date>2018-02-13T07:31:52Z</dc:date>
    </item>
    <item>
      <title>Re: Export picture (PNG) - ilogic - with variable Name</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7827428#M81394</link>
      <description>&lt;P&gt;this no ...&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;my new functional&amp;nbsp;code:&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;oView = ThisApplication.ActiveView&lt;/P&gt;&lt;P&gt;Dim originalSchema As String&lt;BR /&gt;originalSchema = ThisApplication.ActiveColorScheme.Name&lt;BR /&gt;Dim originalBkg As BackgroundTypeEnum&lt;BR /&gt;originalBkg = ThisApplication.ColorSchemes.BackgroundType&lt;BR /&gt;ThisApplication.ColorSchemes.Item("Prezentace").Activate&lt;BR /&gt;ThisApplication.ColorSchemes.BackgroundType = 52737 'kOneColorBackgroundType&lt;/P&gt;&lt;P&gt;Dim originSetOff as Boolean&lt;BR /&gt;originSetOff = False&lt;BR /&gt;If ThisApplication.DisplayOptions.Show3DIndicator Then&lt;BR /&gt;&amp;nbsp;ThisApplication.DisplayOptions.Show3DIndicator = False&lt;BR /&gt;&amp;nbsp;originSetOff = True&lt;BR /&gt;End If&lt;/P&gt;&lt;P&gt;Dim picName As String = "C:\Export\" + ThisDoc.FileName(False) + Now.toString("-yyMMddHHmmss") 'timestamp&lt;BR /&gt;Call oView.SaveAsBitmap(picName &amp;amp; ".png", oView.Width, oView.Height)&lt;/P&gt;&lt;P&gt;If originSetOff Then&lt;BR /&gt;&amp;nbsp;ThisApplication.DisplayOptions.Show3DIndicator = True&lt;BR /&gt;End If&lt;BR /&gt;ThisApplication.ColorSchemes.Item(originalSchema).Activate&lt;BR /&gt;ThisApplication.ColorSchemes.BackgroundType = originalBkg&lt;/P&gt;&lt;P&gt;'MsgBox(ThisDoc.PathAndFileName(True) &amp;amp; ".png")&lt;/P&gt;</description>
      <pubDate>Mon, 05 Mar 2018 13:04:00 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-picture-png-ilogic-with-variable-name/m-p/7827428#M81394</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2018-03-05T13:04:00Z</dc:date>
    </item>
  </channel>
</rss>

