Is there any way to create a KnitFeature from a single (closed) surface body to turn it into a solid?
From the UI, its easy enough - but through VBA it errors out.
To reproduce:
- Create a solid extrusion
- Use "copy object" to create a surface copy of it.
- Delete or Hide the source solid body
- Then via VBA - add the single surface body to an object collection
- Create a Knit Feature using the object collection.
Dim oSurfs As ObjectCollection
Set oSurfs = ThisApplication.TransientObjects.CreateObjectCollection
Dim oWS As WorkSurface
For Each oWS In oPartDef2.WorkSurfaces
If oWS.SurfaceBodies(1).AffectedByFeatures(1).Name = oBaseFeature1.Name Then
oSurfs.Add oWS
End If
Next oWS
Dim oStitch As KnitFeature
Set oStitch = oPartDef2.Features.KnitFeatures.Add(oSurfs, 0.005, False)
Appreciate the help.
