非圆齿轮二次开发

lijun1226

画齿廓，为什么最高点不在齿顶高那里。感觉不对。大家能看看我的程序吗？Dim i As Integer
ReDim x0(18)
ReDim y0(18)

Dim k0 As Integer
+ q+ G0 @9 r- y$ d: R+ |* n3 ^ReDim p0(18)
, m+ W9 O; ]* \" Z5 w% d$ `ReDim q0(18)
, z/ _$ c8 R. h) v
2 i5 a8 C) W, ?! S* g: ~Dim h0 As Integer
ReDim p00(18)
ReDim q00(18)


u = Sqr((Da / Db) ^ 2 - 1)
g = u / 14
4 C% j5 w* T$ g" S* ?
# M+ t1 b& r* L9 h; n4 T; z
xx = 0.5 * Da * Sin(Tan(f) - f)
yy = 0.5 * Da * Cos(Tan(f) - f)
% Z% A0 R* R- S$ S


4 J$ A+ a9 ]2 Z# _4 }
s = pi * m / 2
inva = Tan(a) - a
sb = Cos(a) * (s + m * z * inva)
! g: O* ^- t3 f; ^4 P, [) }4 a' zj = 2 * sb / Db
: T& Z* m+ X- f' h; C- F
t = 0
/ }. ]5 L( E6 R; `
4 P) R* k0 o& XFor i = 1 To 14

If t <= u Then
. B+ S7 {2 e, y% `; p2 d
x0(i) = 0.5 * Db * Sin(t) - Db / 2 * t * Cos(t)
y0(i) = 0.5 * Db * Cos(t) + Db / 2 * t * Sin(t)

# B; x9 {1 ^/ U( Np00(i) = -0.5 * Db * Sin(t) + 0.5 * Db * t * Cos(t)
* S/ |9 v' a9 \1 d# z) Xq00(i) = 0.5 * Db * Cos(t) + 0.5 * Db * t * Sin(t)

) A2 r" P4 T6 E+ ^) y3 \# St = t + g

p0(i) = p00(i) * Cos(j) + q00(i) * Sin(j)
+ t1 i5 _- l2 ?0 lq0(i) = -p00(i) * Sin(j) + q00(i) * Cos(j)
End If
& v5 o6 R- h" E7 h1 A' DNext i

& o; A( ~4 S/ PPart.SetPickMode
3 J9 J4 y! M" U. [xx = 0
0 T. {! B( ?) z( T- G. uyy = 0.5 * Df
' C; x; O; [, P: HXx1 = xx * Cos(j) + yy * Sin(j)
Yy1 = xx * Sin(j) + yy * Cos(j)
6 F' F2 K$ a" e  a
p000 = -0.5 * Db * Sin(0) + 0.5 * Db * 0 * Cos(0)
1 S8 V, b6 z+ S, U" Q$ `" f; Oq000 = 0.5 * Db * Cos(0) + 0.5 * Db * 0 * Sin(0)
2 J2 D! [; `1 m$ X7 J

% n( X' T7 {8 ^4 C
Part.SketchSpline 13, 0.001 * x0(1), 0.001 * y0(1), 0
/ v9 @& I! b8 w) n& W( m6 H% p  m; PPart.SketchSpline 12, 0.001 * x0(2), 0.001 * y0(2), 0
Part.SketchSpline 11, 0.001 * x0(3), 0.001 * y0(3), 0
Part.SketchSpline 10, 0.001 * x0(4), 0.001 * y0(4), 0
Part.SketchSpline 9, 0.001 * x0(5), 0.001 * y0(5), 0
* G" _4 j* x+ w1 i& IPart.SketchSpline 8, 0.001 * x0(6), 0.001 * y0(6), 0
" V& H! z7 a  A5 c* wPart.SketchSpline 7, 0.001 * x0(7), 0.001 * y0(7), 0
: b7 X! r) Y# [! W! A6 ?% _
Part.SketchSpline 6, 0.001 * x0(8), 0.001 * y0(8), 0
Part.SketchSpline 5, 0.001 * x0(9), 0.001 * y0(9), 0
Part.SketchSpline 4, 0.001 * x0(10), 0.001 * y0(10), 0
Part.SketchSpline 3, 0.001 * x0(11), 0.001 * y0(11), 0
* b3 r' v: H3 UPart.SketchSpline 2, 0.001 * x0(12), 0.001 * y0(12), 0
1 @; W8 ^/ F( j$ ?" g2 kPart.SketchSpline 1, 0.001 * x0(13), 0.001 * y0(13), 0
Part.SketchSpline 0, 0.001 * x0(14), 0.001 * y0(14), 0

. X8 k+ U6 `9 i1 Z9 B  n, @
Part.SketchSpline 13, 0.001 * p0(1), 0.001 * q0(1), 0
9 L+ T$ f6 T# {Part.SketchSpline 12, 0.001 * p0(2), 0.001 * q0(2), 0
Part.SketchSpline 11, 0.001 * p0(3), 0.001 * q0(3), 0
  q# M  k% f6 XPart.SketchSpline 10, 0.001 * p0(4), 0.001 * q0(4), 0
Part.SketchSpline 9, 0.001 * p0(5), 0.001 * q0(5), 0
Part.SketchSpline 8, 0.001 * p0(6), 0.001 * q0(6), 0
2 G* b8 W9 P- E( o3 wPart.SketchSpline 7, 0.001 * p0(7), 0.001 * q0(7), 0
  k8 e, h- w2 M4 y
9 N2 o  z5 a+ ?Part.SketchSpline 6, 0.001 * p0(8), 0.001 * q0(8), 0
" K5 M% I, Q" M2 d! iPart.SketchSpline 5, 0.001 * p0(9), 0.001 * q0(9), 0
Part.SketchSpline 4, 0.001 * p0(10), 0.001 * q0(10), 0
Part.SketchSpline 3, 0.001 * p0(11), 0.001 * q0(11), 0
Part.SketchSpline 2, 0.001 * p0(12), 0.001 * q0(12), 0
Part.SketchSpline 1, 0.001 * p0(13), 0.001 * q0(13), 0
$ _+ t# W& W3 ]0 y1 m6 H1 b' U2 F* qPart.SketchSpline 0, 0.001 * p0(14), 0.001 * q0(14), 0

+ L) o0 B/ I6 U. m* T. \: u+ z

George_W4TBo

是solidworks的二开吗，真费劲哥都比较摈弃，这是最近做的一个单边连续，单边步进机构的其中一对非圆齿轮，在家里所以图不多，有空再更新，欢迎交流