青华模具培训学校

 找回密码
 注册

QQ登录

只需一步,快速开始

青华模具培训学院
查看: 1574|回复: 1

扫掠grip参数方程

[复制链接]
发表于 2010-4-24 23:45 | 显示全部楼层 |阅读模式
求扫掠grip参数方程,T型延引导线扫掠出实体,非曲面的
 楼主| 发表于 2010-4-27 21:38 | 显示全部楼层
  1. NUMBER/m,z1,z2,d1,t,i $$模数=m,蜗杆头数=z1,蜗轮齿数=z2,分度圆直径=d15 s* m& R% T9 A; P; d' N+ n
  2. entity/cyl,pt1,pt2,pt3,pt4,ln1,ln2,ln3,ln4,pt(5001),SPL,obj1,obj2,obj3,obj4% n0 k8 \! P6 S4 A; }
  3. $$ cy1为圆柱体,pt1..pt4为点,ln1..ln4为T型线,pt(5001)拟合点,spl为螺旋线
    8 W, g2 I: L3 g" Y- B$ p( v6 N4 i
  4. data/ha,1,c,0.2 $$ ha为齿顶高系数,c为径向间隙5 t1 c% i6 G* w* O, P% Z
  5. l10:
    . U9 \8 X, s2 K
  6. PARAM/'阿基米德蜗杆','模数 m=',m,$
    : [" A" |# Z- t5 F5 Y0 u7 l, R% i
  7. '蜗杆头数 z1=',int,z1,$
    8 v! a9 D& O, |4 G$ a7 |& S
  8. '蜗轮齿数z2=',int,z2,$
    3 r0 C8 K3 {: V* o1 A' Y  B2 }
  9. '分度圆直径d1=',d1,respond
    % U3 `4 n# ?( @) a9 u6 u
  10. JUMP/l10:,stop:,,respond, j6 [7 X; m6 z) U4 b4 s0 X! N$ O4 C
  11. r=atanf(m*z1/d1) $$ r为导程角
    - \& k  s) a2 x- t7 M9 b+ a; F
  12. px=3.1416*m $$ px为齿距
    1 t4 w7 d! o& q# }# v$ i
  13. da1=d1+2*ha*m $$ da1为齿顶圆4 K; J1 h, x  V- Q4 }) R; e
  14. df1=d1-2*(ha+c)*m $$ df1为齿根圆; |7 O) }# W6 T$ Z( t. u6 ?+ b
  15. b1=2*m*sqrtf(z2+1) $$ b1为蜗杆齿宽(螺纹长度)4 S( ]9 U  {9 T: y! B% n+ P
  16. n=INTF(b1/px)+2 $$ n=螺旋线圈数7 S5 }1 P! E) [7 G) ?
  17. cyl=solcyl/origin,0,0,px,height,b1,diamtr,da1,iferr,mark:/ B- i& m" |: H" V5 ?4 t" F& v
  18. mark:
    : w' D) y) b$ a5 c, J* n: x
  19. stop:5 K; s' L' ~1 s# q6 n
  20. pt1=POINT/df1/2,0,px/4-(d1-df1)/2*sinf(20)/cosf(20)
    & l& Y1 \( s3 K5 |0 a
  21. pt2=POINT/df1/2,0,(d1-df1)/2*sinf(20)/cosf(20)-px/4% N3 J5 Y, X9 }$ `
  22. pt3=POINT/(da1+0.1)/2,0,px/4+(da1-d1+0.1)/2*sinf(20)/cosf(20)/ C' Y3 g) M& _+ P7 o" \0 R# J
  23. pt4=POINT/(da1+0.1)/2,0,(d1-da1-0.1)/2*sinf(20)/cosf(20)-px/49 I, r1 ?, N+ ^7 w
  24. ln1=LINE/pt1,pt2) s7 ]4 U7 {6 \( s+ T5 {8 b* R% y
  25. ln2=LINE/pt3,pt4% _* ^: s# K, d
  26. ln3=LINE/pt1,pt3. U1 l" e" I# a! ^
  27. ln4=LINE/pt2,pt4
    2 p1 u- E, v# v4 [5 H
  28. i=0
    ) {: x% @- c- V) t4 s
  29. str1:
    - h! ?, m' K' U. }* s7 F8 Q  v2 O
  30. i=i+1 $$取i个拟合点
    - d0 K8 g4 F9 n. `* R5 G$ L
  31. t=(i-1)/5000 $$ t取0~1* p7 L8 k' q2 {6 f' ^3 \
  32. xc=cosf(360*n*t)*d1/21 A5 R& c9 W7 k
  33. yc=sinf(360*n*t)*d1/2
      b# b+ e6 S- y
  34. zc=t*px*n
    ) R7 S. H' z4 P+ @1 V
  35. pt(i)=point/xc,yc,zc
    ! Q9 k! E4 a  x7 r3 G. ^- h; R! \$ @
  36. if/t<1,jump/str1:
    1 `8 z0 Q$ P; J1 r2 C) i  D
  37. # B- W7 w+ y* B2 @, E+ Q' `  K
  38. blank/pt(1..i)
    ) m( h  V8 }4 X0 Y- Q2 z* \
  39. 7 H2 S2 b# o- U4 n
  40. SPL=spline/pt(1..i)
      j) I2 j" j# |

  41. + J* E  C1 V) Y, U1 s
  42. $$生成B-曲面。1 d( s9 T. l" s2 ?
  43. 9 m0 H/ K$ Y, E* Y* n0 G( W3 r" l1 O
  44. obj1=bsurf/swpsrf,tracrv,SPL,gencrv,ln1[,ORIENT∣,zc∣]
    ; |" x, W" Y  G; b
  45. obj2=bsurf/swpsrf,tracrv,SPL,gencrv,ln2[,ORIENT∣,zc∣]5 O+ U/ F+ b+ |' X3 J
  46. obj3=bsurf/swpsrf,tracrv,SPL,gencrv,ln3[,ORIENT∣,zc∣]! E3 S2 x0 \8 j) p" F0 w) R+ v/ w
  47. obj4=bsurf/swpsrf,tracrv,SPL,gencrv,ln4[,ORIENT∣,zc∣]
    . w- h2 E! O4 S. N. P# e$ S! f  h
  48. $$程序结束。2 }2 i1 q6 Z% p
  49. trm:- N+ h$ d' K- u4 d( D% e
  50. halt# r$ U. j" h) T2 v  V
复制代码
找到了扫掠函数,但还是不怎么会用,我做的是蜗杆的扫掠,哪位大侠帮我看看问题在哪啊?

扫掠函数

扫掠函数
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|关于我们|sitemap|小黑屋|Archiver|手机版|UG网-UG技术论坛-青华数控模具培训学校 ( 粤ICP备15108561号 )

GMT+8, 2025-4-26 12:42 , Processed in 0.630689 second(s), 28 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表