TNaming_Builder

Hi:
I set TNaming_NamedShape in OCAF. It is good. But, I try to get another shape to replace the old shape in OCAF. It failed. Both of the shapes are different.

TopoDS_Shape aBottomShape = Handle(AIS_Shape)::DownCast(aObjectBottom)->Shape();

TopoDS_Shape aShape;
if (L.FindAttribute(TNaming_NamedShape::GetID(),NS))
aShape = NS->Get();

TNaming_Builder B1(L);
B1.Generated(aShape,aBottomShape);

I also try Replace and Modify functions. Both of them do not work,as well.

Thanks a lot.

Best regards,
Shawn