hexagon logo

Program the loop


Hello, can you help me with a loop of a hole circle? with an angle of 60 °

I also need to evaluate the position in the loop.

I thank you
  • about as...

    !
    PRBDIA=5
    R=60
    ANZ=6
    GRAD=360/ANZ
    !
    DO (NAM=I, BGN=1, END=ANZ, DLT=1)
    A=-180+(I-1)*GRAD
    GENCIR (NAM=CIR(I), XCO=R*FCOS(A), YCO=R*FSIN(A), ZCO=20, DIA=10, NPT=8, PLA=XY, INO=I, MIP=0, MXP=360, PDI=PRBDIA, CSY=CSY1, ZVL=25)
    MECIR (NAM=CIR(I), CSY=CSY1, PTY=XY)
    POSITNXY (NAM=REA_POS(I), OBJ=CIR(I), TYP=CIR, DIX=FABS(R*FCOS(A)), DIY=FABS(R*FSIN(A)))
    ENDDO

    Best regards
    Michael