NC刀路平移外挂源代码，支持点对点平移，GRIP源代码，个人原创的，分享给大家

nx_ugs · 发表于 2011-7-3 14:54

NC刀路平移外挂源代码，支持点对点平移，GRIP源代码，个人原创的，分享给大家

以下是我们的源代码，拿去翻译下就可以用了.........

string/obj(100)
number/mat(12)
&MODULE = &MACH
nc:
xx=1
choose/'选择方式：',$
                        '=  NC 增量平移  =',$
                           '= NC点致点平移 =',$
                              '==功能说明==',resp
jump/L60:,end:,,,nc1:,nc2:,l60:,resp
nc1:
l10:
text/'输入要平移的刀路名称*输入刀路名称:',obj,resp,deflt
jump/nc:,nc:,resp
l20:
param/'输入值','X方向平移值..',a,'Y方向平移值..',b,'Z方向平移值..',c,resp
jump/l10:,l10:,,,resp
l30:
choose/'选择状态','== 移动刀路 ==',$
                                             '== 复制刀路 ==',resp
jump/l20:,end:,,,l40:,l50:,resp
l40:
mat=matrix/transl,a,b,c
optran/mat(1..12),obj,move,iferr,l70:
jump/l30:

l50:
x=x+a
y=y+b
z=z+c
mat=matrix/transl,x,y,z
optran/mat(1..12),obj,copy,iferr,l70:
jump/l30:
nc2:
p10:
text/'刀路点对点连续复制*输入刀路名称:',obj,resp,deflt
jump/nc:,nc:,resp
p20:
xx=2
choose/'讯呈（QQ：26101372）提示：选择状态',$
                        '== 连续《复制》 ==',$
                        '== 连续《移动》 ==',$
                        '讯呈UG网视频',resp
jump/p10:,end:,,,p30:,p40:,L60:,resp
p30:
  p302:
gpos/'讯呈提示：选择参考点',x1,y1,z1,resp
jump/p20:,p20:,,resp
  p303:
gpos/'讯呈提示：选择目标点',x2,y2,z2,resp
jump/p20:,p20:,,resp
  p304:
a=x2-x1
b=y2-y1
c=z2-z1
mat=matrix/transl,a,b,c
optran/mat(1..12),obj,copy,iferr,p60:
jump/p303:
p40:
  p402:
gpos/'讯呈提示：选择参考点',x1,y1,z1,resp
jump/p20:,p20:,,resp
  p403:
gpos/'讯呈提示：选择目标点',x2,y2,z2,resp
jump/p20:,p20:,,resp
  p404:
a=x2-x1
b=y2-y1
c=z2-z1
mat=matrix/transl,a,b,c
optran/mat(1..12),obj,move,iferr,p60:
x1=x2
y1=y2
z1=z2
jump/p403:

p60:
messg/'讯呈提醒：你输入的刀路名称不存在，请重新输入!'
jump/p10:

L60:

if/xx==1,jump/nc:
if/xx==2,jump/p20:
l70:
messg/'没找到此刀路，请确保你输入的名称正确，重新输入'
jump/l10:
end:
HALT

nx_ugs · 发表于 2011-7-5 11:15

要顶呀，各位....................

yl.fu · 发表于 2011-7-5 12:06

不會搞啊不會搞啊不會搞啊

maohuaxing1999 · 发表于 2011-7-5 23:50

用UG做设计的！~不会NC!~先学了再说！~
期待关于结构设计方面的例子！~

wjw11221 · 发表于 2012-10-27 07:30

貌似不实用，要输刀路名称，等你输好了，我都能平移几十个了

		自动登录	找回密码
密码			注册

[原创] NC刀路平移外挂源代码，支持点对点平移，GRIP源代码，个人原创的，分享给大家

相关帖子