Message 1 of 2
Add thicken to all Surface one by one
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Dim oDoc As PartDocument oDoc = ThisApplication.ActiveDocument Dim oDef As PartComponentDefinition oDef = oDoc.ComponentDefinition Dim NumberOfSelevsion NumberOfSelevsion =oDoc.SelectSet.Count For i = 1 To NumberOfSelevsion Try Dim oFace As Face oFace = oDoc.SelectSet(NumberOfSelevsion) Dim oFaceColl As FaceCollection oFaceColl = ThisApplication.TransientObjects.CreateFaceCollection oFaceColl.Add(oFace) 'oFaceColl.Clear Dim oThicken As ThickenFeature oThicken = oDef.Features.ThickenFeatures.Add(oFaceColl, "0.1 in", kPositiveExtentDirection, kJoinOperation) 'oFaceColl.Clear Catch End Try Next
I have this code ... it work fine in I want to add thickness to one surface add the time ... but I want to add surface thinkness to all surface .. one by one sind something it give a error if you try a grounp at the time .. but would like to know how to take all at ons... and I do not want to have to select them .
how can i do this