GRIP开发实例之文字属性NOTE标记的应用-UG二次开发

nxopen 11年前 3525 4

购买与咨询 NX 二次开发视频教程，请联系微信号：13890821008 QQ号：85585969

在GRIP开发时，时常用到NOTE标记，用来标识某个位置的参数或说明，下面是一个简单的标记某点Z值高度的GRIP源代码，如果你用到了类似的功能，可以直接拿去编译就可以了

代码如下：

ENTITY/pt,lb
NUMBER/mat(12)

IFTHEN/&ACTPRT == 1 $$检测当然UG是否有打开一个部件
MESSG/'请打开一个部件!'
JUMP/end:
ENDIF

mask/2
&csize=4
&ensite=5
&WCS=&ABS

L01:
gpos/'UGapi.com提醒：选择坐标零点',x,y,z,rsp
jump/L01:,end:,,rsp

pt=POINT/x,y,z

n=&decpl
&decpl=2

ifthen/x<=0
$$lb=label/right,x-20,y-10,x,y,'X='+fstr(X),'Y='+fstr

(Y),'Z='+fstr(Z)
lb=label/right,x-20,y-10,x,y,'Z='+fstr(Z)
else
$$lb=label/left,x+20,y-10,x,y,'X='+fstr(X),'Y='+fstr

(Y),'Z='+fstr(Z)
lb=label/left,x+20,y-10,x,y,'Z='+fstr(Z)
endif

&DECPL=n
mat(1..12)=matrix/transl,0,0,z
lb=transf/mat,lb,move

JUMP/L01:
END:
HALT

最新回复 (4)

请登录后发表新帖