<?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 setting a VBA sketch profiles problem in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/setting-a-vba-sketch-profiles-problem/m-p/10382373#M125393</link>
    <description>&lt;P&gt;I try to set this sketch as profiles but there has an error.&amp;nbsp;The code as follow.&lt;/P&gt;&lt;P&gt;I appreciate any help!&amp;nbsp;&lt;/P&gt;&lt;P&gt;Public Sub&amp;nbsp; &amp;nbsp;OOOO()&lt;BR /&gt;Dim oApp As Inventor.Application&lt;BR /&gt;Set oApp = ThisApplication&lt;BR /&gt;&lt;BR /&gt;Dim oPartDoc As PartDocument&lt;BR /&gt;Set oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, _&lt;BR /&gt;ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim oSketch As PlanarSketch&lt;BR /&gt;Set oSketch = oPartDoc.ComponentDefinition.Sketches.Add(oPartDoc.ComponentDefinition.workPlanes.Item(2))&lt;BR /&gt;Dim oTG As TransientGeometry&lt;BR /&gt;Set oTG = oApp.TransientGeometry&lt;BR /&gt;Dim oSkPnts As SketchPoints&lt;BR /&gt;Set oSkPnts = oSketch.SketchPoints&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(0, 0), False) 'oSkPnts(1) 1&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(0, 1.5 * 2.54), False) 'oSkPnts(2)2&lt;/P&gt;&lt;P&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-10 * 2.54, 1.5 * 2.54), False) 'oSkPnts(7)3&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-10 * 2.54, 0), False) 'oSkPnts(8)4&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.10608028 * 2.54, 1.5 * 2.54), False) 'oSkPnts(11) right high 5&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.1841075 * 2.54, 1.43765652 * 2.54), False) 'oSkPnts(12) right high 6&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.10608028 * 2.54, 1.42 * 2.54), False) 'oSkPnts(13) center of right high 7&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.42916783 * 2.54, 0.35469256 * 2.54), False) 'oSkPnts(14) right low 8&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.66032347 * 2.54, 0.17 * 2.54), False) 'oSkPnts(15) right low 9&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.66032347 * 2.54, 0.407 * 2.54), False) 'oSkPnts(16) center of right low 10&lt;/P&gt;&lt;P&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.89391972 * 2.54, 1.5 * 2.54), False) 'oSkPnts(17) left high 11&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.8158925 * 2.54, 1.43765652 * 2.54), False) 'oSkPnts(18) left high 12&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.89391972 * 2.54, 1.42 * 2.54), False) 'oSkPnts(19) center of left high 13&lt;/P&gt;&lt;P&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.57083217 * 2.54, 0.35469256 * 2.54), False) 'oSkPnts(20) left high 14&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.33967653 * 2.54, 0.17 * 2.54), False) 'oSkPnts(21) left high 15&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.33967653 * 2.54, 0.407 * 2.54), False) 'oSkPnts(22) center of left high 16&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim oLines As SketchLines&lt;BR /&gt;Set oLines = oSketch.SketchLines&lt;BR /&gt;Dim oLine(1 To 30) As SketchLine&lt;BR /&gt;Set oLine(1) = oLines.AddByTwoPoints(oSkPnts(1), oSkPnts(2)) 'Body&lt;BR /&gt;Set oLine(2) = oLines.AddByTwoPoints(oSkPnts(2), oSkPnts(5)) 'Body&lt;BR /&gt;Set oLine(3) = oLines.AddByTwoPoints(oSkPnts(6), oSkPnts(8)) 'Body&lt;BR /&gt;Set oLine(4) = oLines.AddByTwoPoints(oSkPnts(9), oSkPnts(15)) 'Body&lt;BR /&gt;Set oLine(5) = oLines.AddByTwoPoints(oSkPnts(14), oSkPnts(12)) 'Body&lt;BR /&gt;Set oLine(6) = oLines.AddByTwoPoints(oSkPnts(11), oSkPnts(3)) 'Body&lt;BR /&gt;Set oLine(7) = oLines.AddByTwoPoints(oSkPnts(3), oSkPnts(4)) 'Body&lt;BR /&gt;Set oLine(8) = oLines.AddByTwoPoints(oSkPnts(4), oSkPnts(1)) 'Body&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim oArcs As SketchArcs&lt;BR /&gt;Set oArcs = oSketch.SketchArcs&lt;BR /&gt;Dim oArc(1 To 4)As SketchArc&lt;BR /&gt;Set oArc(1) = oArcs.AddByCenterStartEndPoint(oSkPnts(7), oSkPnts(5), oSkPnts(6))&lt;BR /&gt;Set oArc(2) = oArcs.AddByCenterStartEndPoint(oSkPnts(10), oSkPnts(9), oSkPnts(8))&lt;BR /&gt;Set oArc(3) = oArcs.AddByCenterStartEndPoint(oSkPnts(16), oSkPnts(14), oSkPnts(15))&lt;BR /&gt;Set oArc(4) = oArcs.AddByCenterStartEndPoint(oSkPnts(13), oSkPnts(12), oSkPnts(11))&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Dim oProfile(1 To 4)As Profile&lt;BR /&gt;Set oProfile(1) = oSketch.Profiles.AddForSolid&lt;/P&gt;&lt;P&gt;'Extride for main body&lt;BR /&gt;Dim oExtrudeDef As ExtrudeDefinition&lt;BR /&gt;Set oExtrudeDef = oPartDoc.ComponentDefinition.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile(1), kJoinOperation)&lt;BR /&gt;Call oExtrudeDef.SetDistanceExtent(185.574037 * 2.54, kPositiveExtentDirection)&lt;BR /&gt;Dim oExtrude As ExtrudeFeature&lt;BR /&gt;Set oExtrude = oPartDoc.ComponentDefinition.Features.ExtrudeFeatures.Add(oExtrudeDef)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;</description>
    <pubDate>Fri, 11 Jun 2021 11:31:04 GMT</pubDate>
    <dc:creator>Anonymous</dc:creator>
    <dc:date>2021-06-11T11:31:04Z</dc:date>
    <item>
      <title>setting a VBA sketch profiles problem</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/setting-a-vba-sketch-profiles-problem/m-p/10382373#M125393</link>
      <description>&lt;P&gt;I try to set this sketch as profiles but there has an error.&amp;nbsp;The code as follow.&lt;/P&gt;&lt;P&gt;I appreciate any help!&amp;nbsp;&lt;/P&gt;&lt;P&gt;Public Sub&amp;nbsp; &amp;nbsp;OOOO()&lt;BR /&gt;Dim oApp As Inventor.Application&lt;BR /&gt;Set oApp = ThisApplication&lt;BR /&gt;&lt;BR /&gt;Dim oPartDoc As PartDocument&lt;BR /&gt;Set oPartDoc = ThisApplication.Documents.Add(kPartDocumentObject, _&lt;BR /&gt;ThisApplication.FileManager.GetTemplateFile(kPartDocumentObject))&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim oSketch As PlanarSketch&lt;BR /&gt;Set oSketch = oPartDoc.ComponentDefinition.Sketches.Add(oPartDoc.ComponentDefinition.workPlanes.Item(2))&lt;BR /&gt;Dim oTG As TransientGeometry&lt;BR /&gt;Set oTG = oApp.TransientGeometry&lt;BR /&gt;Dim oSkPnts As SketchPoints&lt;BR /&gt;Set oSkPnts = oSketch.SketchPoints&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(0, 0), False) 'oSkPnts(1) 1&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(0, 1.5 * 2.54), False) 'oSkPnts(2)2&lt;/P&gt;&lt;P&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-10 * 2.54, 1.5 * 2.54), False) 'oSkPnts(7)3&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-10 * 2.54, 0), False) 'oSkPnts(8)4&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.10608028 * 2.54, 1.5 * 2.54), False) 'oSkPnts(11) right high 5&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.1841075 * 2.54, 1.43765652 * 2.54), False) 'oSkPnts(12) right high 6&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.10608028 * 2.54, 1.42 * 2.54), False) 'oSkPnts(13) center of right high 7&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.42916783 * 2.54, 0.35469256 * 2.54), False) 'oSkPnts(14) right low 8&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.66032347 * 2.54, 0.17 * 2.54), False) 'oSkPnts(15) right low 9&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-0.66032347 * 2.54, 0.407 * 2.54), False) 'oSkPnts(16) center of right low 10&lt;/P&gt;&lt;P&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.89391972 * 2.54, 1.5 * 2.54), False) 'oSkPnts(17) left high 11&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.8158925 * 2.54, 1.43765652 * 2.54), False) 'oSkPnts(18) left high 12&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.89391972 * 2.54, 1.42 * 2.54), False) 'oSkPnts(19) center of left high 13&lt;/P&gt;&lt;P&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.57083217 * 2.54, 0.35469256 * 2.54), False) 'oSkPnts(20) left high 14&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.33967653 * 2.54, 0.17 * 2.54), False) 'oSkPnts(21) left high 15&lt;BR /&gt;Call oSkPnts.Add(oTG.CreatePoint2d(-9.33967653 * 2.54, 0.407 * 2.54), False) 'oSkPnts(22) center of left high 16&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim oLines As SketchLines&lt;BR /&gt;Set oLines = oSketch.SketchLines&lt;BR /&gt;Dim oLine(1 To 30) As SketchLine&lt;BR /&gt;Set oLine(1) = oLines.AddByTwoPoints(oSkPnts(1), oSkPnts(2)) 'Body&lt;BR /&gt;Set oLine(2) = oLines.AddByTwoPoints(oSkPnts(2), oSkPnts(5)) 'Body&lt;BR /&gt;Set oLine(3) = oLines.AddByTwoPoints(oSkPnts(6), oSkPnts(8)) 'Body&lt;BR /&gt;Set oLine(4) = oLines.AddByTwoPoints(oSkPnts(9), oSkPnts(15)) 'Body&lt;BR /&gt;Set oLine(5) = oLines.AddByTwoPoints(oSkPnts(14), oSkPnts(12)) 'Body&lt;BR /&gt;Set oLine(6) = oLines.AddByTwoPoints(oSkPnts(11), oSkPnts(3)) 'Body&lt;BR /&gt;Set oLine(7) = oLines.AddByTwoPoints(oSkPnts(3), oSkPnts(4)) 'Body&lt;BR /&gt;Set oLine(8) = oLines.AddByTwoPoints(oSkPnts(4), oSkPnts(1)) 'Body&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Dim oArcs As SketchArcs&lt;BR /&gt;Set oArcs = oSketch.SketchArcs&lt;BR /&gt;Dim oArc(1 To 4)As SketchArc&lt;BR /&gt;Set oArc(1) = oArcs.AddByCenterStartEndPoint(oSkPnts(7), oSkPnts(5), oSkPnts(6))&lt;BR /&gt;Set oArc(2) = oArcs.AddByCenterStartEndPoint(oSkPnts(10), oSkPnts(9), oSkPnts(8))&lt;BR /&gt;Set oArc(3) = oArcs.AddByCenterStartEndPoint(oSkPnts(16), oSkPnts(14), oSkPnts(15))&lt;BR /&gt;Set oArc(4) = oArcs.AddByCenterStartEndPoint(oSkPnts(13), oSkPnts(12), oSkPnts(11))&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Dim oProfile(1 To 4)As Profile&lt;BR /&gt;Set oProfile(1) = oSketch.Profiles.AddForSolid&lt;/P&gt;&lt;P&gt;'Extride for main body&lt;BR /&gt;Dim oExtrudeDef As ExtrudeDefinition&lt;BR /&gt;Set oExtrudeDef = oPartDoc.ComponentDefinition.Features.ExtrudeFeatures.CreateExtrudeDefinition(oProfile(1), kJoinOperation)&lt;BR /&gt;Call oExtrudeDef.SetDistanceExtent(185.574037 * 2.54, kPositiveExtentDirection)&lt;BR /&gt;Dim oExtrude As ExtrudeFeature&lt;BR /&gt;Set oExtrude = oPartDoc.ComponentDefinition.Features.ExtrudeFeatures.Add(oExtrudeDef)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;End Sub&lt;/P&gt;</description>
      <pubDate>Fri, 11 Jun 2021 11:31:04 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/setting-a-vba-sketch-profiles-problem/m-p/10382373#M125393</guid>
      <dc:creator>Anonymous</dc:creator>
      <dc:date>2021-06-11T11:31:04Z</dc:date>
    </item>
    <item>
      <title>Re: setting a VBA sketch profiles problem</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/setting-a-vba-sketch-profiles-problem/m-p/10404678#M125647</link>
      <description>&lt;P&gt;So I had a look at this out of curiosity. I am not really experienced with creating sketches like this, but I like a challenge.&amp;nbsp;&lt;/P&gt;&lt;P&gt;The error occurred as there isn't a close loop. Constraints are missing, see image.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&lt;span class="lia-inline-image-display-wrapper lia-image-align-inline" image-alt="AAcheson_0-1624153235181.png" style="width: 400px;"&gt;&lt;img src="https://forums.autodesk.com/t5/image/serverpage/image-id/932264i64B8AC28E94017D5/image-size/medium?v=v2&amp;amp;px=400" role="button" title="AAcheson_0-1624153235181.png" alt="AAcheson_0-1624153235181.png" /&gt;&lt;/span&gt;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This issue was addressed &lt;A href="https://adndevblog.typepad.com/manufacturing/2012/06/error-occurs-using-sketchlines-for-a-profile-when-trying-to-create-an-extrusion.html" target="_blank" rel="noopener"&gt;here&lt;/A&gt;&amp;nbsp;.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Why some of the sketch profile was constrained and more wasn't is another question?&amp;nbsp;&lt;/P&gt;&lt;P&gt;After 58 parts later &lt;img class="lia-deferred-image lia-image-emoji" src="https://forums.autodesk.com/html/@1A5BF4DFF76C3208F100BEEBB3221CE2/emoticons/1f605.png" alt=":grinning_face_with_sweat:" title=":grinning_face_with_sweat:" /&gt;I have added these 4 lines to close the loop and complete the profile.&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;'Added these lines to merge sketch points&lt;/SPAN&gt;
&lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oLine&lt;/SPAN&gt;(3).&lt;SPAN&gt;StartSketchPoint&lt;/SPAN&gt;.&lt;SPAN&gt;Merge&lt;/SPAN&gt;(&lt;SPAN&gt;oArc&lt;/SPAN&gt;(1).&lt;SPAN&gt;EndSketchPoint&lt;/SPAN&gt;)
&lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oLine&lt;/SPAN&gt;(3).&lt;SPAN&gt;EndSketchPoint&lt;/SPAN&gt;.&lt;SPAN&gt;Merge&lt;/SPAN&gt;(&lt;SPAN&gt;oArc&lt;/SPAN&gt;(2).&lt;SPAN&gt;EndSketchPoint&lt;/SPAN&gt;)
&lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oLine&lt;/SPAN&gt;(4).&lt;SPAN&gt;EndSketchPoint&lt;/SPAN&gt;.&lt;SPAN&gt;Merge&lt;/SPAN&gt;(&lt;SPAN&gt;oArc&lt;/SPAN&gt;(3).&lt;SPAN&gt;EndSketchPoint&lt;/SPAN&gt;)
&lt;SPAN&gt;Call&lt;/SPAN&gt; &lt;SPAN&gt;oLine&lt;/SPAN&gt;(6).&lt;SPAN&gt;StartSketchPoint&lt;/SPAN&gt;.&lt;SPAN&gt;Merge&lt;/SPAN&gt;(&lt;SPAN&gt;oArc&lt;/SPAN&gt;(4).&lt;SPAN&gt;EndSketchPoint&lt;/SPAN&gt;)

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oProfile&lt;/SPAN&gt;(1 &lt;SPAN&gt;To&lt;/SPAN&gt; 4) &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Profile&lt;/SPAN&gt;
&lt;SPAN&gt;Set&lt;/SPAN&gt; &lt;SPAN&gt;oProfile&lt;/SPAN&gt;(1) = &lt;SPAN&gt;oSketch&lt;/SPAN&gt;.&lt;SPAN&gt;Profiles&lt;/SPAN&gt;.&lt;SPAN&gt;AddForSolid&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;Hope that helps&lt;/P&gt;</description>
      <pubDate>Sun, 20 Jun 2021 02:06:59 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/setting-a-vba-sketch-profiles-problem/m-p/10404678#M125647</guid>
      <dc:creator>A.Acheson</dc:creator>
      <dc:date>2021-06-20T02:06:59Z</dc:date>
    </item>
    <item>
      <title>Re: setting a VBA sketch profiles problem</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/setting-a-vba-sketch-profiles-problem/m-p/10405444#M125650</link>
      <description>&lt;P&gt;Hi,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This isn't how it's done.. You are creating lines geometry but not constraining them together.&lt;/P&gt;&lt;P&gt;Here is a test iLogic Rule from me where I tested this a while ago.. :&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN style="color: #808080;"&gt;'///////////////////////////////////VARIABLES////////////////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDoc&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Document&lt;/SPAN&gt; 
&lt;SPAN style="color: #800000;"&gt;oDoc&lt;/SPAN&gt; = &lt;SPAN style="color: #800080;"&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;ActiveDocument&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPartComp&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;PartComponentDefinition&lt;/SPAN&gt;
&lt;SPAN style="color: #800000;"&gt;oPartComp&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;ComponentDefinition&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;PlanarSketch&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;TransientGeometry&lt;/SPAN&gt;
&lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt; = &lt;SPAN style="color: #800080;"&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;TransientGeometry&lt;/SPAN&gt;

&lt;SPAN style="color: #808080;"&gt;'////////////////////////////SET DEFAULT UNIT TO MM//////////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oMillimeterUnit&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;UnitsTypeEnum&lt;/SPAN&gt;
&lt;SPAN style="color: #800000;"&gt;oMillimeterUnit&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;UnitsTypeEnum&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;kMillimeterLengthUnits&lt;/SPAN&gt; 

	&lt;SPAN style="color: #800000;"&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;UnitsOfMeasure&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;LengthUnits&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oMillimeterUnit&lt;/SPAN&gt;
	
&lt;SPAN style="color: #808080;"&gt;'//////////////////////////////CREATE USER PARAMETERS////////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oGap1&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;UserParameter&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPartComp&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Parameters&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;UserParameters&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByExpression&lt;/SPAN&gt;(&lt;SPAN style="color: #008080;"&gt;"Gap_1"&lt;/SPAN&gt;,&lt;SPAN style="color: #008080;"&gt;"50"&lt;/SPAN&gt;,&lt;SPAN style="color: #008080;"&gt;"mm"&lt;/SPAN&gt;)

&lt;SPAN style="color: #808080;"&gt;'///////////////////////////////CREATE SKETCH////////////////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPartComp&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Sketches&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Add&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPartComp&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;WorkPlanes&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Item&lt;/SPAN&gt;(3))
&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Name&lt;/SPAN&gt; = &lt;SPAN style="color: #008080;"&gt;"Sketch 1"&lt;/SPAN&gt;

&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Edit&lt;/SPAN&gt;

&lt;SPAN style="color: #808080;"&gt;'///////////////////////////////PROJECT ORIGIN POINT/////////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oOrigin&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;WorkPoint&lt;/SPAN&gt;
	&lt;SPAN style="color: #800000;"&gt;oOrigin&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPartComp&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;WorkPoints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Item&lt;/SPAN&gt;(1)
		&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oOriginPoint&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;SketchEntity&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByProjectingEntity&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oOrigin&lt;/SPAN&gt;)

&lt;SPAN style="color: #808080;"&gt;'//////////////////////FINALY DRAW THE ACTUAL PART SKETCH////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPoint1&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Point2d&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CreatePoint2d&lt;/SPAN&gt;(0, 0)
&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPoint2&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Point2d&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CreatePoint2d&lt;/SPAN&gt;(0, 3.3)

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oValue1&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;Double&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oGap1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Value&lt;/SPAN&gt; + 3 + 5
&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPoint3&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Point2d&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CreatePoint2d&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oValue1&lt;/SPAN&gt;,3.3)

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;SketchLine&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;SketchLines&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByTwoPoints&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPoint1&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oPoint2&lt;/SPAN&gt;)
	&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDimention1&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;TwoPointDistanceDimConstraint&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;DimensionConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddTwoPointDistance&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;DimensionOrientationEnum&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;kAlignedDim&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Geometry&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;MidPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Merge&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oOriginPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GeometricConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddVertical&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;)
		
&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;SketchLine&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;SketchLines&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByTwoPoints&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPoint2&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oPoint3&lt;/SPAN&gt;)
	&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDimention2&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;TwoPointDistanceDimConstraint&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;DimensionConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddTwoPointDistance&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;DimensionOrientationEnum&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;kAlignedDim&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Geometry&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;MidPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oDimention2&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Parameter&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Expression&lt;/SPAN&gt; = &lt;SPAN style="color: #008080;"&gt;"Gap_1 + 30 + 50"&lt;/SPAN&gt;
		&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Merge&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GeometricConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddPerpendicular&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt;)
	
&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPoint4&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Point2d&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CreatePoint2d&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPoint3&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;X&lt;/SPAN&gt;,0.8)	
	
&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;SketchLine&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;SketchLines&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByTwoPoints&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPoint3&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oPoint4&lt;/SPAN&gt;)
	&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDimention3&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;TwoPointDistanceDimConstraint&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;DimensionConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddTwoPointDistance&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;DimensionOrientationEnum&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;kAlignedDim&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Geometry&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;MidPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Merge&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GeometricConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddPerpendicular&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine2&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt;)
		
&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPoint5&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Point2d&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CreatePoint2d&lt;/SPAN&gt;(3, &lt;SPAN style="color: #800000;"&gt;oPoint4&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Y&lt;/SPAN&gt;)	

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oLine4&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;SketchLine&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;SketchLines&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByTwoPoints&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPoint4&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oPoint5&lt;/SPAN&gt;)
	&lt;SPAN style="color: #800000;"&gt;oLine4&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Merge&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;)
	&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GeometricConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddPerpendicular&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine3&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oLine4&lt;/SPAN&gt;)
	
&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oPoint6&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Point2d&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oTG&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CreatePoint2d&lt;/SPAN&gt;(3, 0)	

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oLine5&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;SketchLine&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;SketchLines&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByTwoPoints&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPoint5&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oPoint6&lt;/SPAN&gt;)
	&lt;SPAN style="color: #800000;"&gt;oLine5&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Merge&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine4&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;)
	&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GeometricConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddPerpendicular&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine4&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oLine5&lt;/SPAN&gt;)

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oLine6&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;SketchLine&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;SketchLines&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByTwoPoints&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oPoint6&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oPoint1&lt;/SPAN&gt;)
	&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oDimention4&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;TwoPointDistanceDimConstraint&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;DimensionConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddTwoPointDistance&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine6&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;oLine6&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;DimensionOrientationEnum&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;kAlignedDim&lt;/SPAN&gt;,&lt;SPAN style="color: #800000;"&gt;oLine6&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Geometry&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;MidPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oLine6&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Merge&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine5&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oLine6&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;EndSketchPoint&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Merge&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;StartSketchPoint&lt;/SPAN&gt;)
		&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;GeometricConstraints&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddPerpendicular&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oLine5&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;oLine6&lt;/SPAN&gt;)	

&lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;ExitEdit&lt;/SPAN&gt;

&lt;SPAN style="color: #808080;"&gt;'//////////////////////////////EXTRUDE THE SKETCH/////////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oProfile&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Profile&lt;/SPAN&gt; 
&lt;SPAN style="color: #800000;"&gt;oProfile&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPlanarSketch&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Profiles&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddForSolid&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oExtrude1&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;ExtrudeFeature&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oPartComp&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Features&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;ExtrudeFeatures&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;AddByDistanceExtent&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;oProfile&lt;/SPAN&gt;, 0.5 , &lt;SPAN style="color: #800000;"&gt;kSymmetricExtentDirection&lt;/SPAN&gt;, &lt;SPAN style="color: #800000;"&gt;kJoinOperation&lt;/SPAN&gt;)
&lt;SPAN style="color: #800000;"&gt;oExtrude1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Name&lt;/SPAN&gt; = &lt;SPAN style="color: #008080;"&gt;"Extrusion1"&lt;/SPAN&gt;

&lt;SPAN style="color: #808080;"&gt;'/////////////////////////////////CHANGE COLOR////////////////////////////////&lt;/SPAN&gt;

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oAppearence&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;Asset&lt;/SPAN&gt;
&lt;SPAN style="color: #800000;"&gt;oAppearence&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Assets&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Add&lt;/SPAN&gt;(&lt;SPAN style="color: #800000;"&gt;kAssetTypeAppearance&lt;/SPAN&gt;, &lt;SPAN style="color: #008080;"&gt;"Generic"&lt;/SPAN&gt;, &lt;SPAN style="color: #008080;"&gt;"Appearances"&lt;/SPAN&gt;)

&lt;SPAN style="color: #ff0000;"&gt;Dim&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;oColor&lt;/SPAN&gt; &lt;SPAN style="color: #ff0000;"&gt;As&lt;/SPAN&gt; &lt;SPAN style="color: #800000;"&gt;ColorAssetValue&lt;/SPAN&gt;
&lt;SPAN style="color: #800000;"&gt;oColor&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oAppearence&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Item&lt;/SPAN&gt;(&lt;SPAN style="color: #008080;"&gt;"generic_diffuse"&lt;/SPAN&gt;)

&lt;SPAN style="color: #800000;"&gt;oColor&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Value&lt;/SPAN&gt; = &lt;SPAN style="color: #800080;"&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;TransientObjects&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;CreateColor&lt;/SPAN&gt;(0,145,255)

&lt;SPAN style="color: #800000;"&gt;oExtrude1&lt;/SPAN&gt;.&lt;SPAN style="color: #800000;"&gt;Appearance&lt;/SPAN&gt; = &lt;SPAN style="color: #800000;"&gt;oAppearence&lt;/SPAN&gt;
&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;Hope this helps ,&lt;/P&gt;&lt;P&gt;&lt;BR /&gt;Regards,&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;FINET L.&lt;/P&gt;</description>
      <pubDate>Sun, 20 Jun 2021 12:49:04 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/setting-a-vba-sketch-profiles-problem/m-p/10405444#M125650</guid>
      <dc:creator>FINET_Laurent</dc:creator>
      <dc:date>2021-06-20T12:49:04Z</dc:date>
    </item>
  </channel>
</rss>

