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

---

$$齿轮建模代码开始

NUMBER/n,i,k,a,f,c,p,q(100),mat1(12),mat2(12),mat3(12)
ENTITY/pt1,pt(100),sp1(200),sp2(200),cir1(200),$
cir2(200),ln,pt2,fe(3),cl1,csys(2),cir3,ln1,ln2
DATA/n,0,i,0,k,0,a,20,f,1,c,0.25,p,3.141592654
begin:
PARAM/'please input gear parameters',$
'模数(M)=',m,'齿数(Z)=',z,'压力角(A)=',a,'齿顶高系数(F)=',f,'齿隙系数(C)=',c,$
'变位系数(X)=',g,'齿厚(B)=',b,resp
IF/resp==1,JUMP/begin:
IF/resp<>3,JUMP/end:
ax=ACOSF(z*COSF(a)/(z+2*g))
kb=INTF(ax/180*z+0.5+0.5)
qb1=SINF(a)/COSF(a)-a*p/180
e=(kb-0.5)*p+z*qb1
w=m*COSF(a)*e+2*g*m*SINF(a)
PARAM/'DO you want change co-normalline? ',$
'公法线长度=',w,'测量夸齿数=',kb,resp
g=(w-m*COSF(a)*e)/2/m/SINF(a)
u2:CHOOSE/'Do you want gear center hole?',$
'YES','NO',resp
IF/resp==1,JUMP/begin:
IF/resp==2,JUMP/end:
IF/resp==5,JUMP/ll1:
IF/resp==6,JUMP/ll2:

JUMP/l4:
ss1:fe(3)=SOLEXT/cir1(1..i),cir2(1..i),$
sp1(1..i),sp2(1..i),HEIGHT,b
BLANK/cir1(1..i),cir2(1..i),sp1(1..i),sp2(1..i)
DELETE/pt(50..52)
l4:IF/hp==1,JUMP/l2:
IF/hp<>1,JUMP/l3:
l2:cl1=SOLCYL/ORIGIN,xva1,yva1,zva1,HEIGHT,b,$
DIAMTR,d,AXIS,0,0,1
SUBTRA/fe(3),WITH,cl1
l3:
cir3=CIRCLE/CENTER,pt1,RADIUS,r
&FONT(cir3)=4
&DENS(cir3)=3
&WCS=csys(1)
DELETE/pt1,csys(1..2)

end:
HALT

$$代码结束，效果图如下图所示：