Помогите с GRIP-прогой

[alexnx6 0]

Помогите пожалуйста, прога строит резец из N зубьев. Как сделать, чтобы выдавливиние SOLEXT было всего резца,

а не каждого зубца, чтоб резец был одним твердым телом?

Т.е. как из цикла DO до L1: выдернуть номера линий Lm и засунуть их в команду SOLEXT, которая будет уже после цикла?

Программа: REZ_2.GRS

NUMBER/M,A,N,h,RESP,X, Y, Z

ENTITY/L(200) ,Lm(200),P(200),PT(4),LT(3),SOLID(200),BPL

DATA/ A,70.0,N,3.0,M,3.0,h,5.0

BEG: GPOS/'Укажите точку вставки', X, Y, Z, RESP

JUMP/ BEG:, ENDD: ,,,,,RESP

PAR:PARAM/'Вве_пар','A_угол=',A,'Mодуль=',M,'Кол_зубьев=',N,'Высота=',h, RESP

IF/M*A,,,TST:

MESSG/'Недопустимые параметры'

JUMP/PAR:

TST: IF/90-A, , NXT:, NXT:

MESSG/'Угол зубца слишком велик'

JUMP/PAR:

NXT: DO/ L1: , i,1,N

DRAW/OFF

P(i)=POINT/ X, Y, Z

P(i+1)=POINT/ P(i),POLAR,0.5*3.14*M,0

L(i)=LINE/P(i),P(i+1)

L(i+1)=LINE/ P(i),ATANGL,A

L(i+2)=LINE/ P(i+1),ATANGL,180-A

L(i+3)=LINE/ PARLEL,L(i),YLARGE,M

L(i+4)=LINE/ PARLEL,L(i),YSMALL,1.25*M

P(i+2)=POINT/INTOF,L(i+1),L(i+3)

P(i+3)=POINT/INTOF,L(i+2),L(i+3)

P(i+4)=POINT/INTOF,L(i+1),L(i+4)

P(i+5)=POINT/INTOF,L(i+2),L(i+4)

L(i+5)=LINE/P(i),PERPTO,L(i)

L(i+6)=LINE/PARLEL,L(i+5),XSMALL,0.25*3.14*M

L(i+7)=LINE/PARLEL,L(i+5),XLARGE,0.75*3.14*M

P(i+6)=POINT/INTOF,L(i+4),L(i+6)

P(i+7)=POINT/INTOF,L(i+4),L(i+7)

DELETE/L(i..i+7)

Lm(i)=LINE/P(i+6),P(i+4)

Lm(i+1)=LINE/P(i+4),P(i+2)

Lm(i+2)=LINE/P(i+2),P(i+3)

Lm(i+3)=LINE/P(i+3),P(i+5)

Lm(i+4)=LINE/P(i+5),P(i+7)

DRAW/Lm(i..i+4)

PT(1)=P(i+7)

PT(2)=POINT/PT(1),POLAR,2*M,270

LT(1)=LINE/PT(1),PT(2)

PT(3)=POINT/PT(2),POLAR,3.14*M,180

LT(2)=LINE/PT(2),PT(3)

PT(4)=POINT/PT(3),POLAR,2*M,90

LT(3)=LINE/PT(3),PT(4)

DRAW/LT(1..3)

X=X+3.14*M

BPL=BPLANE/Lm(i),Lm(i+1),Lm(i+2),$

Lm(i+3),Lm(i+4),LT(1),LT(2),LT(3)

SOLID(i)=SOLEXT/Lm(i..i+4),LT(1..3),HEIGHT,h,AXIS,0,0,1

DELETE/P(i..i+7)

DRAW/SOLID(i)

L1:

MESSG/'ГОТОВО!'

JUMP/ BEG:

ENDD: HALT