Polígono

PARAMETRIZACIÓN DE UN POLÍGONO DE "N" LADOS

(P100=7) ;NÚMERO DE LADOS (P110=50) ;RADIO DEL CIRCULO CIRCUNSCRITO (P120=360/P100) ;360/LADOS (P140=180) ;ANGULO DE PARTIDA T6D1 M6 G7 G17 G71 G94 G96 F100 S1000 M3 G90 G0 G43 Z30 G40 X-100 Y0 G1 Z0 G91 Z-1 G90 (P141=-1);inicio de cuenta G93 I0 J0 ; N0150 G1 RP110 QP140 ;BLOQUE DE MOVIMIENTO ; (P141=P141 + 1) ;incremento de 1 en cada vértice ; (P140=P140 - P120) ;Ángulo siguiente= ANG. ACT- ANG. INTERNO ; ; (IF (P141LTP100) GOTO N150) ;SI NºVERTICES ES MENOR QUE EL Nº DE LADOS SALTA AL BLOQUE DE MOVIMIENTO ; ; ; G40 X-100 Y0 G0 Z30 M30