UG_OPEN_GRIP编程练习题.doc

UG OPEN GRIP编程练习题 1、阅读并分析以下GRIP源程序，若点构造器确定点为(2,4,0)，参数输入时依次输入10，8，2，1，请画出本程序的运行结果。 ENTITY/pt(6),ln(6),flt l10: GPOS/Define a point :,x, y, z ,resp jump/l10:, hal:, , , ,resp l20: PARAM/Enter parameters ,ylength, Ly,$ xlength,Lx,width , W, fillet radius, R, resp jump/l20:,hal:,,resp pt(2)=POINT/x,(y+Ly) pt(3)=POINT/(x+Lx),y pt(4)=POINT/(x+W), (y+Ly) pt(5)=POINT/(x+Lx),(y+W) pt(6)=POINT/(x+W),(y+W) ln(1)=LINE/(pt(1)=POINT/x,y),pt(2) ln(2)=LINE/pt(2),pt(4) ln(3)=LINE/pt(4),pt(6) ln(4)=LINE/pt(6),pt(5) ln(5)=LINE/pt(5),pt(3) ln(6)=LINE/pt(3),pt(1) l30: flt=FILLET/XLARGE,ln(3),YLARGE, ln(4), radius,R flt=FILLET/XLARGE,ln(1),YLARGE, ln(6), radius,R DELETE/pt(1..6) hal: HALT 2、仔细阅读下面的GRIP源程序，指出并更正错误。要求：不得删行！ ENTITY/ln(4),pt(4),txt1,suf1 NUMBER/x,y,z pt(1)=POINT/0,0 pt(2)=POINT/3,0 pt(3)=POINT/3,2 pt(4)=POINT/0,2 ln(1)=LINE/pt(1),pt(2) ln(2)=LINE/pt(2),pt(3) ln(3)=LINE/pt(3),pt(4) ln(4)=LINE/pt(4),pt(1) suf1=RLDSRF/ln(2),pt(2),ln(4),pt(1) l10 PARAM/ X,x,Y,y,Z,z,rsp $$在屏幕上指定一点 JUMP/l10,hal:,,,,rsp pt1=POINT/x,y,z CRTWRT/Congratulations!,x,y,z, TXT1=NOTE/2,-2,VIEW A MASK/26 $$只有尺寸实体可选 DELETE/pt1,pt(1..4) HALT 3、仔细阅读下面的GRIP源程序，改正程序中的错误。要求：在题中程序中直接改正，不得删除任何一行程序。（10分） 1 ENTITY/cr(8),pt(2),pt1 2 NUMBER/ptv(3),mat(5,12) 3 DATA/d,8 4 l10 * Error no. 1 in line no. 4: Syntax error. 5 POS/Define a point,ptv(1),ptv(2),ptv(3),resp 6 JUMP/l10:,hal:,,,,resp 7 pt1=POINT/ptv(1),ptv(2),ptv(3) 8 l20: 9 PARAM/请输入参数,外圆直径,d 10 JUMP/l20:,hal:,,rsp 11 IFTHEN/d8 12 MESSG/直径不能太小 13 JUMP/l20: 14 cr(1)=CIRCLE/CENTER,pt1,RADIUS,d/2 15 cr(2)=CIRCLE/CENTER,(pt(1)=POINT/2,0),RADIUS,0.25 16 mat(1,1..12)=MATRIX/TRANSL,-1,0,0 17 mat(2,1..12)=MATRIX/XYROT,45 18 mat(3,1..12)=MATRIX/mat(1,1..12),mat(2,1..12) 19 cr(3)=TRANSF/mat(3,1..12),cr(2) 20 cr(4)=GROUP/cr(2..3) 21 mat(4,1..12)=MATRIX/XYROT,90 22 cr(5)=TRANS