扫掠grip参数方程

hql2337194

求扫掠grip参数方程，T型延引导线扫掠出实体，非曲面的

hql2337194

1. NUMBER/m,z1,z2,d1,t,i $$模数=m,蜗杆头数=z1,蜗轮齿数=z2,分度圆直径=d1
   
2. entity/cyl,pt1,pt2,pt3,pt4,ln1,ln2,ln3,ln4,pt(5001),SPL,obj1,obj2,obj3,obj4
   9 y4 k7 C% O& m- A8 B- J! }( ?
3. $$ cy1为圆柱体,pt1..pt4为点，ln1..ln4为T型线，pt（5001）拟合点，spl为螺旋线
   5 X* z( v  g( u6 E. s. ?; v
4. data/ha,1,c,0.2 $$ ha为齿顶高系数，c为径向间隙
   
5. l10:
   $ z0 |: G8 Y9 M& x5 G; V9 U
6. PARAM/'阿基米德蜗杆','模数 m=',m,$
   ' r. Z5 y5 v6 G
7. '蜗杆头数 z1=',int,z1,$
   7 \! v5 E" ^& R" H# ^& b6 e
8. '蜗轮齿数z2=',int,z2,$
   
9. '分度圆直径d1=',d1,respond
   
10. JUMP/l10:,stop:,,respond
    * ~( B3 b- r. m' @. j9 x
11. r=atanf(m*z1/d1) $$ r为导程角
    
12. px=3.1416*m $$ px为齿距
    
13. da1=d1+2*ha*m $$ da1为齿顶圆
    1 h' Q& Q  r: b* L* {
14. df1=d1-2*(ha+c)*m $$ df1为齿根圆
    $ T* N) G+ g. ~' @5 M5 U2 e1 }& |
15. b1=2*m*sqrtf(z2+1) $$ b1为蜗杆齿宽（螺纹长度）
    * E# a* M5 Q% B8 K+ l- ]
16. n=INTF(b1/px)+2 $$ n=螺旋线圈数
    1 r3 [+ V, i$ ]3 l
17. cyl=solcyl/origin,0,0,px,height,b1,diamtr,da1,iferr,mark:
    
18. mark:
    
19. stop:
    
20. pt1=POINT/df1/2,0,px/4-(d1-df1)/2*sinf(20)/cosf(20)
    9 E8 W( W- U) L
21. pt2=POINT/df1/2,0,(d1-df1)/2*sinf(20)/cosf(20)-px/4
    
22. pt3=POINT/(da1+0.1)/2,0,px/4+(da1-d1+0.1)/2*sinf(20)/cosf(20)
    ' b1 X! M! g( C# ]
23. pt4=POINT/(da1+0.1)/2,0,(d1-da1-0.1)/2*sinf(20)/cosf(20)-px/4
    * Q- A7 b. L+ {; i, X( @
24. ln1=LINE/pt1,pt2
    
25. ln2=LINE/pt3,pt4
    
26. ln3=LINE/pt1,pt3
    , W0 [( s2 N0 V
27. ln4=LINE/pt2,pt4
    
28. i=0
    - S# p" i6 ]/ v1 e3 x8 J, G
29. str1:
    # |% D. s6 X7 S: o1 z/ O, O% E! ~
30. i=i+1 $$取i个拟合点
    
31. t=(i-1)/5000 $$ t取0~1
    
32. xc=cosf(360*n*t)*d1/2
    
33. yc=sinf(360*n*t)*d1/2
    ; z+ L2 o- u6 I: Y1 O
34. zc=t*px*n
    ; K; e4 s, `0 Z! G! Y
35. pt(i)=point/xc,yc,zc
    ; Q  ?' i/ E. O+ K+ M
36. if/t<1,jump/str1:
    7 o, V( d* f1 X$ |# E% Z
37. 
    
38. blank/pt(1..i)
    ( c2 N3 j. W; u; G7 {) c, B
39. 
    
40. SPL=spline/pt(1..i)
    1 f$ S3 Y) l+ f
41. 
    - Z7 L" M5 h& p. Z8 W3 e
42. $$生成B-曲面。
    
43. 
    
44. obj1=bsurf/swpsrf,tracrv,SPL,gencrv,ln1[,ORIENT∣,zc∣]
    
45. obj2=bsurf/swpsrf,tracrv,SPL,gencrv,ln2[,ORIENT∣,zc∣]
    ; U1 n, L' U1 e" n- W- y
46. obj3=bsurf/swpsrf,tracrv,SPL,gencrv,ln3[,ORIENT∣,zc∣]
    ( D1 }9 G" ?- s% p. n! n
47. obj4=bsurf/swpsrf,tracrv,SPL,gencrv,ln4[,ORIENT∣,zc∣]
    / T2 Y$ t6 ]8 u" X& I5 P
48. $$程序结束。
    ! P/ U! @3 E$ v- t, f+ \' }% o
49. trm:
    
50. halt
    

复制代码

找到了扫掠函数，但还是不怎么会用，我做的是蜗杆的扫掠，哪位大侠帮我看看问题在哪啊？