<?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: Write flat pattern area parameter to each sheet metal in the assembly in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379351#M160366</link>
    <description>&lt;P&gt;Yes error on every part, all the part have already flat pattern&amp;nbsp;except one, is there a way to create it for parts that don't have it? I noticed that if all the parts have a flat pattern the rule works&lt;/P&gt;</description>
    <pubDate>Wed, 15 Nov 2023 16:29:27 GMT</pubDate>
    <dc:creator>ts2.cad3</dc:creator>
    <dc:date>2023-11-15T16:29:27Z</dc:date>
    <item>
      <title>Write flat pattern area parameter to each sheet metal in the assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379295#M160361</link>
      <description>&lt;P&gt;Hi all, i get this error:"Object variable or With block variable not set" in this simple macro.&amp;nbsp;&lt;/P&gt;&lt;P&gt;Someone have any tips?&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="visual-basic"&gt;Sub Main
	
Dim oAssyDoc As AssemblyDocument = ThisApplication.ActiveDocument
Dim oAssyDef As AssemblyComponentDefinition = oAssyDoc.ComponentDefinition
Dim oSSet As SelectSet = oAssyDoc.SelectSet
Dim oDoc As Inventor.Document


	For Each oDoc In oAssyDoc.AllReferencedDocuments
		'verify document type (we are interested in metal sheets only)
		If oDoc.ComponentDefinition.Type = kSheetMetalComponentDefinitionObject Then

			Dim oDef As SheetMetalComponentDefinition = oDoc.ComponentDefinition
			Dim oColl As ComponentOccurrencesEnumerator = oAssyDef.Occurrences.AllReferencedOccurrences(oDoc)
				If oColl.Count &amp;gt; 0 Then
					'select all found components
					Dim oOcc As ComponentOccurrence= oObj
					
					For Each oOcc In oColl
						Call cQM(oOcc, oDoc, oDef)
					Next oOcc
				End If
			End If		
	Next
End Sub

Sub cQM(oOcc, oDoc, oDef)


	Dim oDocName As String = oDoc.DisplayName 

'        If oCompDef.HasFlatPattern = False Then		
'            oCompDef.Unfold 
'			oCompDef.FlatPattern.ExitEdit         
'            'Dim ACTD As Document = TryCast(ThisApplication.ActiveDocument, Document)
'            ACTD.Close()
'        End If        
        Dim extents_area As Double = oDef.Flatpattern.Length * 10 * oDef.Flatpattern.Width * 10
        Dim sfr As Double = extents_area 
        
     
        sfr = CStr(sfr)

        iProperties.Value(oDocName, "Custom", "QTA_MATERIALE") = sfr
		iProperties.Value(oDocName, "Custom", "DIMENSIONI") = ""
			

End Sub&lt;/LI-CODE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Wed, 15 Nov 2023 16:00:08 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379295#M160361</guid>
      <dc:creator>ts2.cad3</dc:creator>
      <dc:date>2023-11-15T16:00:08Z</dc:date>
    </item>
    <item>
      <title>Re: Write flat pattern area parameter to each sheet metal in the assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379300#M160362</link>
      <description>&lt;BLOCKQUOTE&gt;&lt;HR /&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/12291500"&gt;@ts2.cad3&lt;/a&gt;&amp;nbsp;wrote:&lt;BR /&gt;&lt;P&gt;Hi all, i get this error:"Object variable or With block variable not set" in this simple macro.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;HR /&gt;&lt;/BLOCKQUOTE&gt;&lt;P&gt;Error on which line?&lt;/P&gt;</description>
      <pubDate>Wed, 15 Nov 2023 16:02:35 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379300#M160362</guid>
      <dc:creator>Frederick_Law</dc:creator>
      <dc:date>2023-11-15T16:02:35Z</dc:date>
    </item>
    <item>
      <title>Re: Write flat pattern area parameter to each sheet metal in the assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379306#M160363</link>
      <description>38</description>
      <pubDate>Wed, 15 Nov 2023 16:04:03 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379306#M160363</guid>
      <dc:creator>ts2.cad3</dc:creator>
      <dc:date>2023-11-15T16:04:03Z</dc:date>
    </item>
    <item>
      <title>Re: Write flat pattern area parameter to each sheet metal in the assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379348#M160365</link>
      <description>&lt;P&gt;Error on every part?&lt;/P&gt;&lt;P&gt;One part don't have flat pattern?&lt;/P&gt;</description>
      <pubDate>Wed, 15 Nov 2023 16:20:52 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379348#M160365</guid>
      <dc:creator>Frederick_Law</dc:creator>
      <dc:date>2023-11-15T16:20:52Z</dc:date>
    </item>
    <item>
      <title>Re: Write flat pattern area parameter to each sheet metal in the assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379351#M160366</link>
      <description>&lt;P&gt;Yes error on every part, all the part have already flat pattern&amp;nbsp;except one, is there a way to create it for parts that don't have it? I noticed that if all the parts have a flat pattern the rule works&lt;/P&gt;</description>
      <pubDate>Wed, 15 Nov 2023 16:29:27 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379351#M160366</guid>
      <dc:creator>ts2.cad3</dc:creator>
      <dc:date>2023-11-15T16:29:27Z</dc:date>
    </item>
    <item>
      <title>Re: Write flat pattern area parameter to each sheet metal in the assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379365#M160367</link>
      <description>&lt;P&gt;sorry, but whole code is messed up,&amp;nbsp;&lt;/P&gt;&lt;P&gt;main error is in line&amp;nbsp;17 oObj not declared or set to any value.&lt;/P&gt;&lt;P&gt;also&amp;nbsp;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"part1:1"&lt;/SPAN&gt;, &lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Part Number"&lt;/SPAN&gt;)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;"part1:1" - it is oOcc.name not oDoc.DisplayName - it will give error as well&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;this code should work for you:&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;Main&lt;/SPAN&gt;
	
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oAssyDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;AssemblyDocument&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oAssyDef&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;AssemblyComponentDefinition&lt;/SPAN&gt; = &lt;SPAN&gt;oAssyDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Inventor&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;
	&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oOcc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;ComponentOccurrence&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oAssyDef&lt;/SPAN&gt;.&lt;SPAN&gt;Occurrences&lt;/SPAN&gt;
		&lt;SPAN&gt;'verify document type (we are interested in metal sheets only)&lt;/SPAN&gt;
		&lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;oOcc&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;Type&lt;/SPAN&gt; = &lt;SPAN&gt;kSheetMetalComponentDefinitionObject&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
			&lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;cQM&lt;/SPAN&gt;( &lt;SPAN&gt;oOcc&lt;/SPAN&gt;.&lt;SPAN&gt;Definition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;)
		&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;		
	&lt;SPAN&gt;Next&lt;/SPAN&gt;
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;

&lt;SPAN&gt;Sub&lt;/SPAN&gt; &lt;SPAN&gt;cQM&lt;/SPAN&gt;( &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;PartDocument&lt;/SPAN&gt;)

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDef&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;SheetMetalComponentDefinition&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;sfr&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Double&lt;/SPAN&gt; = &lt;SPAN&gt;oDef&lt;/SPAN&gt;.&lt;SPAN&gt;FlatPattern&lt;/SPAN&gt;.&lt;SPAN&gt;Length&lt;/SPAN&gt; * 10 * &lt;SPAN&gt;oDef&lt;/SPAN&gt;.&lt;SPAN&gt;FlatPattern&lt;/SPAN&gt;.&lt;SPAN&gt;Width&lt;/SPAN&gt; * 10
		&lt;SPAN&gt;Try&lt;/SPAN&gt;
			&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;.&lt;SPAN&gt;Item&lt;/SPAN&gt;(4).&lt;SPAN&gt;Item&lt;/SPAN&gt;(&lt;SPAN&gt;"QTA_MATERIALE"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt; = &lt;SPAN&gt;sfr&lt;/SPAN&gt;
		&lt;SPAN&gt;Catch&lt;/SPAN&gt;
			&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;.&lt;SPAN&gt;Item&lt;/SPAN&gt;(4).&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;sfr&lt;/SPAN&gt;,&lt;SPAN&gt;"QTA_MATERIALE"&lt;/SPAN&gt;) 
		&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;
		
		&lt;SPAN&gt;Try&lt;/SPAN&gt;
			&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;.&lt;SPAN&gt;Item&lt;/SPAN&gt;(4).&lt;SPAN&gt;Item&lt;/SPAN&gt;(&lt;SPAN&gt;"DIMENSIONI"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt; = &lt;SPAN&gt;""&lt;/SPAN&gt;
		&lt;SPAN&gt;Catch&lt;/SPAN&gt;
			&lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;.&lt;SPAN&gt;Item&lt;/SPAN&gt;(4).&lt;SPAN&gt;Add&lt;/SPAN&gt;(&lt;SPAN&gt;""&lt;/SPAN&gt;,&lt;SPAN&gt;"DIMENSIONI"&lt;/SPAN&gt;) 
		&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Try&lt;/SPAN&gt;	
&lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;Sub&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Wed, 15 Nov 2023 16:32:06 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12379365#M160367</guid>
      <dc:creator>marcin_otręba</dc:creator>
      <dc:date>2023-11-15T16:32:06Z</dc:date>
    </item>
    <item>
      <title>Re: Write flat pattern area parameter to each sheet metal in the assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12380887#M160392</link>
      <description>solved whit&lt;BR /&gt;If oDef.HasFlatPattern = False Then&lt;BR /&gt;oDef.Unfold&lt;BR /&gt;oDef.FlatPattern.ExitEdit&lt;BR /&gt;&lt;BR /&gt;in the Sub cQM</description>
      <pubDate>Thu, 16 Nov 2023 07:52:26 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/write-flat-pattern-area-parameter-to-each-sheet-metal-in-the/m-p/12380887#M160392</guid>
      <dc:creator>ts2.cad3</dc:creator>
      <dc:date>2023-11-16T07:52:26Z</dc:date>
    </item>
  </channel>
</rss>

