原创力文档- 1、本文档共5页，可阅读全部内容。
- 2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
- 3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。
查看更多
UG_OPEN_GRIP编程练习题
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
文档评论（0）