Well, a lot depends on your layout, and how you're determining the new center and radius for a new part. But, assuming that you have a start point with your TCP at the correct location and orientation, and also assuming that your circle is in the XY plane of the active TCP:Code Display MoreDAT file: DECL E6POS PosArray[16] DECL REAL DegreesPerPosition = 5.0 ; whatever the arc angle is between positions DECL FRAME ShiftFrame SRC file: ShiftFrame = $NULLFRAME FOR i = 1 TO 16 PosArray[i] = $NULLFRAME ShiftFrame = $NULLFRAME ShiftFrame.A = i * DegreesPerPosition PosArray[i] = FirstPosition : ShiftFrame ENDFOR
That should create an array of points that define the circle around the object. That's just a very rough draft, though. There are further refinements possible depending on your system setup.
I have an application very similar to this, can you give me a better explanation about the written code ?? Appreciate.