' Get a reference to the lines2d collection
objLines2d = objProfile.Lines2d
' Draw the Base Profile
objLine2d = objLines2d.AddBy2Points(0, 0, 0.08, 0)
objLine2d = objLines2d.AddBy2Points(0.08, 0, 0.08, 0.06)
objLine2d = objLines2d.AddBy2Points(0.08, 0.06, 0.064, 0.06)
objLine2d = objLines2d.AddBy2Points(0.064, 0.06, 0.064, 0.02)
objLine2d = objLines2d.AddBy2Points(0.064, 0.02, 0.048, 0.02)
objLine2d = objLines2d.AddBy2Points(0.048, 0.02, 0.048, 0.06)
objLine2d = objLines2d.AddBy2Points(0.048, 0.06, 0.032, 0.06)
objLine2d = objLines2d.AddBy2Points(0.032, 0.06, 0.032, 0.02)
objLine2d = objLines2d.AddBy2Points(0.032, 0.02, 0.016, 0.02)
objLine2d = objLines2d.AddBy2Points(0.016, 0.02, 0.016, 0.06)
objLine2d = objLines2d.AddBy2Points(0.016, 0.06, 0, 0.06)
objLine2d = objLines2d.AddBy2Points(0, 0.06, 0, 0)
' Define Relations among the Line objects to make the Profile closed
objRelations2d = objProfile.Relations2d
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(1), _
KeypointIndexConstants.igLineEnd, _
objLines2d.Item(2), _
KeypointIndexConstants.igLineStart)
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(2), _
KeypointIndexConstants.igLineEnd, _
objLines2d.Item(3), _
KeypointIndexConstants.igLineStart)
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(3), _
KeypointIndexConstants.igLineEnd, _
objLines2d.Item(4), _
KeypointIndexConstants.igLineStart)
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(4), _
KeypointIndexConstants.igLineEnd, _
objLines2d.Item(5), _
KeypointIndexConstants.igLineStart)
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(5), _
KeypointIndexConstants.igLineEnd, _
objLines2d.Item(6), _
KeypointIndexConstants.igLineStart)
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(6), _
KeypointIndexConstants.igLineEnd, _
objLines2d.Item(7), _
KeypointIndexConstants.igLineStart)
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(7), _
KeypointIndexConstants.igLineEnd, _
objLines2d.Item(8), _
KeypointIndexConstants.igLineStart)
objRelation2d = objRelations2d.AddKeypoint( _
objLines2d.Item(8), _