Akira,
The Curves argument will not help much in this case. For you example, the
AddForSolid method generates a Profile consisting of 3 ProfilePaths. Each
ProfilePath consists of a SketchCircle. You would use the Curves argument if
you would like the returned Profile to have just ONE ProfilePath consisting
of ALL the sketch entities that you care about. There isn't such a
ProfilePath in this case. So, what you will need to do is alter the returned
Profile. I have attached some VBA sample to do that (this is hard coded for
your example).
Sanjay-
Sub Profiles()
Dim odoc As PartDocument
Set odoc = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition
Set oDef = odoc.ComponentDefinition
Dim oProfile As Profile
Set oProfile = oDef.Sketches(1).Profiles.AddForSolid
oProfile.Item(2).AddsMaterial = True
oProfile.Item(3).AddsMaterial = False
oProfile.Item(1).Delete
Dim oExt As ExtrudeFeature
Set oExt = oDef.Features.ExtrudeFeatures.AddByDistanceExtent(oProfile,
1, kPositiveExtentDirection, kJoinOperation)
End Sub
"AKIRA"
wrote in message news:41662cb1_1@newsprd01...
> Hi All
>
> I want to know how to use new AddForSolid method .
>
> AddForSolid(
> Combine As Boolean = True,
> Curves As Variant, <--- ??? (This is my ???)
> reserved As Variant) As Profile
>
> I want to create Extend feature like Capture01.jpg using API.
>
> Please give me some information or sample .
>
> AKIRA