06-07-2019
01:01 PM
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
06-07-2019
01:01 PM
Thanks for the link! It doesn't work for my application but I think the code provided below is pretty darn close to being able to create it. I tried classifying the sweep that exists on my part as a object collection but it doesn't seem to work on the last line of code.
Dim oPartDoc As PartDocument = ThisDoc.Document Dim oPartComp As PartComponentDefinition = oPartDoc.ComponentDefinition Dim oSweep As SweepFeature = oPartComp.Features.SweepFeatures.Item(2) Dim oBjCol As ObjectCollection = ThisApplication.TransientObjects.CreateObjectCollection Call oBjCol.Add(oSweep) Dim oAxis As WorkAxis = oPartComp.WorkAxes.Item(1) oRectFeat = oPartComp.Features.RectangularPatternFeatures.Add(oBjCol, oAxis, True, 3, 10, PatternSpacingTypeEnum.kDefault)
Best regards,
Felix Cortes