GRIP快速注释

wangcongwei1002

发个快速注释的源文件

源码如下：



STRING/ZS1(132),ZS2(132),ZS3(132),ZS4(132),ZS5(132)
STRING/ZS6(132),ZS7(132),ZS8(132),ZS9(132),ZS10(132)
ENTITY/LAB
NUMBER/n
STR:
IFTHEN/&ACTPRT==1
  MESSG/'请新建或打开一个部件后重试!'
   JUMP/END:
ENDIF
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
FETCH/TXT,2,'*:\****\config.ini',IFERR,LER1:   $$定义配置文件
RESET/2
READ/2,LINNO,10,ZS1
READ/2,LINNO,20,ZS2
READ/2,LINNO,30,ZS3
READ/2,LINNO,40,ZS4
READ/2,LINNO,50,ZS5
READ/2,LINNO,60,ZS6
READ/2,LINNO,70,ZS7
READ/2,LINNO,80,ZS8
READ/2,LINNO,90,ZS9
READ/2,LINNO,100,ZS10
JUMP/L01:
LER1:
MESSG/'配置文件未找到!'
JUMP/END:
L01:
   CHOOSE/'选择一个操作...',$
   '有指引线',$
   '无指引线',$
   '用户自定义文本',DEFLT,1,RESP
   JUMP/L01:,END:,,,L10:,LA10:,LA11:,RESP
L10:
   CHOOSE/'选择要插入的文本...',$
    ZS1,$
    ZS2,$
    ZS3,$
    ZS4,$
    ZS5,$
    ZS6,$
    ZS7,$
    ZS8,$
    ZS9,$
    ZS10,DEFLT,1,RESP
   JUMP/L01:,END:,,,L20:,L30:,L40:,L50:,L60:,$
L70:,L80:,L90:,L100:,L110:,RESP
LA10:
   CHOOSE/'选择要插入的文本...',$
    ZS1,$
    ZS2,$
    ZS3,$
    ZS4,$
    ZS5,$
    ZS6,$
    ZS7,$
    ZS8,$
    ZS9,$
    ZS10,DEFLT,1,RESP
   JUMP/L01:,END:,,,LA20:,LA30:,LA40:,LA50:,LA60:,$
LA70:,LA80:,LA90:,LA100:,LA110:,RESP
LA11:
XSPAWN/'*:\****\config.bat',IFERR,LER1:  $$定义批处理打开配置文件
  JUMP/END:
L20:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS1
   JUMP/L10:
L30:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS2
   JUMP/L10:
L40:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS3
   JUMP/L10:
L50:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS4
   JUMP/L10:
L60:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS5
   JUMP/L10:
L70:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS6
   JUMP/L10:
L80:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS7
   JUMP/L10:
L90:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS8
   JUMP/L10:
L100:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS9
   JUMP/L10:
L110:
   GPOS/'指定箭头指引位置...',x0,y0,z0,RESP
   JUMP/L10:,END:,,,RESP
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   IF/x0<x,&LEADER=&LEFT
   IF/x0>x,&LEADER=&RIGHT
   LAB=LABEL/x,y,x0,y0,ZS10
   JUMP/L10:

LA20:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS1
   JUMP/LA10:
LA30:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS2
   JUMP/LA10:
LA40:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS3
   JUMP/LA10:
LA50:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS4
   JUMP/LA10:
LA60:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS5
   JUMP/LA10:
LA70:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS6
   JUMP/LA10:
LA80:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS7
   JUMP/LA10:
LA90:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS8
   JUMP/LA10:
LA100:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS9
   JUMP/LA10:
LA110:
   GPOS/'指定文本放置位置...',x,y,z,RESP
   JUMP/L10:,END:,,,RESP
   NOTE/x,y,ZS10
   JUMP/LA10:
END:
HALT