API provides the corresponding methods of UI to create chamfer feature.
ChamferFeatures.AddUsingDistance: creates a new ChamferFeature defined by a specified distance. The required arguments are the distance and the edges.
ChamferFeatures.AddUsingDistanceAndAngle: creates a new ChamferFeature that is defined by a distance and at a specified angle to an input face. The required arguments are referred face, edges, distance and angle.
ChamferFeatures.AddUsingTwoDistances: creates a new ChamferFeature that is defined by two distances. The required arguments are referred face, edges, distance one and distance two.
The code below demos the three methods. It assumes it is a part document. A face (with at least four edges) is selected.
Sub createChamferInPart()
Dim oDoc As PartDocument
oDoc = ThisApplication.ActiveDocument
Dim oDef As PartComponentDefinition
oDef = oDoc.ComponentDefinition
'selected face
Dim oSelectedFace As Face
oSelectedFace = oDoc.SelectSet(1)
Dim oEdgeCol As EdgeCollection
oEdgeCol = ThisApplication.TransientObjects.CreateEdgeCollection()
'method 1: creates a new ChamferFeature defined by 0.1 inch.
oEdgeCol.Add oSelectedFace.Edges(1)
oEdgeCol.Add oSelectedFace.Edges(2)
Call oDef.Features.ChamferFeatures.AddUsingDistance(oEdgeCol,
"0.1 in")
'method 2: creates a new ChamferFeature that is defined
'by 0.2 inch and 30 degree
oEdgeCol.Clear()
oEdgeCol.Add oSelectedFace.Edges(3)
Call oDef.Features.ChamferFeatures.AddUsingDistanceAndAngle
(oEdgeCol,
oSelectedFace,
"0.2 in",
0.5233)
'method 3: creates a new ChamferFeature that is defined
' by 0.1 inch and 0.2 inch
oEdgeCol.Clear()
oEdgeCol.Add oSelectedFace.Edges(4)
Call oDef.Features.ChamferFeatures.AddUsingTwoDistances(oEdgeCol,
oSelectedFace,
"0.1 in",
"0.2 in")
End Sub
