<?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: Create surface extrusion - VBA in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093095#M155026</link>
    <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/10061220"&gt;@gopinathmY575P&lt;/a&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;You just have to change here as stated above :&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;NewSketch&lt;/SPAN&gt;.&lt;SPAN&gt;Profiles&lt;/SPAN&gt;.&lt;SPAN&gt;AddForSurface&lt;/SPAN&gt;, &lt;SPAN&gt;PartFeatureOperationEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kSurfaceOperation&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kind regards,&lt;/P&gt;&lt;P&gt;FINET L.&lt;/P&gt;</description>
    <pubDate>Tue, 11 Jul 2023 08:29:40 GMT</pubDate>
    <dc:creator>FINET_Laurent</dc:creator>
    <dc:date>2023-07-11T08:29:40Z</dc:date>
    <item>
      <title>Create surface extrusion - VBA</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12090836#M154978</link>
      <description>&lt;P&gt;Hello all,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;i have point/axis, from that i need to create the surface extrusion for dia of 5mm through vba.&lt;/P&gt;</description>
      <pubDate>Mon, 10 Jul 2023 10:49:15 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12090836#M154978</guid>
      <dc:creator>gopinathmY575P</dc:creator>
      <dc:date>2023-07-10T10:49:15Z</dc:date>
    </item>
    <item>
      <title>Re: Create surface extrusion - VBA</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12092880#M155008</link>
      <description>&lt;P&gt;Hi&amp;nbsp;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/10061220"&gt;@gopinathmY575P&lt;/a&gt;,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;The code below let you select a surface (planar) and a work axis, then create the sketch and extrude the circle (cut operation) :&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="visual-basic"&gt;Dim s As Inventor.Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Pick face")
Dim w As Inventor.WorkAxis = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kWorkAxisFilter, "Pick work axis")

Dim tg As Inventor.TransientGeometry = ThisApplication.TransientGeometry
Dim Doc As Inventor.PartDocument = ThisApplication.ActiveDocument
Dim PartCompDef As Inventor.PartComponentDefinition = Doc.ComponentDefinition

Dim NewSketch As Inventor.PlanarSketch = PartCompDef.Sketches.Add(s, False)
Dim p As Inventor.SketchPoint = NewSketch.AddByProjectingEntity(w)

Dim c As Inventor.SketchCircle = NewSketch.SketchCircles.AddByCenterRadius(p, 0.25)
NewSketch.DimensionConstraints.AddDiameter(c, tg.CreatePoint2d(0,0), False)

NewSketch.Solve

Dim def As Inventor.ExtrudeDefinition = PartCompDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(NewSketch.Profiles.AddForSolid, PartFeatureOperationEnum.kCutOperation)
'def.SetDistanceExtent(10, PartFeatureExtentDirectionEnum.kSymmetricExtentDirection)
def.SetThroughAllExtent(PartFeatureExtentDirectionEnum.kSymmetricExtentDirection)

Dim f As Inventor.ExtrudeFeature = PartCompDef.Features.ExtrudeFeatures.Add(def)&lt;/LI-CODE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Here is the end result :&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="FINET_Laurent_0-1689057365241.png" style="width: 600px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/1238846i225509FC354997C1/image-size/medium?v=v2&amp;amp;px=400" role="button" title="FINET_Laurent_0-1689057365241.png" alt="FINET_Laurent_0-1689057365241.png" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kind regards,&lt;/P&gt;&lt;P&gt;FINET L.&lt;/P&gt;</description>
      <pubDate>Tue, 11 Jul 2023 06:36:21 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12092880#M155008</guid>
      <dc:creator>FINET_Laurent</dc:creator>
      <dc:date>2023-07-11T06:36:21Z</dc:date>
    </item>
    <item>
      <title>Re: Create surface extrusion - VBA</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12092887#M155009</link>
      <description>&lt;P&gt;And here is the file with the code.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kind regards,&lt;/P&gt;&lt;P&gt;FINET L.&lt;/P&gt;</description>
      <pubDate>Tue, 11 Jul 2023 06:40:21 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12092887#M155009</guid>
      <dc:creator>FINET_Laurent</dc:creator>
      <dc:date>2023-07-11T06:40:21Z</dc:date>
    </item>
    <item>
      <title>Re: Create surface extrusion - VBA</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093075#M155022</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp;Actually, i need a surface extrusion.&lt;/P&gt;</description>
      <pubDate>Tue, 11 Jul 2023 08:19:27 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093075#M155022</guid>
      <dc:creator>gopinathmY575P</dc:creator>
      <dc:date>2023-07-11T08:19:27Z</dc:date>
    </item>
    <item>
      <title>Re: Create surface extrusion - VBA</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093094#M155025</link>
      <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/10061220"&gt;@gopinathmY575P&lt;/a&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Actually very similar :&amp;nbsp;&lt;/P&gt;&lt;LI-CODE lang="visual-basic"&gt;Dim s As Inventor.Face = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kPartFaceFilter, "Pick face")
Dim w As Inventor.WorkAxis = ThisApplication.CommandManager.Pick(SelectionFilterEnum.kWorkAxisFilter, "Pick work axis")

Dim tg As Inventor.TransientGeometry = ThisApplication.TransientGeometry
Dim Doc As Inventor.PartDocument = ThisApplication.ActiveDocument
Dim PartCompDef As Inventor.PartComponentDefinition = Doc.ComponentDefinition

Dim NewSketch As Inventor.PlanarSketch = PartCompDef.Sketches.Add(s, False)
Dim p As Inventor.SketchPoint = NewSketch.AddByProjectingEntity(w)

Dim c As Inventor.SketchCircle = NewSketch.SketchCircles.AddByCenterRadius(p, 0.25)
NewSketch.DimensionConstraints.AddDiameter(c, tg.CreatePoint2d(0,0), False)

NewSketch.Solve

Dim def As Inventor.ExtrudeDefinition = PartCompDef.Features.ExtrudeFeatures.CreateExtrudeDefinition(NewSketch.Profiles.AddForSurface, PartFeatureOperationEnum.kSurfaceOperation)
def.SetDistanceExtent(5, PartFeatureExtentDirectionEnum.kSymmetricExtentDirection)
'def.SetThroughAllExtent(PartFeatureExtentDirectionEnum.kSymmetricExtentDirection)

Dim f As Inventor.ExtrudeFeature = PartCompDef.Features.ExtrudeFeatures.Add(def)
&lt;/LI-CODE&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="FINET_Laurent_0-1689064070420.png" style="width: 600px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/1238884i2562E7B733050E19/image-size/medium?v=v2&amp;amp;px=400" role="button" title="FINET_Laurent_0-1689064070420.png" alt="FINET_Laurent_0-1689064070420.png" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kind regards,&lt;/P&gt;&lt;P&gt;FINET L.&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Tue, 11 Jul 2023 08:28:00 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093094#M155025</guid>
      <dc:creator>FINET_Laurent</dc:creator>
      <dc:date>2023-07-11T08:28:00Z</dc:date>
    </item>
    <item>
      <title>Re: Create surface extrusion - VBA</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093095#M155026</link>
      <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/10061220"&gt;@gopinathmY575P&lt;/a&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;You just have to change here as stated above :&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;NewSketch&lt;/SPAN&gt;.&lt;SPAN&gt;Profiles&lt;/SPAN&gt;.&lt;SPAN&gt;AddForSurface&lt;/SPAN&gt;, &lt;SPAN&gt;PartFeatureOperationEnum&lt;/SPAN&gt;.&lt;SPAN&gt;kSurfaceOperation&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Kind regards,&lt;/P&gt;&lt;P&gt;FINET L.&lt;/P&gt;</description>
      <pubDate>Tue, 11 Jul 2023 08:29:40 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093095#M155026</guid>
      <dc:creator>FINET_Laurent</dc:creator>
      <dc:date>2023-07-11T08:29:40Z</dc:date>
    </item>
    <item>
      <title>Re: Create surface extrusion - VBA</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093136#M155028</link>
      <description>&lt;P&gt;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/9053366"&gt;@FINET_Laurent&lt;/a&gt;&amp;nbsp;Thank you very much. Its solved.&lt;/P&gt;</description>
      <pubDate>Tue, 11 Jul 2023 08:45:46 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/create-surface-extrusion-vba/m-p/12093136#M155028</guid>
      <dc:creator>gopinathmY575P</dc:creator>
      <dc:date>2023-07-11T08:45:46Z</dc:date>
    </item>
  </channel>
</rss>

