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

xcb

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

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

9 b7 n7 I% k# i9 L6 u" H

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

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

$$ ---------------------------------------------------------------------------
$$ 取文件目录和文件名---------------------------------------------------------

DIR=&PSPEC $$ 取出文件目录
; K3 y' ?: z: P0 E  Q& R0 NANS=LENF(DIR)
2 U/ I/ ?' A* d9 Q1 J1 N+ u# uFNAME=SUBSTR(DIR,1,ANS-4,)+'.txt' $$ 取出文件名

$$ ---------------------------------------------------------------------------
$$ 默认值---------------------------------------------------------------------

M=2.5 $$ 模数
Z=20 $$ 齿数
2 ~8 E( ^0 r) `  i1 pA=20 $$ 压力角
% h7 ^- N- t7 Y- J- Y  \5 mTB=15 $$ 齿宽
HAC=1 $$ 齿顶高系数
0 U1 z6 M3 t2 SCC=0.25 $$ 顶隙系数
3 S+ p; o3 {5 r' s$ C5 P: AXX=0 $$ 变位系数

$$ ---------------------------------------------------------------------------
$$ 定义界面-------------------------------------------------------------------
) q% b$ b) I# l7 h7 XL10:
  Z- H+ |" @1 S" G# ]( a& F! _PARAM/'请输入渐开线直齿圆柱齿轮的各项基本参数:','模数',M,'齿数',INT,Z,$
" Z4 i( @+ z1 H7 w* x: c5 r'压力角',A,'齿宽',TB,'齿顶高系数',HAC,'齿侧间隙系数',CC,'变位系数',$
$ y% {  c. M" T0 V1 hXX,RESP
JUMP/L10:,TERM:,,,RESP

L20:
$ h. q( V' R+ o% o( D  nCHOOSE/'请选择齿轮键的形式:','平键','花键','无',RESP
JUMP/L10:,TERM:,,,L30:,L40:,L50:,RESP
L30:
1 R& P2 j8 V  U% X, rJTYPE=1
JUMP/L60:
L40:
JTYPE=2
JUMP/L60:
+ b& j  e& t5 ?4 a7 J5 N( aL50:
6 W! q9 v* Z/ q) \0 TJTYPE=0
L60:

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

PI=3.1415926 $$ 圆周率
R=M*Z/2 $$ 分度圆半径
1 g' m4 K9 G, s& _RB=R*COSF(A) $$ 基圆半径
- \1 ?' F1 X8 y( x5 ^HA=M*(HAC+XX) $$ 齿顶高
$ E+ h0 z; V& J& n9 D, |HF=M*(HAC+CC-XX) $$ 齿根高
RA=R+HA $$ 齿顶圆半径
RF=R-HF $$ 齿根圆半径
! w+ i( {* a3 q: |P=PI*M $$ 周节
PB=PI*M*COSF(A) $$ 基节
- `: D3 f$ ?) YSS=PI*M/2+2*XX*M*SINF(A)/COSF(A) $$ 分度圆弧齿厚
FD=HA+HF $$ 全齿高
ZMIN=INTF(2*HAC/(SINF(A)*SINF(A)))+1 $$ 最小齿数
" J/ _' Z7 J; ~! O2 o; hXMIN=HAC-Z*SINF(A)*SINF(A)/2 $$ 最小变位系数

$$ ---------------------------------------------------------------------------
7 P& l) M7 ~7 V2 N2 y4 I0 T( ^$$ 画出齿轮-------------------------------------------------------------------

CALL/'SUB1',A,XX,M,R,RB,HA,HF,RA,RF,Z,RFC,SPLN1,SLL1,SL1,ARCC,SPLN2,SLL2,$
SL2,LN1 $$ 调用渐开线子程序

SOLIDZ=SOLEXT/RFC,HEIGHT,TB,AXIS,0,0,1 $$ 拉伸齿根圆柱
SOLID(1)=SOLEXT/SPLN1,ARCC,SPLN2,SLL2,SL2,LN1,SL1,SLL1,HEIGHT,TB,AXIS,$
, m- k, q* j/ W6 D7 Z0,0,1 $$ 拉伸轮齿
8 G1 s5 B; o/ z( vMAT=MATRIX/XYROT,360/Z
I=1
% d& f& E4 T  N( Z( T# ^! H/ bLLL:
- ]& W, v) {; A# |IFTHEN/I<Z
# p, G' X( f5 L  A  D: [SOLID(I+1)=TRANSF/MAT,SOLID(I) $$ 旋转拷贝轮齿
" h7 u, U* B0 eI=I+1
( C  }; i  c: IJUMP/LLL:
ENDIF

$$ ---------------------------------------------------------------------------
$$ 画出键---------------------------------------------------------------------

IFTHEN/JTYPE==1
CALL/'SUB5',TB,SOLIDZ $$ 调用平键子程序
+ R& b5 A* B0 M1 dELSEIF/JTYPE==2
CALL/'SUB11',TB,SOLIDZ $$ 调用花键子程序
ELSE
# [1 l6 S7 n' g$ N6 z, w' I$ S2 uENDIF

$$ ---------------------------------------------------------------------------
4 P* H, Z3 T7 M4 ]$$ 建立齿轮信息文件-----------------------------------------------------------

COL=&COLOR(SOLIDZ) $$ 取出实体颜色
CSYS0=&WCS
  f9 `7 T9 n( L0 Y# v( @! F&WCS=&ABS
CEN=&CENTER(RFC) $$ 取出齿轮位置中心
&WCS=CSYS0

IFTHEN/JTYPE==0
4 m( ~/ e# Q. Z( W* XJTYPES='无'
ELSEIF/JTYPE==1
( N, W0 D* ~0 b( x$ PJTYPES='平键'
8 r  r+ O/ L, q. M) B% BELSE
JTYPES='花键'
# m( m- K% d. B! Z& GENDIF

IFTHEN/COL==1
  \' J( H0 n5 ~3 z+ ~, NCOLO='BLUE'
  L* q" Q0 K9 i4 p, g" ^1 B6 \7 @ELSEIF/COL==2
COLO='GREEN'
ELSEIF/COL==3
! F7 D8 T3 V7 k1 Z  n! s! d# ?COLO='CYAN'
ELSEIF/COL==4
COLO='RED'
ELSEIF/COL==5
5 M, x" k1 k4 ECOLO='MAGENT'
4 j$ P( h9 y5 v1 x5 }ELSEIF/COL==6
7 M1 l4 o/ s! p  N  W/ bCOLO='YELLOW'
) i6 N( w) l2 b$ e* S* l+ vELSEIF/COL==7
" y9 Z' d6 d) \1 sCOLO='WHITE'
ELSEIF/COL==8
COLO='OLIVE'
9 h9 K, U- X/ J) X! [+ T9 {7 wELSEIF/COL==9
) l" Z$ {% s' Z' i, R* ~COLO='PINK'
1 D0 j% M5 ]- G1 JELSEIF/COL==10
- S  f* b% d4 iCOLO='BROWN'
ELSEIF/COL==11
COLO='ORANGE'
* c/ J: V9 e% r- }% l, \. y. k/ PELSEIF/COL==12
COLO='PURPLE'
ELSEIF/COL==13
* K% u5 n9 Y4 R  Z& C" ^2 RCOLO='DKRED'
0 u7 p8 x  y, H; ]8 q$ zELSEIF/COL==14
COLO='AQUAMR'
ELSE
0 _0 r) i- |% vCOLO='GRAY'
ENDIF

FETCH/TXT,1,FNAME,IFERR,FL10:
. c" N( w9 O9 [8 k$ c/ p0 oRESET/1
NUM1=1
; W3 @: R/ S4 B7 B4 t' f+ F& u8 o. [6 KFL40:
READ/1,IFEND,FL20:,TEMP
  {: ?) \$ M8 qIFTHEN/TEMP=='#END#'
9 v0 {. q( J& zNUM1=NUM1+1
( L0 c: R9 c7 E, hENDIF
) q9 n" C* O. r% QJUMP/FL40:

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

FL20:
! l! {) H4 _7 n) l" F" z* @WRITE/1,'----------------------------------------------------------------- '
* `+ }' `7 d7 D% gWRITE/1,'有问题，请到www.ugufun.com 上提问! '
WRITE/1,' '
WRITE/1,'齿轮编号： ('+ISTR(NUM1)+') :'
% v1 f0 Q' q/ V" T; O: T' }% [( PWRITE/1,' '
; ?& R6 P7 [' C8 LWRITE/1,' 齿轮形式 : '+'渐开线直齿圆柱齿轮'
. \7 r- `: A" {- g0 f5 X; b9 Q' ^WRITE/1,' 齿轮信息文件 : '+FNAME
WRITE/1,' 齿轮颜色 : '+COLO
WRITE/1,' 齿轮键的形式 : '+JTYPES
WRITE/1,' 齿轮中心坐标 ( X,Y,Z) : '
( n9 [3 G8 _6 M7 uWRITE/1,' '+FSTR(CEN(1))+' ,'+FSTR(CEN(2))+$
' ,'+FSTR(CEN(3))
- r6 U8 y' n( a0 a7 U$ K5 xWRITE/1,' '
: a/ S; R9 D0 Q# z; _' iWRITE/1,' 齿轮几何参数 :'
$ S& s- T1 _* _+ ~" F& vWRITE/1,' 模数 : '+FSTR(M)
WRITE/1,' 齿数 : '+ISTR(Z)
WRITE/1,' 压力角 : '+FSTR(A)
WRITE/1,' 齿宽 : '+FSTR(TB)
WRITE/1,' 齿顶高系数 : '+FSTR(HAC)
WRITE/1,' 齿侧间隙系数 : '+FSTR(CC)
3 g# j0 V& b( V+ ^0 s3 YWRITE/1,' 变位系数 : '+FSTR(XX)
: D; Z9 S1 w3 N5 vWRITE/1,' '
WRITE/1,' 分度圆直径 : '+FSTR(2*R)
9 E, \  |& o7 ?  Y* Z1 |/ vWRITE/1,' 基圆直径 : '+FSTR(2*RB)
7 {8 E- b, R4 T5 |& p  OWRITE/1,' 齿顶高 : '+FSTR(HA)
8 U6 n' i, k1 fWRITE/1,' 齿根高 : '+FSTR(HF)
7 I5 q9 R; k* C2 w0 V+ e, O0 KWRITE/1,' 齿顶圆直径 : '+FSTR(2*RA)
3 ~' N& A' U, uWRITE/1,' 齿根圆直径 : '+FSTR(2*RF)
WRITE/1,' 周节 : '+FSTR(P)
WRITE/1,' 基节 : '+FSTR(PB)
WRITE/1,' 分度圆弧齿厚 : '+FSTR(SS)
WRITE/1,' 全齿高 : '+FSTR(FD)
) s: j- f7 @3 X% Y6 i: F0 }WRITE/1,' 最小齿数 : '+ISTR(ZMIN)
WRITE/1,' 最小变位系数 : '+FSTR(XMIN)
: @" z" `3 P  eWRITE/1,' '
) s3 q* x) Y. D$ mWRITE/1,'#END#'

FILE/TXT,1
RESET/1
5 J/ K5 T9 l8 n' b, NFPRINT/1 $$ 将齿轮信息显示在窗口上
FTERM/TXT,1

$$ ---------------------------------------------------------------------------
&WCS=CSYS0
  M! n* D( Z' O  t- z8 BTERM:
! C7 k3 w$ H& W% }' D: E" O9 FHALT
$$ 建模结束-------------------------------------------------------------------

4 _+ r9 [& T. o$ X9 S* ~7 k