用渐开线精确画直齿圆柱齿轮的例子_源代码

xcb

这个例子里面包含几个子程序，子程序这两天放上来。

原帖地址：http://www.ugufun.com/?p=77

6 o3 M! ~& A' I1 v, [$ P6 q% ~3 b

$$ 定义参数：-----------------------------------------------------------------

NUMBER/RESP,R,RB,RA,RF,B,I,HA,HF,MAT(12),COL,CEN(3),P,FD,ZMIN
. S5 f2 l5 S# j7 w! tENTITY/RFC,SPLN1,SLL1,SL1,SPLN2,SLL2,SL2,LN1,ARCC,SOLIDZ,SOLID(200),CSYS0
STRING/DIR(50),FNAME(50),TEMP(100),COLO(10),JTYPES(10)

$$ ---------------------------------------------------------------------------
+ s( ~9 Q& U% d2 q" b' {  y$$ 取文件目录和文件名---------------------------------------------------------

DIR=&PSPEC $$ 取出文件目录
ANS=LENF(DIR)
. l7 X- G7 e) A/ C* `FNAME=SUBSTR(DIR,1,ANS-4,)+'.txt' $$ 取出文件名

$$ ---------------------------------------------------------------------------
; u6 K8 F% T7 Y# Y0 ]" s* W5 {$$ 默认值---------------------------------------------------------------------

M=2.5 $$ 模数
* r( J% s* v9 T( @7 ?% P- I- ^Z=20 $$ 齿数
A=20 $$ 压力角
' d7 X" |% S' G8 m  c. xTB=15 $$ 齿宽
0 K! Z6 g& d' |+ q1 YHAC=1 $$ 齿顶高系数
CC=0.25 $$ 顶隙系数
XX=0 $$ 变位系数

$$ ---------------------------------------------------------------------------
. u3 m, U* p+ N$$ 定义界面-------------------------------------------------------------------
/ h7 H! @4 H) [: t+ \2 Z2 FL10:
) m% i& _: @, q- \$ [/ m3 n* ?PARAM/'请输入渐开线直齿圆柱齿轮的各项基本参数:','模数',M,'齿数',INT,Z,$
'压力角',A,'齿宽',TB,'齿顶高系数',HAC,'齿侧间隙系数',CC,'变位系数',$
8 x& |0 F) i' o+ O. vXX,RESP
JUMP/L10:,TERM:,,,RESP

L20:
CHOOSE/'请选择齿轮键的形式:','平键','花键','无',RESP
JUMP/L10:,TERM:,,,L30:,L40:,L50:,RESP
- c$ l* K. X4 }* A& ZL30:
JTYPE=1
* s6 N( g3 s# T) O: t( m  h5 WJUMP/L60:
$ _. u% B9 ?! P9 W& L9 y7 JL40:
  N2 H+ C3 n3 x& g3 ]" EJTYPE=2
3 G8 U8 x0 I( T9 K5 f; h  h6 BJUMP/L60:
L50:
+ [* p# N) @) J/ Z4 d8 RJTYPE=0
L60:

$$ ---------------------------------------------------------------------------
$$ 基本几何参数计算-----------------------------------------------------------

PI=3.1415926 $$ 圆周率
R=M*Z/2 $$ 分度圆半径
RB=R*COSF(A) $$ 基圆半径
& B* x7 l; y. S( f# eHA=M*(HAC+XX) $$ 齿顶高
HF=M*(HAC+CC-XX) $$ 齿根高
RA=R+HA $$ 齿顶圆半径
RF=R-HF $$ 齿根圆半径
4 c0 f, w: _1 ?4 @7 rP=PI*M $$ 周节
/ |6 l; e2 `  r( {& k1 A' qPB=PI*M*COSF(A) $$ 基节
& ]" x# Z$ l4 `* o. pSS=PI*M/2+2*XX*M*SINF(A)/COSF(A) $$ 分度圆弧齿厚
: x) o4 J0 |5 b$ f4 AFD=HA+HF $$ 全齿高
9 T. ?$ \9 A- z( F, CZMIN=INTF(2*HAC/(SINF(A)*SINF(A)))+1 $$ 最小齿数
% O# R: A) O) IXMIN=HAC-Z*SINF(A)*SINF(A)/2 $$ 最小变位系数

$$ ---------------------------------------------------------------------------
$$ 画出齿轮-------------------------------------------------------------------

CALL/'SUB1',A,XX,M,R,RB,HA,HF,RA,RF,Z,RFC,SPLN1,SLL1,SL1,ARCC,SPLN2,SLL2,$
' D1 O1 H& {: M: E5 |' tSL2,LN1 $$ 调用渐开线子程序

SOLIDZ=SOLEXT/RFC,HEIGHT,TB,AXIS,0,0,1 $$ 拉伸齿根圆柱
SOLID(1)=SOLEXT/SPLN1,ARCC,SPLN2,SLL2,SL2,LN1,SL1,SLL1,HEIGHT,TB,AXIS,$
0,0,1 $$ 拉伸轮齿
2 v" e# o# t+ n  W7 ZMAT=MATRIX/XYROT,360/Z
# [/ \  I0 w* ]0 n) DI=1
  k# }, M; I) Z% WLLL:
IFTHEN/I<Z
SOLID(I+1)=TRANSF/MAT,SOLID(I) $$ 旋转拷贝轮齿
+ \3 Y" ~4 v9 D6 y% ZI=I+1
JUMP/LLL:
; N4 A& H& O' T7 RENDIF

$$ ---------------------------------------------------------------------------
3 J! B0 Y7 |, b/ d+ S6 ~$$ 画出键---------------------------------------------------------------------

IFTHEN/JTYPE==1
) Y) B9 C' [0 K4 S7 fCALL/'SUB5',TB,SOLIDZ $$ 调用平键子程序
" X2 u6 X) C# F9 _4 pELSEIF/JTYPE==2
" Y3 F1 D# j2 {3 e% M- WCALL/'SUB11',TB,SOLIDZ $$ 调用花键子程序
% x6 A& r. c4 G. Q3 v% [ELSE
ENDIF

$$ ---------------------------------------------------------------------------
$$ 建立齿轮信息文件-----------------------------------------------------------

COL=&COLOR(SOLIDZ) $$ 取出实体颜色
CSYS0=&WCS
&WCS=&ABS
2 s4 X) H6 Y( e; |+ j, Q7 e' RCEN=&CENTER(RFC) $$ 取出齿轮位置中心
&WCS=CSYS0

IFTHEN/JTYPE==0
, i, |( R2 [( O$ h8 r: c. y$ P1 `0 w& CJTYPES='无'
6 k3 j/ @% f0 E+ Y0 XELSEIF/JTYPE==1
JTYPES='平键'
ELSE
JTYPES='花键'
ENDIF

IFTHEN/COL==1
: |0 `1 v- k/ D' B( r, oCOLO='BLUE'
ELSEIF/COL==2
COLO='GREEN'
3 N* s9 A1 f4 g7 L  J( GELSEIF/COL==3
) k. a! e( g# h, ^, z& i, ~COLO='CYAN'
ELSEIF/COL==4
COLO='RED'
$ t) W1 ^) @6 l2 A5 ^ELSEIF/COL==5
COLO='MAGENT'
  h" h, Z/ \0 B8 v' AELSEIF/COL==6
# P6 e- R+ \7 O$ r& @COLO='YELLOW'
ELSEIF/COL==7
COLO='WHITE'
9 j# w! B/ T( V9 L0 q( m" ~5 gELSEIF/COL==8
COLO='OLIVE'
# M- k( w! A, Y5 p# rELSEIF/COL==9
# E8 y6 b- Z$ \% g5 dCOLO='PINK'
ELSEIF/COL==10
0 g/ R1 F6 I1 y/ f) Q! M3 vCOLO='BROWN'
- q) m9 M( [5 ?- @ELSEIF/COL==11
COLO='ORANGE'
$ Q: n& k5 b. L2 ~ELSEIF/COL==12
COLO='PURPLE'
  o0 D! i0 W1 k# B3 IELSEIF/COL==13
6 j1 e$ L+ B4 T: F0 \0 eCOLO='DKRED'
) c, O$ v2 n( X9 UELSEIF/COL==14
. O; E2 p+ r1 D% I9 ?. a- |: ]- E- }COLO='AQUAMR'
# V2 I0 k% t5 Y/ c0 v7 k8 o  |ELSE
0 l- i3 l# n" l" ^" f0 h7 x/ \. `" uCOLO='GRAY'
ENDIF

FETCH/TXT,1,FNAME,IFERR,FL10:
  X5 w( M7 e: ^( g6 g+ bRESET/1
NUM1=1
( d4 _/ ?" ?! `+ g, y, EFL40:
READ/1,IFEND,FL20:,TEMP
  s. L. l1 _( N/ rIFTHEN/TEMP=='#END#'
NUM1=NUM1+1
& N, K- u7 `6 a9 O' e* }& a4 f2 eENDIF
+ B. k/ X+ j$ ?/ E3 u6 jJUMP/FL40:

FL10:
CREATE/TXT,1,FNAME
NUM1=1

FL20:
WRITE/1,'----------------------------------------------------------------- '
WRITE/1,'有问题，请到www.ugufun.com 上提问! '
WRITE/1,' '
. D/ y* C/ A% k4 f8 ]9 ~. P  jWRITE/1,'齿轮编号： ('+ISTR(NUM1)+') :'
WRITE/1,' '
! U9 k, z1 d+ iWRITE/1,' 齿轮形式 : '+'渐开线直齿圆柱齿轮'
1 ]/ j8 }: a& z, u% o: a! KWRITE/1,' 齿轮信息文件 : '+FNAME
WRITE/1,' 齿轮颜色 : '+COLO
WRITE/1,' 齿轮键的形式 : '+JTYPES
WRITE/1,' 齿轮中心坐标 ( X,Y,Z) : '
1 a( m4 |0 s0 [, k' RWRITE/1,' '+FSTR(CEN(1))+' ,'+FSTR(CEN(2))+$
; g: u0 K2 }: |. E) }' ,'+FSTR(CEN(3))
# N: e5 U1 @9 x! dWRITE/1,' '
, X8 l5 D. U7 U4 v2 M. TWRITE/1,' 齿轮几何参数 :'
" G( O$ y  q) n; Z* VWRITE/1,' 模数 : '+FSTR(M)
WRITE/1,' 齿数 : '+ISTR(Z)
WRITE/1,' 压力角 : '+FSTR(A)
WRITE/1,' 齿宽 : '+FSTR(TB)
WRITE/1,' 齿顶高系数 : '+FSTR(HAC)
WRITE/1,' 齿侧间隙系数 : '+FSTR(CC)
) ~7 e, Z/ `( H  U+ wWRITE/1,' 变位系数 : '+FSTR(XX)
WRITE/1,' '
6 C7 i# ~+ k& W$ {" s4 QWRITE/1,' 分度圆直径 : '+FSTR(2*R)
WRITE/1,' 基圆直径 : '+FSTR(2*RB)
# I, x) O  w. s0 C& ZWRITE/1,' 齿顶高 : '+FSTR(HA)
WRITE/1,' 齿根高 : '+FSTR(HF)
WRITE/1,' 齿顶圆直径 : '+FSTR(2*RA)
( J! m( b* O, d7 s4 U, @7 Z& n3 iWRITE/1,' 齿根圆直径 : '+FSTR(2*RF)
WRITE/1,' 周节 : '+FSTR(P)
WRITE/1,' 基节 : '+FSTR(PB)
& o+ u! X& F8 ]; G& ]% l6 K8 BWRITE/1,' 分度圆弧齿厚 : '+FSTR(SS)
WRITE/1,' 全齿高 : '+FSTR(FD)
WRITE/1,' 最小齿数 : '+ISTR(ZMIN)
WRITE/1,' 最小变位系数 : '+FSTR(XMIN)
WRITE/1,' '
# y1 S7 C# `( K  r7 O6 w) e8 DWRITE/1,'#END#'

FILE/TXT,1
RESET/1
2 B5 ~# ^" l! `" b% b4 RFPRINT/1 $$ 将齿轮信息显示在窗口上
* E' H4 G$ \) oFTERM/TXT,1

$$ ---------------------------------------------------------------------------
&WCS=CSYS0
3 H( f, N! c1 MTERM:
HALT
$$ 建模结束-------------------------------------------------------------------

3 ^( O9 j5 S4 W& @6 |