CATIA VBA... Chamfer :error
CATIA VBA... Chamfer :error
(OP)
Hi,
Im developing a model here i want to apply chamfer so i used the following code for chamfer
Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf11:());Face:(Brp:(Pad.1;2);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", trim1)
_________________________________________________________________________________________________
chamfer1.AddElementToChamfer reference9
chamfer1.Mode = catTwoLengthChamfer
chamfer1.Propagation = catTangencyChamfer
chamfer1.Orientation = catNoReverseChamfer
Dim parameters3 'As parameters
Set parameters3 = part1.parameters
' On Error Resume Next
Dim length6 As Length
Set length6 = parameters3.Item("part1\body1\Chamfer.1\ChamferRibbon.1\Length6") '
length6.Value = 0.5
part1.Update
_____________________________________________________________________________________________________________________________________
The error im getting in the yellow highlighted line
Run-time error '-2147467259 (800004005)';
the method item failed
Could some one help me out of this please....
Im developing a model here i want to apply chamfer so i used the following code for chamfer
Dim reference9 As Reference
Set reference9 = part1.CreateReferenceFromBRepName("REdge:(Edge:(Face:(Brp:(Pad.1;0:(Brp:(Sketch.1;3)));None:();Cf11:());Face:(Brp:(Pad.1;2);None:();Cf11:());None:(Limits1:();Limits2:());Cf11:());WithTemporaryBody;WithoutBuildError;WithSelectingFeatureSupport;MFBRepVersion_CXR15)", trim1)
_________________________________________________________________________________________________
chamfer1.AddElementToChamfer reference9
chamfer1.Mode = catTwoLengthChamfer
chamfer1.Propagation = catTangencyChamfer
chamfer1.Orientation = catNoReverseChamfer
Dim parameters3 'As parameters
Set parameters3 = part1.parameters
' On Error Resume Next
Dim length6 As Length
Set length6 = parameters3.Item("part1\body1\Chamfer.1\ChamferRibbon.1\Length6") '
length6.Value = 0.5
part1.Update
_____________________________________________________________________________________________________________________________________
The error im getting in the yellow highlighted line
Run-time error '-2147467259 (800004005)';
the method item failed
Could some one help me out of this please....




