跪求一个已知参数圆柱直齿轮的GRIP代码

jndx刘刚 · 发表于 2011-10-9 09:36

已知模数m=2, 齿数z=9，压力角=20，齿宽=10，怎样用GRIP画出齿轮呢，自己刚接触，编了半天也没成，好心人帮个忙啊，感激不尽！

jndx刘刚 · 发表于 2011-10-9 09:53

大侠们帮帮忙啊

1113824550 · 发表于 2011-10-10 17:36

我发过一次【圆柱直齿轮源代码】有动画演示的
网址 http://www.gripwhy.com/read.php?tid=1244

UG二次开发毕设 · 发表于 2012-1-2 16:24

我有很多二次开发代码，请加扣扣详聊

1113824550 · 发表于 2012-1-5 13:01

我这个做直齿轮还行螺旋角不是很准
什么是变位系数什么是顶高系数不知道所以没弄？

entity/ps1(3631),obj(99),ol(6),box(2000),pp(99),ln(99),jjp(3)
NUMBER/mat1(12),mat2(12),mat3(12),mat4(12),mat5(12),mat6(12)
NUMBER/NUM1(3),NUM2(3),NUM3(3),NUM4(3),NUM5(3),NUM6(3)
STRING/hyjmcs(100),CSWJ(100)

$$ 取参数文件位置
CSWJ='C:\MeiLei_UG_WG\MeiLei_UG_WG\INI\CL1.ini'
$$ 取参数
FETCH/TXT,1,CSWJ,IFERR,ZBDCS:
RESET/1
READ/1,m
READ/1,z
READ/1,a
READ/1,la
READ/1,r
READ/1,h
FTERM/TXT,1

JUMP/MLM:
ZBDCS:
m=4             $$ 模数
z=24          $$ 齿数
a=20          $$ 压力角
la=5          $$ 螺旋角
r=1             $$ 齿根R角
h=20          $$ 齿轮厚度

JUMP/MLM:
MLM:

$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$                      其它代码内容                      $$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

L10:
param/'梅雷提示！请输入渐开线参数...',$
   '模数',m,$
   '齿数',z,$
   '压力角',a,$
   '螺旋角(-45_+45)',la,$
   '齿根R角',R,$
   '齿轮厚度(h>0)',h,resp
jump/L10:,end:,,,resp

m=absf(m)
z=absf(z)
a=absf(a)
z=INTF(z)

IF/z>150,JUMP/A1:
IF/m==0,JUMP/A2:
IF/z==0,JUMP/A3:
IF/a==0,JUMP/A4:
IF/la>45,JUMP/A5:
IF/la<-45,JUMP/A5:

pi=3.14159265
da=m*(z+2)
db=m*z*cosf(a)
df=m*(z-2.5)

nnn=z*20                $$ 精确度控制越大越精确

aarr=h*sinf(la)          $$ 螺旋角参数

L20:
   GPOS/'梅雷提示！请选择点位...',XAA,YAA,ZAA,resp
   JUMP/L10:,END:,,,resp

$$ 还原坐标前条件
ol(1)=LINE/0,0,0,1,0,0
ol(2)=LINE/0,0,0,0,1,0
ol(3)= CSYS/ol(1),ol(2)

$$ 移动坐标原点
ol(4)=LINE/XAA,YAA,ZAA,XAA+1,YAA,ZAA
ol(5)=LINE/XAA,YAA,ZAA,XAA,YAA+1,ZAA
ol(6)= CSYS/ol(4),ol(5)
&WCS=ol(6)

$$ 创建渐开线
i=0
str1:
i=i+1
t=(i-1)/nnn
q=90*t
s=pi*db*t/4
xt=db*cosf(q)/2+s*sinf(q)
yt=db*sinf(q)/2-s*cosf(q)
zt=0
ps1(i)=point/xt,yt,zt
if/t<1,jump/str1:

ln(3)=spline/ps1(1..i)    $$ 创建样条近似渐开线

d=m*z       $$ 分度圆直径
da=m*(z+2) $$ 齿顶圆直径
df=m*(z-2.5)  $$ 齿根圆直径

pp(1)=POINT/0,0,0 $$ 创建圆心点
ln(1)=CIRCLE/CENTER,pp(1),RADIUS,df/2 $$ 齿根圆
ln(99)=CIRCLE/CENTER,pp(1),RADIUS,d/2 $$ 分度圆
ln(4)=CIRCLE/CENTER,pp(1),RADIUS,da/2 $$ 齿顶圆
obj(1)=CIRCLE/CENTER,pp(1),RADIUS,da/2 $$ 齿顶圆
pp(2)=POINT/ln(1),ATANGL,0             $$ 取圆0度角点
pp(3)=POINT/YLARGE,INTOF,ln(99),ln(3) $$ 取沿y方向最大的交点
ln(2)=LINE/ps1(1),pp(2)                $$ 创建线
ln(98)=LINE/pp(1),pp(3)                $$ 创建线
mat1=MATRIX/XYROT,-90/z                $$ 生成旋转矩阵  绕Z轴
ln(98)=TRANSF/mat1,ln(98),move          $$ 变换的实现移动型
mat2=MATRIX/MIRROR,ln(98)             $$ 生成镜像矩阵  绕直线
ln(5)=TRANSF/mat2,ln(3)                $$ 变换的实现复制型
ln(6)=TRANSF/mat2,ln(2)                $$ 变换的实现复制型

$$ 修剪曲线
ln(97)=CRVTRM/ln(1),REF,df,0,0,FIRST,ln(2),$
SECOND,ln(6),STATUS,pm1
ln(96)=CRVTRM/ln(4),REF,da,0,0,FIRST,ln(5),$
SECOND,ln(3),STATUS,pm2
pp(13)=POINT/YLARGE,INTOF,ln(4),ln(3) $$ 取沿y方向最大的交点
pp(12)=POINT/da/2+1,0,0                $$ 创建点
pp(11)=POINT/YLARGE,INTOF,ln(4),ln(5) $$ 取沿y方向最大的交点
$$ 删除对象
delete/ps1,ln(98..99),ln(4)
ln(4)=CIRCLE/pp(11..13)                $$ 过三点画圆
delete/pp

mat3=MATRIX/TRANSL,0,0,h                $$ 生成平移矩阵
mat4=MATRIX/XYROT,aarr                $$ 生成旋转矩阵  绕Z轴

$$ 变换的实现复制型
ln(11)=TRANSF/mat3,ln(1)
ln(12)=TRANSF/mat3,ln(2)
ln(13)=TRANSF/mat3,ln(3)
ln(14)=TRANSF/mat3,ln(4)
ln(15)=TRANSF/mat3,ln(5)
ln(16)=TRANSF/mat3,ln(6)
obj(2)=TRANSF/mat3,obj(1)
$$ 变换的实现移动型
ln(11)=TRANSF/mat4,ln(11),move
ln(12)=TRANSF/mat4,ln(12),move
ln(13)=TRANSF/mat4,ln(13),move
ln(14)=TRANSF/mat4,ln(14),move
ln(15)=TRANSF/mat4,ln(15),move
ln(16)=TRANSF/mat4,ln(16),move

$$ 直纹
obj(3)=RLDSRF/obj(1),,obj(2)
ln(21)=RLDSRF/ln(1),,ln(11)
ln(22)=RLDSRF/ln(2),,ln(12)
ln(23)=RLDSRF/ln(3),,ln(13)
ln(24)=RLDSRF/ln(4),,ln(14)
ln(25)=RLDSRF/ln(5),,ln(15)
ln(26)=RLDSRF/ln(6),,ln(16)
$$ 有界平面
ln(27)=BPLANE/ln(1..6)
ln(28)=BPLANE/ln(11..16)
$$
$$ 一个反齿
$$
box(1)=SEW/ln(21..28)
$$ 提取坐标
NUM1=CPOSF(ln(2),1)
NUM2=CPOSF(ln(6),1)
NUM3=CPOSF(ln(12),1)
NUM4=CPOSF(ln(16),1)
$$ 创建点
pp(71)=POINT/NUM1
pp(72)=POINT/NUM2
pp(73)=POINT/NUM3
pp(74)=POINT/NUM4
$$ 创建线
ln(51)=LINE/pp(71),pp(73)
ln(52)=LINE/pp(72),pp(74)
$$ 提取坐标
NUM5=CPOSF(ln(51),0.5)
NUM6=CPOSF(ln(52),0.5)
pp(51)=POINT/NUM5
pp(52)=POINT/NUM6
$$ 倒圆角
BLEND/box(1),RADIUS,R,pp(51)
BLEND/box(1),RADIUS,R,pp(52)
$$
$$ 创建齿轮
$$
mat5=MATRIX/XYROT,360/z             $$ 生成旋转矩阵  绕Z轴
DO/LO2:,i,2,z
box(i)=TRANSF/mat5,box(i-1)          $$ 变换的实现复制型
LO2:
$$ 实体相减
jjp(1)=SUBTRA/obj(3),WITH,box(1..i)
mat6=MATRIX/XYROT,360                $$ 生成旋转矩阵  绕Z轴
jjp(2)=TRANSF/mat6,jjp(1)             $$ 变换的实现复制型
delete/pp,jjp(1),ln,obj
&WCS=ol(3)  $$ 还原坐标
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$
$$                      其它代码内容                      $$
$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

$$ 删除文件
$$ 新建文件写入
FDEL/CSWJ,IFERR,WJYSC:
WJYSC:
CREATE/TXT,1,CSWJ
WRITE/1,m
WRITE/1,z
WRITE/1,a
WRITE/1,la
WRITE/1,r
WRITE/1,h
WRITE/1,1
WRITE/1,1
WRITE/1,1
WRITE/1,1
FILE/TXT,1
FTERM/TXT,1

END:
RPAINT    $$ 刷新界面
HALT

A1:
messg/'梅雷提示！【齿数≤150】...'
JUMP/L10:

A2:
messg/'梅雷提示！【齿数必须>0】...'
JUMP/L10:

A3:
messg/'梅雷提示！【模数必须>0】...'
JUMP/L10:

A4:
messg/'梅雷提示！【压力角必须>0】...'
JUMP/L10:

A5:
messg/'梅雷提示！【45≥螺旋角≥-45】...'
JUMP/L10:

BQ_BDY:
PRINT/'关于此外挂所有权归制作者梅雷'
PRINT/'为经本人允许！不得将此外挂进行盗用、倒卖！'
JUMP/END:

wjlvhy · 发表于 2013-5-18 20:21

1113824550 发表于 2012-1-5 13:01
: W; U# E/ I; @# A% N8 Y我这个做直齿轮还行螺旋角不是很准* I2 B! R. Y) C
什么是变位系数什么是顶高系数不知道所以没弄？

麻烦请问一下，grip里面的rpaint命令是刷新的显示部件的界面还是其他的什么？谢谢

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

[疑难] 跪求一个已知参数圆柱直齿轮的GRIP代码