<?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 Create Circular Pattern in assembly in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-circular-pattern-in-assembly/m-p/6412289#M65121</link>
    <description>&lt;P&gt;I'm trying to pattern a component using another components axis in an assembly:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;    Public Sub Pattern()
        Dim oADoc As AssemblyDocument = InvApp.ActiveEditDocument
        Dim oADef As AssemblyComponentDefinition = oADoc.ComponentDefinition
        Dim InvPart1 As ComponentOccurrence = oADef.Occurrences.Item(1)
        Dim InvPart2 As ComponentOccurrence = oADef.Occurrences.Item(2)
        Dim oAxis As WorkAxis = InvPart1.Definition.workaxes(1)
        MsgBox("Part1 : " &amp;amp; InvPart1.Name &amp;amp; vbCr &amp;amp; "Part2 : " &amp;amp; InvPart2.Name &amp;amp; vbCr &amp;amp; "Axis : " &amp;amp; oAxis.Name)
        Dim oOccPatterns As OccurrencePatterns = oADef.OccurrencePatterns
        Call oOccPatterns.AddCircularPattern(InvPart2, oAxis, True, "45 deg", 8)
    End Sub&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;The message box proves that it is successfully finding the two compoents and the X Axis of the first component.&lt;/P&gt;
&lt;P&gt;It keeps falling over on the last line, when trying to create the pattern, I've tried creating a workaxisproxy but found this made no difference.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;attached is the assembly file I've been trying it out on&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Any help with this would be great.&lt;/P&gt;</description>
    <pubDate>Thu, 30 Jun 2016 09:46:54 GMT</pubDate>
    <dc:creator>Anonymous</dc:creator>
    <dc:date>2016-06-30T09:46:54Z</dc:date>
    <item>
      <title>Create Circular Pattern in assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-circular-pattern-in-assembly/m-p/6412289#M65121</link>
      <description>&lt;P&gt;I'm trying to pattern a component using another components axis in an assembly:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;    Public Sub Pattern()
        Dim oADoc As AssemblyDocument = InvApp.ActiveEditDocument
        Dim oADef As AssemblyComponentDefinition = oADoc.ComponentDefinition
        Dim InvPart1 As ComponentOccurrence = oADef.Occurrences.Item(1)
        Dim InvPart2 As ComponentOccurrence = oADef.Occurrences.Item(2)
        Dim oAxis As WorkAxis = InvPart1.Definition.workaxes(1)
        MsgBox("Part1 : " &amp;amp; InvPart1.Name &amp;amp; vbCr &amp;amp; "Part2 : " &amp;amp; InvPart2.Name &amp;amp; vbCr &amp;amp; "Axis : " &amp;amp; oAxis.Name)
        Dim oOccPatterns As OccurrencePatterns = oADef.OccurrencePatterns
        Call oOccPatterns.AddCircularPattern(InvPart2, oAxis, True, "45 deg", 8)
    End Sub&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;The message box proves that it is successfully finding the two compoents and the X Axis of the first component.&lt;/P&gt;
&lt;P&gt;It keeps falling over on the last line, when trying to create the pattern, I've tried creating a workaxisproxy but found this made no difference.&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;attached is the assembly file I've been trying it out on&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;Any help with this would be great.&lt;/P&gt;</description>
      <pubDate>Thu, 30 Jun 2016 09:46:54 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-circular-pattern-in-assembly/m-p/6412289#M65121</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2016-06-30T09:46:54Z</dc:date>
    </item>
    <item>
      <title>Re: Create Circular Pattern in assembly</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-circular-pattern-in-assembly/m-p/6419446#M65218</link>
      <description>&lt;P&gt;For everyone's info,&amp;nbsp;&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;I've got this workaround:&lt;/P&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;PRE&gt;        Dim oADoc As AssemblyDocument = InvApp.ActiveEditDocument
        Dim oADef As AssemblyComponentDefinition = oADoc.ComponentDefinition
        Dim InvPart1 As ComponentOccurrence = oADef.Occurrences.Item(1)
        Dim Invpart1Def As PartComponentDefinition = InvPart1.Definition
        Dim InvPart2 As ComponentOccurrence = oADef.Occurrences.Item(2)

        Dim oObjects As ObjectCollection
        Dim oOccPatterns As OccurrencePatterns = oADef.OccurrencePatterns
        Dim oFeature As CircularPatternFeature
        Dim oFeatureProxy As CircularPatternFeatureProxy

        oObjects = InvApp.TransientObjects.CreateObjectCollection
        oObjects.Add(InvPart2)


        oFeature = Invpart1Def.Features.CircularPatternFeatures.Item(1)
        Call InvPart1.CreateGeometryProxy(oFeature, oFeatureProxy)
        Call oADef.OccurrencePatterns.AddFeatureBasedPattern(oObjects, oFeatureProxy)

    End Sub&lt;/PRE&gt;
&lt;P&gt;&amp;nbsp;&lt;/P&gt;
&lt;P&gt;This works with the assembly I posted, as long as the first item has a circular pattern to use.&lt;/P&gt;</description>
      <pubDate>Tue, 05 Jul 2016 13:31:13 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-circular-pattern-in-assembly/m-p/6419446#M65218</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2016-07-05T13:31:13Z</dc:date>
    </item>
  </channel>
</rss>

