<?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: Problem with &amp;quot;Automatic Drawings witjh iLogic&amp;quot; in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/problem-with-quot-automatic-drawings-witjh-ilogic-quot/m-p/9174125#M103533</link>
    <description>&lt;P&gt;&lt;STRONG&gt;Thank you for the reply.&amp;nbsp; I did not make any major changes, but I have pasted the code here.&lt;/STRONG&gt;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;'Code By @ClintBrown3D&lt;/SPAN&gt;
&lt;SPAN&gt;'Originally posted at https://clintbrown.co.uk/automatic-drawings-With-ilogic/&lt;/SPAN&gt;
&lt;SPAN&gt;'Check if this is a drawing file&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;GoTo&lt;/SPAN&gt; &lt;SPAN&gt;DRAWINGcode&lt;/SPAN&gt; :
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'In parts &amp;amp; asemblies - Write file name and path to temp text file&lt;/SPAN&gt;
&lt;SPAN&gt;oWrite&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;CreateText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\part.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;WriteLine&lt;/SPAN&gt;(&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;PathAndFileName&lt;/SPAN&gt;(&lt;SPAN&gt;True&lt;/SPAN&gt;))
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oFilePather&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt;

&lt;SPAN&gt;'In parts &amp;amp; asemblies - Write new drawing name to temp text file&lt;/SPAN&gt;
&lt;SPAN&gt;oWrite&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;CreateText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\partno.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;WriteLine&lt;/SPAN&gt;(&lt;SPAN&gt;oFilePather&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Part Number"&lt;/SPAN&gt;) &amp;amp; &lt;SPAN&gt;".idw"&lt;/SPAN&gt;)
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()

&lt;SPAN&gt;'Read Drawing name from text file&lt;/SPAN&gt;
&lt;SPAN&gt;oRead&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;OpenText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\partno.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;EntireFile1&lt;/SPAN&gt; = &lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;ReadLine&lt;/SPAN&gt;()
&lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile1&lt;/SPAN&gt;

&lt;SPAN&gt;'Copy the Template file &amp;gt; keep templates saved in your project workspace, you need a separate part and assembly template&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"ANDRITZ USA"&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kAssemblyDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\Public\Public Documents\Autodesk\Inventor 2019\Templates\English\Automate-Assy.idw"&lt;/SPAN&gt;
&lt;SPAN&gt;Else&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kPartDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\Public\Public Documents\Autodesk\Inventor 2019\Templates\English\Automate-Rev.idw"&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;' Check if drawing exists - If it does, opening existing drawing&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;Exists&lt;/SPAN&gt;(&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DWGType&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Drawing already exists &amp;gt; Opening Existing Drawing"&lt;/SPAN&gt;, &lt;SPAN&gt;"ANDRITZ USA"&lt;/SPAN&gt;)
&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Launch&lt;/SPAN&gt;(&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DWGType&lt;/SPAN&gt;)
&lt;SPAN&gt;Return&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'Launch New drawing&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oNewFiler&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile1&lt;/SPAN&gt;
&lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;Copy&lt;/SPAN&gt;(&lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt;,&lt;SPAN&gt;oNewFiler&lt;/SPAN&gt;,(&lt;SPAN&gt;True&lt;/SPAN&gt;))
&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Launch&lt;/SPAN&gt;(&lt;SPAN&gt;oNewFiler&lt;/SPAN&gt;)

&lt;SPAN&gt;DRAWINGcode&lt;/SPAN&gt; :
&lt;SPAN&gt;On&lt;/SPAN&gt; &lt;SPAN&gt;Error&lt;/SPAN&gt; &lt;SPAN&gt;GoTo&lt;/SPAN&gt; &lt;SPAN&gt;Exiter&lt;/SPAN&gt;
&lt;SPAN&gt;'Check if we have replaced the reference and scaled the drawing already&lt;/SPAN&gt;
&lt;SPAN&gt;oNumbero&lt;/SPAN&gt; = &lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;)
&lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;) = &lt;SPAN&gt;oNumbero&lt;/SPAN&gt; + 1
&lt;SPAN&gt;MsgBox&lt;/SPAN&gt;(&lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;))
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;) &amp;gt; 2 &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;Return&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'Read in File name - For reference&lt;/SPAN&gt;
&lt;SPAN&gt;oRead&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;OpenText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\part.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;EntireFile&lt;/SPAN&gt; = &lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;ReadLine&lt;/SPAN&gt;()
&lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oPartPath&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile&lt;/SPAN&gt;

&lt;SPAN&gt;'Replace Drawing Reference&lt;/SPAN&gt;
&lt;SPAN&gt;doc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oFileDesc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;FileDescriptor&lt;/SPAN&gt;
&lt;SPAN&gt;oFileDesc&lt;/SPAN&gt; = &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;ReferencedFileDescriptors&lt;/SPAN&gt;(1).&lt;SPAN&gt;DocumentDescriptor&lt;/SPAN&gt;.&lt;SPAN&gt;ReferencedFileDescriptor&lt;/SPAN&gt;
&lt;SPAN&gt;oFileDesc&lt;/SPAN&gt;.&lt;SPAN&gt;ReplaceReference&lt;/SPAN&gt;(&lt;SPAN&gt;oPartPath&lt;/SPAN&gt;)
&lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;Update&lt;/SPAN&gt;()

&lt;SPAN&gt;'Read in new name for Drawing&lt;/SPAN&gt;
&lt;SPAN&gt;oRead&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;OpenText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\partno.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;EntireFile1&lt;/SPAN&gt; = &lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;ReadLine&lt;/SPAN&gt;()
&lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile1&lt;/SPAN&gt;

&lt;SPAN&gt;'Save this drawing&lt;/SPAN&gt;
&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Save&lt;/SPAN&gt;

&lt;SPAN&gt;'Scale the Drawing - Note your drawing views names("VIEW1")&amp;amp;("VIEW4") must match the template&lt;/SPAN&gt;
&lt;SPAN&gt;On&lt;/SPAN&gt; &lt;SPAN&gt;Error&lt;/SPAN&gt; &lt;SPAN&gt;GoTo&lt;/SPAN&gt; &lt;SPAN&gt;Exiter&lt;/SPAN&gt;
&lt;SPAN&gt;oMyParameter&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDrawing&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;Parameters&lt;/SPAN&gt;.&lt;SPAN&gt;UserParameters&lt;/SPAN&gt;
&lt;SPAN&gt;oParameter&lt;/SPAN&gt; = &lt;SPAN&gt;oMyParameter&lt;/SPAN&gt;.&lt;SPAN&gt;AddByValue&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:5"&lt;/SPAN&gt;, &lt;SPAN&gt;UnitsTypeEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kTextUnits&lt;/SPAN&gt;)
&lt;SPAN&gt;MultiValue&lt;/SPAN&gt;.&lt;SPAN&gt;SetList&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;,&lt;SPAN&gt;"1:1"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:2"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:4"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:5"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:10"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:20"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:25"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:50"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:100"&lt;/SPAN&gt;)

&lt;SPAN&gt;Scaler&lt;/SPAN&gt; = &lt;SPAN&gt;InputListBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Set Drawing Scale"&lt;/SPAN&gt;, &lt;SPAN&gt;MultiValue&lt;/SPAN&gt;.&lt;SPAN&gt;List&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;), &lt;SPAN&gt;Scaler&lt;/SPAN&gt;, &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Scale = "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;View&lt;/SPAN&gt;(&lt;SPAN&gt;"VIEW1"&lt;/SPAN&gt;).&lt;SPAN&gt;ScaleString&lt;/SPAN&gt;, &lt;SPAN&gt;ListName&lt;/SPAN&gt; := &lt;SPAN&gt;"List"&lt;/SPAN&gt;)
&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;View&lt;/SPAN&gt;(&lt;SPAN&gt;"VIEW1"&lt;/SPAN&gt;).&lt;SPAN&gt;ScaleString&lt;/SPAN&gt; = &lt;SPAN&gt;Scaler&lt;/SPAN&gt;
&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;View&lt;/SPAN&gt;(&lt;SPAN&gt;"VIEW4"&lt;/SPAN&gt;).&lt;SPAN&gt;ScaleString&lt;/SPAN&gt; = &lt;SPAN&gt;Scaler&lt;/SPAN&gt;

&lt;SPAN&gt;Parameter&lt;/SPAN&gt;.&lt;SPAN&gt;Param&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;).&lt;SPAN&gt;Delete&lt;/SPAN&gt;

&lt;SPAN&gt;Exiter&lt;/SPAN&gt; :
&lt;SPAN&gt;Msgbox&lt;/SPAN&gt;(&lt;SPAN&gt;"Scale not Changed"&lt;/SPAN&gt;)&lt;/PRE&gt;</description>
    <pubDate>Fri, 29 Nov 2019 17:41:50 GMT</pubDate>
    <dc:creator>cadprof</dc:creator>
    <dc:date>2019-11-29T17:41:50Z</dc:date>
    <item>
      <title>Problem with "Automatic Drawings witjh iLogic"</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/problem-with-quot-automatic-drawings-witjh-ilogic-quot/m-p/9172813#M103512</link>
      <description>&lt;P&gt;I have downloaded and applied Clint Brown's "Automatic Drawings with iLogic".&amp;nbsp; I have created a my templates (must they be a .dwg?) as an .idw&lt;/P&gt;&lt;P&gt;The file paths for the templates has been changed in the code.&amp;nbsp; I run from the opened window of the part / assembly but it does not give me any views. If I open the template and then that has the views and run the rule, the views change with the new part / assembly but I do not get the "scale" dialog box.&lt;/P&gt;&lt;P&gt;I've gone through the code but can't seem to find the problem.&amp;nbsp; I'm not a code guru but am capable of writing my own rules with iLogic and snippets.&lt;/P&gt;&lt;P&gt;Any ides / help would be deeply appreciated.&amp;nbsp; I think what Clint Brown has written is very and a big help.&lt;/P&gt;</description>
      <pubDate>Fri, 29 Nov 2019 00:47:37 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/problem-with-quot-automatic-drawings-witjh-ilogic-quot/m-p/9172813#M103512</guid>
      <dc:creator>cadprof</dc:creator>
      <dc:date>2019-11-29T00:47:37Z</dc:date>
    </item>
    <item>
      <title>Re: Problem with "Automatic Drawings witjh iLogic"</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/problem-with-quot-automatic-drawings-witjh-ilogic-quot/m-p/9173493#M103526</link>
      <description>&lt;P&gt;If you can post your code that would be great, might be easier for comparing yours vs. Clint's.&lt;/P&gt;</description>
      <pubDate>Fri, 29 Nov 2019 10:50:40 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/problem-with-quot-automatic-drawings-witjh-ilogic-quot/m-p/9173493#M103526</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2019-11-29T10:50:40Z</dc:date>
    </item>
    <item>
      <title>Re: Problem with "Automatic Drawings witjh iLogic"</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/problem-with-quot-automatic-drawings-witjh-ilogic-quot/m-p/9174125#M103533</link>
      <description>&lt;P&gt;&lt;STRONG&gt;Thank you for the reply.&amp;nbsp; I did not make any major changes, but I have pasted the code here.&lt;/STRONG&gt;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;'Code By @ClintBrown3D&lt;/SPAN&gt;
&lt;SPAN&gt;'Originally posted at https://clintbrown.co.uk/automatic-drawings-With-ilogic/&lt;/SPAN&gt;
&lt;SPAN&gt;'Check if this is a drawing file&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kDrawingDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;GoTo&lt;/SPAN&gt; &lt;SPAN&gt;DRAWINGcode&lt;/SPAN&gt; :
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'In parts &amp;amp; asemblies - Write file name and path to temp text file&lt;/SPAN&gt;
&lt;SPAN&gt;oWrite&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;CreateText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\part.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;WriteLine&lt;/SPAN&gt;(&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;PathAndFileName&lt;/SPAN&gt;(&lt;SPAN&gt;True&lt;/SPAN&gt;))
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oFilePather&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Path&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;"\"&lt;/SPAN&gt;

&lt;SPAN&gt;'In parts &amp;amp; asemblies - Write new drawing name to temp text file&lt;/SPAN&gt;
&lt;SPAN&gt;oWrite&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;CreateText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\partno.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;WriteLine&lt;/SPAN&gt;(&lt;SPAN&gt;oFilePather&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Part Number"&lt;/SPAN&gt;) &amp;amp; &lt;SPAN&gt;".idw"&lt;/SPAN&gt;)
&lt;SPAN&gt;oWrite&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()

&lt;SPAN&gt;'Read Drawing name from text file&lt;/SPAN&gt;
&lt;SPAN&gt;oRead&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;OpenText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\partno.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;EntireFile1&lt;/SPAN&gt; = &lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;ReadLine&lt;/SPAN&gt;()
&lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile1&lt;/SPAN&gt;

&lt;SPAN&gt;'Copy the Template file &amp;gt; keep templates saved in your project workspace, you need a separate part and assembly template&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;"ANDRITZ USA"&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kAssemblyDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\Public\Public Documents\Autodesk\Inventor 2019\Templates\English\Automate-Assy.idw"&lt;/SPAN&gt;
&lt;SPAN&gt;Else&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;DocumentType&lt;/SPAN&gt; = &lt;SPAN&gt;kPartDocumentObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\Public\Public Documents\Autodesk\Inventor 2019\Templates\English\Automate-Rev.idw"&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;' Check if drawing exists - If it does, opening existing drawing&lt;/SPAN&gt;
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;Exists&lt;/SPAN&gt;(&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DWGType&lt;/SPAN&gt;) &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;MessageBox&lt;/SPAN&gt;.&lt;SPAN&gt;Show&lt;/SPAN&gt;(&lt;SPAN&gt;"Drawing already exists &amp;gt; Opening Existing Drawing"&lt;/SPAN&gt;, &lt;SPAN&gt;"ANDRITZ USA"&lt;/SPAN&gt;)
&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Launch&lt;/SPAN&gt;(&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;DWGType&lt;/SPAN&gt;)
&lt;SPAN&gt;Return&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'Launch New drawing&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oNewFiler&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile1&lt;/SPAN&gt;
&lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;Copy&lt;/SPAN&gt;(&lt;SPAN&gt;oCopyFiler&lt;/SPAN&gt;,&lt;SPAN&gt;oNewFiler&lt;/SPAN&gt;,(&lt;SPAN&gt;True&lt;/SPAN&gt;))
&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Launch&lt;/SPAN&gt;(&lt;SPAN&gt;oNewFiler&lt;/SPAN&gt;)

&lt;SPAN&gt;DRAWINGcode&lt;/SPAN&gt; :
&lt;SPAN&gt;On&lt;/SPAN&gt; &lt;SPAN&gt;Error&lt;/SPAN&gt; &lt;SPAN&gt;GoTo&lt;/SPAN&gt; &lt;SPAN&gt;Exiter&lt;/SPAN&gt;
&lt;SPAN&gt;'Check if we have replaced the reference and scaled the drawing already&lt;/SPAN&gt;
&lt;SPAN&gt;oNumbero&lt;/SPAN&gt; = &lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;)
&lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;) = &lt;SPAN&gt;oNumbero&lt;/SPAN&gt; + 1
&lt;SPAN&gt;MsgBox&lt;/SPAN&gt;(&lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;))
&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;Parameter&lt;/SPAN&gt;(&lt;SPAN&gt;"Opened"&lt;/SPAN&gt;) &amp;gt; 2 &lt;SPAN&gt;Then&lt;/SPAN&gt;
&lt;SPAN&gt;Return&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;

&lt;SPAN&gt;'Read in File name - For reference&lt;/SPAN&gt;
&lt;SPAN&gt;oRead&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;OpenText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\part.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;EntireFile&lt;/SPAN&gt; = &lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;ReadLine&lt;/SPAN&gt;()
&lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oPartPath&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile&lt;/SPAN&gt;

&lt;SPAN&gt;'Replace Drawing Reference&lt;/SPAN&gt;
&lt;SPAN&gt;doc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oFileDesc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;FileDescriptor&lt;/SPAN&gt;
&lt;SPAN&gt;oFileDesc&lt;/SPAN&gt; = &lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;ReferencedFileDescriptors&lt;/SPAN&gt;(1).&lt;SPAN&gt;DocumentDescriptor&lt;/SPAN&gt;.&lt;SPAN&gt;ReferencedFileDescriptor&lt;/SPAN&gt;
&lt;SPAN&gt;oFileDesc&lt;/SPAN&gt;.&lt;SPAN&gt;ReplaceReference&lt;/SPAN&gt;(&lt;SPAN&gt;oPartPath&lt;/SPAN&gt;)
&lt;SPAN&gt;doc&lt;/SPAN&gt;.&lt;SPAN&gt;Update&lt;/SPAN&gt;()

&lt;SPAN&gt;'Read in new name for Drawing&lt;/SPAN&gt;
&lt;SPAN&gt;oRead&lt;/SPAN&gt; = &lt;SPAN&gt;System&lt;/SPAN&gt;.&lt;SPAN&gt;IO&lt;/SPAN&gt;.&lt;SPAN&gt;File&lt;/SPAN&gt;.&lt;SPAN&gt;OpenText&lt;/SPAN&gt;(&lt;SPAN&gt;"C:\TEMP\partno.txt"&lt;/SPAN&gt;)
&lt;SPAN&gt;EntireFile1&lt;/SPAN&gt; = &lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;ReadLine&lt;/SPAN&gt;()
&lt;SPAN&gt;oRead&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;()
&lt;SPAN&gt;oDrawingName&lt;/SPAN&gt; = &lt;SPAN&gt;EntireFile1&lt;/SPAN&gt;

&lt;SPAN&gt;'Save this drawing&lt;/SPAN&gt;
&lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;Save&lt;/SPAN&gt;

&lt;SPAN&gt;'Scale the Drawing - Note your drawing views names("VIEW1")&amp;amp;("VIEW4") must match the template&lt;/SPAN&gt;
&lt;SPAN&gt;On&lt;/SPAN&gt; &lt;SPAN&gt;Error&lt;/SPAN&gt; &lt;SPAN&gt;GoTo&lt;/SPAN&gt; &lt;SPAN&gt;Exiter&lt;/SPAN&gt;
&lt;SPAN&gt;oMyParameter&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDrawing&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;Parameters&lt;/SPAN&gt;.&lt;SPAN&gt;UserParameters&lt;/SPAN&gt;
&lt;SPAN&gt;oParameter&lt;/SPAN&gt; = &lt;SPAN&gt;oMyParameter&lt;/SPAN&gt;.&lt;SPAN&gt;AddByValue&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:5"&lt;/SPAN&gt;, &lt;SPAN&gt;UnitsTypeEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kTextUnits&lt;/SPAN&gt;)
&lt;SPAN&gt;MultiValue&lt;/SPAN&gt;.&lt;SPAN&gt;SetList&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;,&lt;SPAN&gt;"1:1"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:2"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:4"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:5"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:10"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:20"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:25"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:50"&lt;/SPAN&gt;, &lt;SPAN&gt;"1:100"&lt;/SPAN&gt;)

&lt;SPAN&gt;Scaler&lt;/SPAN&gt; = &lt;SPAN&gt;InputListBox&lt;/SPAN&gt;(&lt;SPAN&gt;"Set Drawing Scale"&lt;/SPAN&gt;, &lt;SPAN&gt;MultiValue&lt;/SPAN&gt;.&lt;SPAN&gt;List&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;), &lt;SPAN&gt;Scaler&lt;/SPAN&gt;, &lt;SPAN&gt;Title&lt;/SPAN&gt; := &lt;SPAN&gt;"Scale = "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;View&lt;/SPAN&gt;(&lt;SPAN&gt;"VIEW1"&lt;/SPAN&gt;).&lt;SPAN&gt;ScaleString&lt;/SPAN&gt;, &lt;SPAN&gt;ListName&lt;/SPAN&gt; := &lt;SPAN&gt;"List"&lt;/SPAN&gt;)
&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;View&lt;/SPAN&gt;(&lt;SPAN&gt;"VIEW1"&lt;/SPAN&gt;).&lt;SPAN&gt;ScaleString&lt;/SPAN&gt; = &lt;SPAN&gt;Scaler&lt;/SPAN&gt;
&lt;SPAN&gt;ActiveSheet&lt;/SPAN&gt;.&lt;SPAN&gt;View&lt;/SPAN&gt;(&lt;SPAN&gt;"VIEW4"&lt;/SPAN&gt;).&lt;SPAN&gt;ScaleString&lt;/SPAN&gt; = &lt;SPAN&gt;Scaler&lt;/SPAN&gt;

&lt;SPAN&gt;Parameter&lt;/SPAN&gt;.&lt;SPAN&gt;Param&lt;/SPAN&gt;(&lt;SPAN&gt;"Scaler"&lt;/SPAN&gt;).&lt;SPAN&gt;Delete&lt;/SPAN&gt;

&lt;SPAN&gt;Exiter&lt;/SPAN&gt; :
&lt;SPAN&gt;Msgbox&lt;/SPAN&gt;(&lt;SPAN&gt;"Scale not Changed"&lt;/SPAN&gt;)&lt;/PRE&gt;</description>
      <pubDate>Fri, 29 Nov 2019 17:41:50 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/problem-with-quot-automatic-drawings-witjh-ilogic-quot/m-p/9174125#M103533</guid>
      <dc:creator>cadprof</dc:creator>
      <dc:date>2019-11-29T17:41:50Z</dc:date>
    </item>
  </channel>
</rss>

