iCAx开思网

标题: 用UG_GRIP的请进来,也欢迎其他人来讨论齿轮的画法. [打印本页]

作者: peter1024 时间: 2005-7-24 13:17
标题: 用UG_GRIP的请进来,也欢迎其他人来讨论齿轮的画法.
前一段时间在论坛里随便转一下发现有好多用UG的兄弟,在寻找齿轮模块.这个模块我也是只闻其声未见其真面目.所以建议我们写个做齿轮的程序出来.这里面有几点是渐开线方程,模数,齿数,压力角等一些参数.希望通过写这个程序能锻炼大家对命令的运用和解决问题的思路.不用GRIP的兄弟也可以提供个思路,也欢迎丢砖!

作者: pzytony 时间: 2005-7-24 13:57
顶

作者: cam-yp 时间: 2005-7-24 20:34
大家来发表意见。。。

作者: 深夜摔键盘 时间: 2005-7-24 22:07
呵呵，那用OPEN C API的兄弟，也一块来写一个吧。

peter兄给列列程序需求。

作者: liang64 时间: 2005-7-24 22:46
一次我都不行,二次还是你们来吧,我等

作者: peter1024 时间: 2005-7-25 11:54
我做的渐开线示例程序,方程很容易从下图中得到:
$$ PROGRAM: INVOLUTE.GRS
$$
$$ KEYWORDS:
$$
$$ ABSTRACT:
$$       CREATE A INVOLUTE
$$ RELEASE HISTORY:
$$
$$ REQUIRED SUBROUTINES: (NONE)
$$
$$ REQUIRED DATA/PART FILES: (NONE)
$$
$$ AUTHOR:  PETER1024
$$
$$ COMPANY:
$$
$$ SYSTEM TYPE: ALL
$$
$$ THEORY/VARIABLE USAGE:
$$

ENTITY/POINT1(361),SP1
NUMBER/V1,R1,A1,A2,X1,Y1

V1=0
R1=5  $$ DEFAULT REDIUS 5
A1=0 $$ DEFAULT START ANGLE EQUAL TO 0 DEGREE
A2=450  $$ DEFAULT END ANGLE EQUAL TO 450 DEGREE

JP1:

IFTHEN/A1==A2
JUMP/JP2:
ENDIF

X1=R1*COSF(A1)+&

I*R1*A1*SINF(A1)/180
Y1=R1*SINF(A1)-&

I*R1*A1*COSF(A1)/180


POINT1(V1+1)=POINT/X1,Y1
V1=V1+1
A1=A1+2
JUMP/JP1:

JP2:
SP1=BCURVE/POINT1(1..V1),DEGREE,3,IFERR,JEND:

JEND:
DELETE/POINT1(1..V1)
HALT

作者: peter1024 时间: 2005-7-25 11:57
图,XDJM继续

作者: niuzilianmeng 时间: 2005-7-25 14:29
对于PETER兄灵活的建模思想小弟真是佩服的五体投地，这一关键的步骤我认为是最麻烦的事情。画齿轮渐开线搞定了其他基本是小KS，不过繁琐的东西不少，什么齿顶、根圆，节圆，压力角，齿厚……一大箩筐公式，偶比较懒，放假没有带书回来，无能为力了，当个忠实的拉拉队好了，顶——是肯定要做的事了~~~~~~~~~~~

作者: niuzilianmeng 时间: 2005-7-26 09:24
顺便说下：寻找齿轮模块的兄弟多是为敷衍课程设计而来，本月20号就结束了。
希望没有泼PETER兄冷水

作者: peter1024 时间: 2005-7-26 09:41
其实我的本意就是让用GRIP的兄弟练练手,不会的也可以看个思路.同时做一个有用的程序,让大家来共享.本以为我把渐开线搞定,其他的兄弟可以继续,只是大家好象都不热心呀.对于齿轮的一些参数我也是不太清楚了,手头也没有现成的资料.希望有资料的兄弟贴一些上来.

作者: 深夜摔键盘 时间: 2005-7-26 13:42
peter兄不用急。我晚上给贴一些齿轮的资料吧。我快把齿轮那点东东还给老师了，还得复习一下。

作者: peter1024 时间: 2005-7-26 16:18
今天突发奇想,把此模块改为齿轮传动分析模块.
用户只要提供传动的力矩,变速比,传动精度以及设计使用寿命等.通过分析计算达到,齿轮建模,并给出分析结果.包括:
1.齿轮材料
2.模数
3.齿数
4.是否用斜齿轮
5.齿轮的表面粗糙度,及其适合的加工工艺.如:插齿,磨齿,滚齿,珩齿等.
   说穿了也没有什么,就是把尽可能多的工作交给电脑去做.相信这也是所有CAD系统所追求的.
**最重要一点,原代码开放,大家自由改动.
希望兄弟们继续,也希望对齿轮有研究的兄弟给点指导.

作者: 深夜摔键盘 时间: 2005-7-26 17:43

呵呵，一不小心就搞大了。GRIP做这些就力不从心了。

如果能有7，8个兄弟一起来就好了。

作者: peter1024 时间: 2005-7-28 12:52
做了一点,先看一下图片,有时间再继续.

作者: cam-yp 时间: 2005-7-28 19:51
别人写的

作者: 深夜摔键盘 时间: 2005-7-28 21:59
cam-yp 兄，运行出错，提示这个模块的许可证无效或未购买。我是D version的原因啊？

作者: 5111he 时间: 2005-7-29 05:49
请问一下,GRIP是个什么东西呀,在UG里怎么找啊,谢谢.

作者: peter1024 时间: 2005-7-29 07:53
$$ PROGRAM: GEAR.GRS
$$
$$ KEYWORDS

$$
$$ ABSTRACT:
$$       CREATE A GEAR
$$ RELEASE HISTORY:
$$
$$ REQUIRED SUBROUTINES: (NONE)
$$
$$ REQUIRED DATA/PART FILES: (NONE)
$$
$$ AUTHOR:  PETER1024
$$
$$ COMPANY:
$$
$$ SYSTEM TYPE: ALL
$$
$$ THEORY/VARIABLE USAGE:
$$
ENTITY/POINT1(361),SP1(200),SP2(200),$
       LN1(200),LN2(200),DC1(100),AC1(100),$
       LLR1(100),LRR1(100),HLR1(100),HRR1(100)
ENTITY/LN3,C1,C2,C3
NUMBER/R1,X1,Y1,D1,Z1,M1,D2,D3
NUMBER/MAT1(12),MAT2(12)
NUMBER/V1,V2,A1,A2,A3,A4,X2(4),Y2(4),$
       SA1(3),RESP1

Z1=20 $$ TOOTH NO
A3=20  $$ PRESS ANGLE 20
M1=2 $$ DEFAULT MODULE 2
PARAM/'PLEASE INPUT PARAMETER','NO OF TOOTH',Z1,$
     'MODULE',M1,'PRESS ANGLE',A3,RESP1

JUMP/JERR:,JERR:,,,RESP1

D1=M1*Z1 $$PITCH DIA
D2=D1+2*M1 $$ ADDENDUM DIA
D3=D1-2.5*M1 $$ DEDUNDUM DIA
R1=D1*COSF(A3)/2  $$ INVOLUTE DATUM CIRCLE DIA
A2=180*SQRTF(D2*D2/4-R1*R1)/&

I/R1
A4=180*SQRTF(D1*D1/4-R1*R1)/&

I/R1-A3

C1=CIRCLE/0,0,D1/2
C2=CIRCLE/0,0,D2/2
C3=CIRCLE/0,0,D3/2
&FONT(C1)=&CLINE
BLANK/C2,C3

V1=0
A1=0 $$ DEFAULT START ANGLE EQUAL TO 0 DEGREE

JP1:

IFTHEN/A1>A2
JUMP/JP2:
ENDIF

X1=R1*COSF(A1)+&

I*R1*A1*SINF(A1)/180
Y1=R1*SINF(A1)-&

I*R1*A1*COSF(A1)/180

POINT1(V1+1)=POINT/X1,Y1
V1=V1+1

IFTHEN/A2-A1<2 AND A2-A1>0 AND A2<>A1
A1=A2
JUMP/JP1:
ENDIF

A1=A1+2
JUMP/JP1:

JP2:
POINT1(360)=POINT/0,0,0

LN3=LINE/POINT1(360),ATANGL,(90/Z1+A4)
BLANK/LN3

SP1(1)=BCURVE/POINT1(1..V1),DEGREE,3,IFERR,JERR:
LN1(1)=LINE/D3/2,0,0,R1,0,0
MAT1=MATRIX/MIRROR,LN3
MAT2=MATRIX/XYROT,360/Z1
SP2(1)=TRANSF/MAT1,SP1(1)
LN2(1)=TRANSF/MAT1,LN1(1)
POINT1(359)=POINT/0,0
POINT1(358)=POINT/XSMALL,INTOF,LN2(1),C3
POINT1(357)=POINT/XLARGE,INTOF,SP1(1),C2
POINT1(356)=POINT/XLARGE,INTOF,SP2(1),C2
OBTAIN/POINT1(358),X2(1),Y2(1)
OBTAIN/POINT1(357),X2(2),Y2(2)
OBTAIN/POINT1(356),X2(3),Y2(3)
SA1(1)=ATANF(Y2(1)/X2(1))
SA1(2)=ATANF(Y2(2)/X2(2))
SA1(3)=ATANF(Y2(3)/X2(3))

DC1(1)=CIRCLE/CENTER,POINT1(359),RADIUS,D3/2$
       ,START,SA1(1),END,360/Z1
AC1(1)=CIRCLE/CENTER,POINT1(359),RADIUS,D2/2$
       ,START,SA1(2),END,SA1(3)
DELETE/POINT1(356..358)
POINT1(358)=POINT/D1/2+20,200
POINT1(357)=POINT/D1/2,0
POINT1(356)=POINT/XLARGE,INTOF,LN3,C1
POINT1(355)=POINT/D1/2+20,-200
LLR1(1)=FILLET/DC1(1),LN2(1),CENTER,POINT1(358),RADIUS,0.2*M1
HLR1(1)=FILLET/AC1(1),SP2(1),CENTER,POINT1(357),RADIUS,0.1*M1
HRR1(1)=FILLET/SP1(1),AC1(1),CENTER,POINT1(356),RADIUS,0.1*M1
LRR1(1)=TRANSF/MAT1,LLR1(1)
LN1(2)=TRANSF/MAT2,LN1(1)
DELETE/LN1(1)
LN1(1)=TRANSF/MAT1,LN2(1)
LRR1(2)=FILLET/LN1(2),DC1(1),CENTER,POINT1(357),RADIUS,0.2*M1
DELETE/LRR1(2)
V2=2
JP3:

IFTHEN/V2>Z1
JUMP/JEND:
ENDIF
DC1(V2)=TRANSF/MAT2,DC1(V2-1)
AC1(V2)=TRANSF/MAT2,AC1(V2-1)
LLR1(V2)=TRANSF/MAT2,LLR1(V2-1)
LRR1(V2)=TRANSF/MAT2,LRR1(V2-1)
HLR1(V2)=TRANSF/MAT2,HLR1(V2-1)
HRR1(V2)=TRANSF/MAT2,HRR1(V2-1)
SP1(V2)=TRANSF/MAT2,SP1(V2-1)
LN1(V2)=TRANSF/MAT2,LN1(V2-1)
SP2(V2)=TRANSF/MAT2,SP2(V2-1)
LN2(V2)=TRANSF/MAT2,LN2(V2-1)
V2=V2+1
JUMP/JP3:
JEND:
DELETE/POINT1(1..V1),POINT1(355..360)
DELETE/LN3,C2,C3
JERR:
HALT

初步可以用了，只是当齿根圆与渐开线基圆半径之差小于0.2模数时，有错。大家自己去改正吧。

作者: peter1024 时间: 2005-7-29 07:57
再来个图片。

作者: hdfwth 时间: 2005-7-29 08:38
毕业设计的时候搞过,现在忘光了.....

作者: peter1024 时间: 2005-7-29 12:54
to:17楼你还是去找本书来看看吧，三言两语也说不清楚。

作者: cam-yp 时间: 2005-7-29 15:11

深夜摔键盘 wrote:
cam-yp 兄，运行出错，提示这个模块的许可证无效或未购买。我是D version的原因啊？

我也有用这个程序,没有出现错误啊...
这和D版没有关系的
这个程序不是我写的,因此我也不清楚有什么BUG......抱歉!!

作者: peter1024 时间: 2005-7-29 17:18
需要用到资料的可以到键盘兄的帖子立下载。

作者: shi813 时间: 2005-7-31 16:56
顶一下

作者: cam-yp 时间: 2005-8-6 21:43

pzytony wrote:
顶

要你顶有个屁用啊！纯粹在这占用论坛资源！
想必你也就会‘顶’了，你也写个出来瞧瞧啊

你这样回贴真恶心

作者: wenmingren 时间: 2005-8-8 10:27
cam-yp wrote:

要你顶有个屁用啊！纯粹在这占用论坛资源！
想必你也就会‘顶’了，你也写个出来瞧瞧啊
你这样回贴真恶心

第一次上来，就看到这种字眼，呵呵 cam-yp兄，真是个火爆脾气的人啊，难道支持一下别人的工作，也有错吗？你在此发表一下污言秽语，难道不是浪费论坛资源吗？也许山外有人，人外有人，不要以为自己积分高一点，就认为自己不是人了！！有得罪之处，请原谅

cam-yp

作者: cam-yp 时间: 2005-8-8 16:39

wenmingren wrote:
cam-yp wrote:
  
  要你顶有个屁用啊！纯粹在这占用论坛资源！
  想必你也就会‘顶’了，你也写个出来瞧瞧啊
  你这样回贴真恶心
  
  第一次上来，就看到这种字眼，呵呵 cam-yp兄，真是个火爆脾气的人啊，难道支持一下别人的工作，也有错吗？你在此发表一下污言秽语，难道不是浪费论坛资源吗？也许

......

是他先攻击我的,我开发是不怎么会,但我开发好的东西都上传在这个论坛上面共享,我问键盘兄能不能用API开发个自动工艺单的持续,他却跑出来说我的要求恶心,什么意思嘛?我有没问他!人不犯我,我不犯人,毛主席说的!

作者: 喜欢echo 时间: 2006-12-18 20:57

作者: gao264 时间: 2006-12-19 12:32
别吵～～讨论技术！！

作者: aoci72681 时间: 2006-12-20 16:50
支持29楼
嗯单纯点.....技术讨论...

作者: 风一样的我 时间: 2007-1-25 19:25
顶！

作者: xiejie0904 时间: 2007-6-5 11:05
有没有教程阿？

作者: dengxiaojun 时间: 2007-6-30 20:16
各位同行，大家好，我现在遇到一个难题，希望知道的请赐教，为什么我的电脑一装上UG4.0时，电脑老是死机，有时都好难启动的。帮帮我吧，谢谢大家了！

作者: 亚平 时间: 2008-9-5 21:29
讨论怎么做齿轮啊

作者: caiyangbo2008 时间: 2009-2-18 19:17
标题: 求帮助
谁有ug齿轮画法的视屏啊，或者有UG齿轮模块的，发给我，谢谢了、、、、我的QQ邮箱547938658@QQ.COM

作者: 12345qaz 时间: 2009-8-5 11:30

jhhjjgjh

作者: 12345qaz 时间: 2009-8-5 11:38
< dfdd

作者: huangxlong 时间: 2009-8-12 11:31
初学的人，不要笑我！18楼朋友的编译通不过，下面是贴图，能帮我看看怎么回事吗？

本帖最后由 huangxlong 于 2009-8-12 11:33 编辑

作者: huangxlong 时间: 2009-8-12 11:32
[attach]949926[/attach]

欢迎光临 iCAx开思网 (https://www.icax.org/)