Announcements
Attention for Customers without Multi-Factor Authentication or Single Sign-On - OTP Verification rolls out April 2025. Read all about it here.
A.Acheson
in reply to: Anonymous

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. 

The error occurred as there isn't a close loop. Constraints are missing, see image. 

AAcheson_0-1624153235181.png

 

This issue was addressed here .

 

Why some of the sketch profile was constrained and more wasn't is another question? 

After 58 parts later :grinning_face_with_sweat:I have added these 4 lines to close the loop and complete the profile. 

'Added these lines to merge sketch points
Call oLine(3).StartSketchPoint.Merge(oArc(1).EndSketchPoint)
Call oLine(3).EndSketchPoint.Merge(oArc(2).EndSketchPoint)
Call oLine(4).EndSketchPoint.Merge(oArc(3).EndSketchPoint)
Call oLine(6).StartSketchPoint.Merge(oArc(4).EndSketchPoint)

Dim oProfile(1 To 4) As Profile
Set oProfile(1) = oSketch.Profiles.AddForSolid

 Hope that helps

If this solved a problem, please click (accept) as solution.‌‌‌‌
Or if this helped you, please, click (like)‌‌
Regards
Alan