06-19-2021
07:02 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-19-2021
07:02 PM
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.
This issue was addressed here .
Why some of the sketch profile was constrained and more wasn't is another question?
After 58 parts later
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
Or if this helped you, please, click (like)
Regards
Alan