关于模板操作

我不会用API,今天我用GRIP做了一个模架的小程序，调用已经做好的模架PRT文件，可以改里面的表达式。就是在更新数据时，每更新一个参数，数模更新一次，导致比较慢。

这是源代码，给你看看。
ENTITY/AP,BP,FCP,MCP,EJP,EPP,CPL,CPR
NUMBER/L,W,APH,BPH,FCPH,HOTH,CPH,CPW,EJPH,EPPH,MACH
NUMBER/AA(20)
STRING/PATH(132)

STEP00:
CHOOSE/'选择方式','调入1500模架','更改1500参数','调入22\28模架',$
       '更改22\28参数',RESP
JUMP/STEP00:,TRM:,,,STEP10:,STEP20:,STEP30:,STEP40:,RESP

STEP10:
PATH='.................\1500T.PRT'
FETCH/PART,PATH
$RPATT/PATH
JUMP/STEP00:,TRM:,RESP

STEP20:
AA(1)=EXPEVL/'L'
AA(2)=EXPEVL/'W'
AA(3)=EXPEVL/'APH'
AA(4)=EXPEVL/'BPH'
AA(5)=EXPEVL/'FCPH'
AA(6)=EXPEVL/'HOTH'
AA(7)=EXPEVL/'CPH'
AA(8)=EXPEVL/'CPW'
AA(9)=EXPEVL/'EJPH'
AA(10)=EXPEVL/'EPPH'


L=EXPEVL/'L'
W=EXPEVL/'W'
APH=EXPEVL/'APH'
BPH=EXPEVL/'BPH'
FCPH=EXPEVL/'FCPH'
HOTH=EXPEVL/'HOTH'
CPH=EXPEVL/'CPH'
CPW=EXPEVL/'CPW'
EJPH=EXPEVL/'EJPH'
EPPH=EXPEVL/'EPPH'
PARAM/'请确认模架规格','动定模长度=',L,'动定模宽度',W,'定模高度',APH,$
       '动模高度',BPH,'动定模固定板厚度',FCPH,'热流道板厚度',HOTH,$
        '模脚高度',CPH,'模脚宽度',CPW,'推板高度',EJPH,'推杆固定板高度',EPPH,resp
JUMP/STEP00:,TRM:,RESP

ST10:
IFTHEN/L<>AA(1)
STORE/'L',L
ELSE
JUMP/ST20:
ENDIF


ST20:
IFTHEN/W<>AA(2)
STORE/'W',W
ELSE
JUMP/ST30:
ENDIF


ST30:
IFTHEN/APH<>AA(3)
STORE/'APH',APH
ELSE
JUMP/ST40:
ENDIF


ST40:
IFTHEN/BPH<>AA(4)
STORE/'BPH',BPH
ELSE
JUMP/ST50:
ENDIF


ST50:
IFTHEN/FCPH<>AA(5)
STORE/'FCPH',FCPH
ELSE
JUMP/ST60:
ENDIF


ST60:
IFTHEN/HOTH<>AA(6)
STORE/'HOTH',HOTH
ELSE
JUMP/ST70:
ENDIF


ST70:
IFTHEN/CPH<>AA(7)
STORE/'CPH',CPH
ELSE
JUMP/ST80:
ENDIF


ST80:
IFTHEN/CPW<>AA(8)
STORE/'CPW',CPW
ELSE
JUMP/ST90:
ENDIF


ST90:
IFTHEN/EJPH<>AA(9)
STORE/'EJPH',EJPH
ELSE
JUMP/ST100:
ENDIF

ST100:
IFTHEN/EPPH<>AA(10)
STORE/'EPPH',EPPH
ELSE
JUMP/TRM:
ENDIF

JUMP/STEP50:

STEP30:
PATH='.........\part\2200-2800T.prt'
FETCH/PART,PATH
JUMP/STEP00:,TRM:,RESP

STEP40:
AA(1)=EXPEVL/'L'
AA(2)=EXPEVL/'W'
AA(3)=EXPEVL/'APH'
AA(4)=EXPEVL/'BPH'
AA(5)=EXPEVL/'FCPH'
AA(6)=EXPEVL/'HOTH'
AA(7)=EXPEVL/'CPH'
AA(8)=EXPEVL/'CPW'
AA(9)=EXPEVL/'EJPH'
AA(10)=EXPEVL/'EPPH'
AA(11)=EXPEVL/'MACH'

MACH=EXPEVL/'MACH'
L=EXPEVL/'L'
W=EXPEVL/'W'
APH=EXPEVL/'APH'
BPH=EXPEVL/'BPH'
FCPH=EXPEVL/'FCPH'
HOTH=EXPEVL/'HOTH'
CPH=EXPEVL/'CPH'
CPW=EXPEVL/'CPW'
EJPH=EXPEVL/'EJPH'
EPPH=EXPEVL/'EPPH'


PARAM/'请确认模架规格','注塑机=',MACH,'动定模长度=',L,'动定模宽度',W,$
    '定模高度',APH,'动模高度',BPH,'动定模固定板厚度',FCPH,'热流道板厚度',HOTH,$
        '模脚高度',CPH,'模脚宽度',CPW,'推板高度',EJPH,'推杆固定板高度',EPPH,resp
JUMP/STEP30:,TRM:,RESP

TT10:
IFTHEN/L<>AA(1)
STORE/'L',L
ELSE
JUMP/TT20:
ENDIF


TT20:
IFTHEN/W<>AA(2)
STORE/'W',W
ELSE
JUMP/TT30:
ENDIF


TT30:
IFTHEN/APH<>AA(3)
STORE/'APH',APH
ELSE
JUMP/TT40:
ENDIF


TT40:
IFTHEN/BPH<>AA(4)
STORE/'BPH',BPH
ELSE
JUMP/TT50:
ENDIF


TT50:
IFTHEN/FCPH<>AA(5)
STORE/'FCPH',FCPH
ELSE
JUMP/TT60:
ENDIF


TT60:
IFTHEN/HOTH<>AA(6)
STORE/'HOTH',HOTH
ELSE
JUMP/TT70:
ENDIF


TT70:
IFTHEN/CPH<>AA(7)
STORE/'CPH',CPH
ELSE
JUMP/TT80:
ENDIF


TT80:
IFTHEN/CPW<>AA(8)
STORE/'CPW',CPW
ELSE
JUMP/TT90:
ENDIF


TT90:
IFTHEN/EJPH<>AA(9)
STORE/'EJPH',EJPH
ELSE
JUMP/TT100:
ENDIF

TT100:
IFTHEN/EPPH<>AA(10)
STORE/'EPPH',EPPH
ELSE
JUMP/STEP50:
ENDIF

STEP50:
STORE/'MACH',MACH
STORE/'L',L
STORE/'W',W
STORE/'APH',APH
STORE/'BPH',BPH
STORE/'FCPH',FCPH
STORE/'HOTH',HOTH
STORE/'CPH',CPH
STORE/'CPW',CPW
STORE/'EJPH',EJPH
STORE/'EPPH',EPPH
JUMP/TRM:


TRM:
HALT