I'm looking for the reciprocal to this. I want to Extrude-Cut some text. I have programmatically created a sketch on an origin plane, and created the text, but I am having trouble identifying that text as a profile.
I would have thought that the following would be sufficient, but I get "Invalid Procedure call or Arguement".
The only thing in the sketch is the text that I want to extrude.
Dim oSegments As ObjectCollection Set oSegments = IVApp.TransientObjects.CreateObjectCollection Dim oSketchEnt As SketchEntity For Each oSketchEnt In oSketch.SketchEntities oSegments.Add oSketchEnt Next ' Create a profile. Set oProfile = oSketch.Profiles.AddForSolid(True, oSegments) Set oExtrude = oCompDef.Features.ExtrudeFeatures.AddByDistanceExtent(oProfile, "Thickness", kNegativeExtentDirection, kNegativeExtentDirection)
Hi,
here is a blog on how to extrude a text. Probably it helps you to figure out the problem at your side?
http://adndevblog.typepad.com/manufacturing/2012/08/extrude-the-text-in-inventor.html
Perfect, Thank you.
It seems my problem was that I wasn't fully specifying the constants. That is, instead of
PartFeatureExtentDirectionEnum.kPositiveExtentDirection
and PartFeatureOperationEnum.kJoinOperation
I was just using the kPositiveExtentDirection and kJoinOperation by themselves.
Again, Thank you.