UG/Open Grip简单介绍

ugii

1． 结构：

NUMBER/A,B,C,NUM1(10),NUM2(10)(10)

ENTITY/PN,LN,CR,SOLID,BS,P(100),L(10)

STRING/FNAME(50)

正文

HALT

2． 编写过程：

环境：Notepad

源程序：*.grs   编译文件：*.gri   链接文件（可执行文件）：*.grx

编译环境：Unigraphics V14.0 ----  ug Open GRIP

2 ---  编译         3 ---  链接           4 ---  更改路径

6 ---  改变结果输出形式（1 — 屏幕输出；3 --- 文件输出）

  M2 X" H$ z7 m

3． 注意点：

3.1         $$ ：是注释符；

3.2         编写的代码一行不得超过80个字符，可用$来进行换行，但$必须接在+-*/,符号下；

3.3         画图命令的一般格式：实体变量名=函数名/数字、变量名、操作符；

3.4         涉及系统的参数一般应用到的符号：&

3.5         定义的变量名不得超过6位，例NUMBER1和NUMBER2系统会认为是同一个变量；

3.6         函数传递的参数不得超过25个；

3.7         三角函数和反三角函数是对角度进行运算的；

3.8         一般数字型变量可以不必定义，系统对未定义的变量默认为数字型；

3.9         程序结束，必须用HALT结尾；函数结束，必须用RETURN结尾；

3.10      用单引号表示字符串；

3.11      一般程序用大写英文编写；

3.12      没有正切三角运算符；

3.13      主程序必须链接成*.grx，子程序只须编译成*.gri；

3.14      连续数组变量用 .. 表示，例PN=POINT/NUM(1..3)

$ F2 ^; {  |/ K

4． 运算符：

数学运算符：SQRTF ( )、LOGF ( )、ABSF ( )、INTF ( )、MODF ( )、MINF ( )、MAXF ( )、

SINF ( )、COSF ( )、ASINF ( )、ACOSF ( )、ATANF ( )；

逻辑运算符：= =、<>、<、>、<=、>=、NOT、AND、OR；

' h! I' O, k5 [+ a3 }

5． 命令组：

功能类	函数名	用途	函数名	用途
变量定义	NUMBER/	数字型	ENTITY/	实体型
	STRING/	字符串型
字符串操作	CHRSTR（）	转换ASCII码	FSTR（）	将浮点型转化为字符型
	SUBSTR（）	取字符	ISTR（）	将整型转化为字符型
	REPSTR（）	替换字符	LENF（）	返回字符个数
向量运算	DOTF（）	向量内积	VLENF（）	向量模
	SCALVF（）	向量数乘	UNITF（）	单位向量
其它操作符	DATE	日期	TIME	时间
	DATA/	数组赋值
二维功能	POINT/	点	LINE/	直线
	CIRCLE/	圆	ELLIPS/	椭圆
	FILLET/	倒圆	SPLINE/	多义线
	CRVTRM/	曲线剪切	PLANE/	平面
	CTRIM/	延伸
曲线功能	SECT/	截面线	SOLEDG/	实体边界线
	INTSEC/	曲面交线	ISOCRV/	曲面边界线
曲面功能	REVSRF/	旋转生成曲面	TABCYL/	拉伸生成曲面
	FILSRF/	曲面倒角	OFFSRF/	平移放大曲面
	CYLNDR/	圆柱曲面	BSURF/SWPSRF	Swept
	CONE/	圆台曲面	BSURF/CURVE	ThroUGh Curves
	SPHERE/	球面	BSURF/MESH	Through Curve Mesh
三维功能	SOLEXT/	拉伸生成实体	SOLREV/	旋转生成实体
	UNITE/	合并	SUBTRA/	相减
	INTERS/	相交	SOLBLK/	立方体
	SOLCYL/	圆柱	SOLCON/	圆锥
	SOLPRI/	棱体	SOLSPH/	球体
	SOLTOR/	圆环体	SEW/	缝合曲面
	SOLCUT/	切实体	BLEND/	实体倒角
编辑功能	MATRIX/TRANSL	平移矩阵	MATRIX/SCALE	缩放矩阵
	MATRIX/XYROT	旋转矩阵	MATRIX/MIRROR	镜象矩阵
	TRANSF/	编辑
坐标系	CSYS/	设置坐标系
界面功能	CHOOSE/	选择界面	PARAM/	参数界面
	GPOS/	坐标点界面	IDENT/	选择界面
	MESSG/	信息框	TEXT/	字符输入界面
参数查询	&PSPEC	取文件目录	&PNAME	取文件名
	&WCS	取当前坐标系	&ABS	取绝对坐标系
	&ENTCLR	定义实体颜色	&BGCLR	取背景颜色
	&POINT	取点坐标	&LENGTH	取直线长
	&CENTER	取圆心坐标	&SPOINT	取直线起点坐标
	&RADIUS	取圆半径	&EPOINT	取直线终点坐标
逻辑语句	IFTHEN/	判断语句	JUMP/	跳转语句
	DO/	循环语句	DELETE/	删除语句
函数功能	CALL/	调用函数	PROC/	子函数
文件功能	FDEL/	删除文件	FMOVE/	移动文件
	FCOPY/	拷贝文件	CRDIR/	建立子目录
	CREATE/	建立新文件	FETCH/	打开文件写
	FAPEND/	打开文件追加	RESET/	设置头指针
	READ/	读数据	WRITE/	写数据
	APPEND/	追加数据	FILE/	文件存盘
	FTERM/	关闭文件
其它功能	GROUP/	组合	UNGRP/	取消组合
	CHAIN/	链接实体组	MASK/	标记
	PRINT/	显示信息	FPRINT/	显示文件
结束语句	HALT	主程序结束	RETURN	子程序结束

- z3 i1 o4 _% X2 K  ]* D

6． 实例：

6.1 二维作图实例：

NUMBER/NUM(3)

ENTITY/PN(5),LN(4),CR(4),SPLN,FLT,PLN

  t  \  K. u% g* T+ t

DATA/NUM,2,2,2

PN(1)=POINT/0,0,0

PN(2)=POINT/1,1

LN(1)=LINE/0,0,0,1,1,1

LN(2)=LINE/1,1,2,2

LN(3)=LINE/PN(1..2)

LN(4)=LINE/PN(1),ATANGL,45

PN(3)=POINT/ENDOF,YLARGE,LN(3)

PN(4)=POINT/NUM(1..3)

PN(5)=POINT/INTOF,LN(1),LN(2)

0 {/ [' O) R( L7 Z( c

SPLN=SPLINE/PN(1..4)

CR(1)=CIRCLE/0,0,1

CR(2)=CIRCLE/CENTER,PN(1),RADIUS,1,$

START,0,END,90

CR(3)=CIRCLE/PN(1..3)

CR(4)=CIRCLE/CENTER,PN(1),PN(2)

: `) L0 Y% W- o/ R

FLT=FILLET/LN(1),LN(2),CENTER,PN(1),$

RADIUS,0.5,NOTRIM

CRVTRM/LN(1),REF,PN(1),FIRST,LN(2),INT,$

PN(2), NOTRIM,STATUS,STAT

CTRIM/LN(1),1,START

CTRIM/LN(1),-1,END

PLN=PLANE/XYPLAN

HALT

7 e4 {  g2 x, B1 X& q

6.2 三维作图实例：

ENTITY/SOLID(5),SOL(2)

SOLID(1)=SOLEXT/LN(1..4),HEIGHT,1,$

AXIS,0,0,1

SOLID(2)=SOLREV/LN(1..4),ORIGIN,0,0,0,$

ATANGL,360,AXIS,0,0,1

SOLID(3)=UNITE/SOLID(1),WITH,SOLID(2)

SOLID(4)=INTERS/SOLID(1),WITH,SOLID(2)

SOLID(5)=SUBTRA/SOLID(1),WITH,SOLID(2)

BLEND/SOLID(1),RADIUS,1,PN(1)

SOL=SOLCUT/SOLID(1),WITH,PLN,CNT,C

HALT

6.3 曲面作图实例：

ENTITY/BS(3),SOLID

BS(1)=BSURF/MESH,LN(1..2),WITH,LN(3..4)

BS(2)=BSURF/CURVE,LN(1..5),ENDOF,P(1..5)

BS(3)=BSURF/SWPSRF,TRACRV,LN(1),LN(2),$

GENCRV,OBJ

SOLID=SEW/BS(1..3)

HALT

) \; Y4 e9 j( L3 T/ y/ e4 x/ A

6.4 编辑作图实例：

NUMBER/MAT(12)

ENTITY/LNN,LN(5)

/ W1 y' o/ G6 }! {& ~' y) l' P

MAT=MATRIX/TRANSL,1,1,1

LN(2)=TRANSF/MAT,LN(1)

MAT=MATRIX/SCALE,2,1,1

LN(3)=TRANSF/MAT,LN(1)

MAT=MATRIX/XYROT,45

LN(4)=TRANSF/MAT,LN(1),MOVE

MAT=MATRIX/MIRROR,LNN

LN(5)=TRANSF/MAT,LN(1)

HALT

' Q& |" {$ p, i' X

6.5 编辑坐标系实例：

NUMBER/MAT(12)

ENTITY/CSYS(5)

&WCS=&ABS

CSYS(1)=&WCS

MAT=MATRIX/TRANSL,1,1,1

CSYS(2)=TRANSF/MAT,CSYS(1)

CSYS(3)=CSYS/LN(1),LN(2)

CSYS(4)=CSYS/CSYS(1),ORIGIN,PN(1)

CSYS(5)=CSYS/’TOP’

HALT

6.6 逻辑语句实例：

6.6.1 判断语句:

IFTHEN/A>NUM

TEMP=A

ELSEIF/B>NUM

TEMP=B

ELSE

TEMP=C

ENDIF

IFTHEN/A>B AND A>C

NUM=A

ENDIF

6.6.2 跳转语句:

L1:

A=A+1

JUMP/L1:

6.6.3 循环语句:

DO/L2:,I,1,10,2

A=A+1

L2:

6.7 界面操作实例：

6.7.1 选择界面:

NUMBER/RESP

L0:

CHOOSE/’Please choose options!’,’OPTION1’,$

’OPTION2’,RESP

JUMP/L0:,TERM:,,,L1:,L2:,RESP

L1:

NUM=1

JUMP/TERM:

L2:

NUM=2

TERM:

HALT

6.7.2 参数输入界面:

NUMBER/RESP

L0:

PARAM/’Input these values!’,’A’,NUMA,’B’,$

INT,NUMB,RESP

JUMP/L0:,TERM:,,,RESP

PN=POINT/NUMA,NUMB

TERM:

HALT

6.7.3 信息输出界面:

MESSG/’ERROR!’

3 `" H$ Z/ o) o, p! n: E' c

6.8 文件操作实例：

6.8.1 创建新文件写数据:

A=10

CREATE/TXT,1,’test.txt’

WRITE/1,A

FILE/TXT,1

FTERM/TXT,1

HALT

6.8.2 从文件中读数据:

FETCH/TXT,1,’test.txt’

RESET/1

READ/1,A

FTERM/TXT,1

HALT

' b8 [) T$ o5 a, i

6.9 显示信息实例：

PRINT/A,B,’10’,NUM(1..3)

FETCH/TXT,1,’test.txt’

RESET/1

FPRINT/1

FTERM/TXT,1

NOTE/0,0,0,’LINE1’

HALT

6.10 参数查询实例：

NUMBER/NUM(3)

STRING/STR1(10),STR2(10)

# `; T; Y: y" K7 N+ j) I9 ~

STR1=&PSPEC

STR2=&PNAME

&ENTCLR=&BLUE

NUM=&POINT(PN)

HALT

3 B+ f  U7 E' C; E) v

6.11 其它实例：

ENTITY/GRO

GRO=GROUP/PN(1..5),LN,CR,COLID

UNGRP/GRO

DELETE/PN(1..5)

" g8 r1 U5 P& M

努力活着

我是UG爱好者，看了LZ的帖子，我只想说一句楼上的贴很好！UG论坛好强大！

龙卷风了1

学习ug二次开发

kiery809

学习中，正在寻找

dhdfsjnsdnjsns

做为一名UG爱好者，看帖看完了至少要顶一下，还可以加入到淘帖哦！

nam1503

百度一下，你就知道

1174155761

戏男

这可是个好东东呀 学习了

陈晨_fKoKx

6666666666666666666666666666666666666666666

lewlew123

我是UG爱好者，看了LZ的帖子，我只想说一句楼上的贴很好！UG论坛好强大！