Message 1 of 24
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hi
I would like to mirror multible solids (166) with one miror feature.
I have a code, which is working with one solid at the time, but what do I have to change or add to mirror more solids at once?
I dont want 166 new mirror features added to model, but only one.
Sub Main() 'Create Mirror Part and remove orginal part. Dim oDoc As PartDocument oDoc = ThisApplication.ActiveDocument Dim oCol As ObjectCollection oCol = ThisApplication.TransientObjects.CreateObjectCollection oCol.Add(oDoc.ComponentDefinition.SurfaceBodies(1)) ' What do i have to write in this line, to mark multible solids? Dim oPlane As WorkPlane oPlane = oDoc.ComponentDefinition.WorkPlanes(3) Dim oMirror As MirrorFeature oMirror = oDoc.ComponentDefinition.Features.MirrorFeatures.Add(oCol, oPlane, True, kOptimizedCompute) oMirror.NewBodyOperation = True End Sub
Thanks in Advance.
Solved! Go to Solution.