[求助]：大家好,我这儿自编了一个凸轮绘制程序,当然是没有成功,想向各位高手指明我错

爱好者

2. 
   
3.   [FONT=courier new]
   
4. Option Explicit
   
5. 
   
6. Private Sub CommandButton1_Click()
   
7. UserForm1.Hide
   
8. Dim s, u, u1, u2, u3, u4, h, e, ro, rt, incrim, s0, beta0, beta, rou, ceta As Double
   
9. Dim i As Integer
   
10. Dim ptpnts() As Double
    
11. Dim pt As Variant
    
12. Dim bp As Variant
    
13. Dim circleobj As AcadCircle
    
14. Dim objpoly As AcadLWPolyline
    
15. Dim objline As AcadLine
    
16. Dim pt0 As Double
    
17. Dim firstpt As Double
    
18. 
    
19. Const pi = 3.1415926
    
20. u1 = Val(TextBox1.Text)
    
21. u2 = Val(TextBox2.Text)
    
22. u3 = Val(TextBox3.Text)
    
23. u4 = Val(TextBox4.Text)
    
24. h = Val(TextBox5.Text)
    
25. e = Val(TextBox6.Text)
    
26. ro = Val(TextBox7.Text)
    
27. rt = Val(TextBox8.Text)
    
28. incrim = Val(TextBox9.Text)
    
29. i = UserForm1.ComboBox1.ListIndex
    
30. 
    
31. bp = ThisDrawing.Utility.GetPoint(, "请输入凸轮基圆中心:")
    
32. 
    
33. 
    
34. Set circleobj = ThisDrawing.ModelSpace.AddCircle(bp, ro)
    
35. 
    
36. u = 0#
    
37. 
    
38. 
    
39. Do Until u <= 360#
    
40.    If u <= u1 Then
    
41.       Select Case i
    
42.          Case 0
    
43.            Call isovelocity_up
    
44.          Case 1
    
45.            Call isoacceleration_up
    
46.          Case 2
    
47.            Call libration_up
    
48.        End Select
    
49.       s0 = Sqr((ro ^ 2) - (e ^ 2))
    
50.       Print "aaaaa"
    
51.       beta0 = Atn(e / s0)
    
52.       beta = Atn(e / (s0 + s))
    
53.       rou = Sqr((s + s0) ^ 2 + e ^ 2)
    
54.       ceta = u * pi / 180# + beta - beta0
    
55.       pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)
    
56.    ElseIf u > u1 And u <= (u1 + u2) Then
    
57.       s = h
    
58.       s0 = Sqr(ro ^ 2 - e ^ 2)
    
59.       beta0 = Atn(e / s0)
    
60.       beta = Atn(e / (s0 + s))
    
61.       rou = Sqr((s + s0) ^ 2 + e ^ 2)
    
62.       ceta = u * pi / 180# + beta - beta0
    
63.       pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)
    
64.    ElseIf u > (u1 + u2) And u <= (u1 + u2 + u3) Then
    
65.         Select Case i
    
66.           Case 0
    
67.             Call isovelocity_down
    
68.           Case 1
    
69.             Call isoacceleration_down
    
70.           Case 2
    
71.             Call libration_down
    
72.          End Select
    
73.        s0 = Sqr(ro ^ 2 - e ^ 2)
    
74.        beta0 = Atn(e / s0)
    
75.        beta = Atn(e / (s0 + s))
    
76.        rou = Sqr((s + s0) ^ 2 + e ^ 2)
    
77.        ceta = u * pi / 180# + beta - beta0
    
78.        pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)
    
79.    ElseIf u > (u1 + u2 + u3) Then
    
80.        s = 0
    
81.        beta0 = Atn(e / s0)
    
82.        beta = Atn(e / (s0 + s))
    
83.        rou = Sqr((s + s0) ^ 2 + e ^ 2)
    
84.        ceta = u * pi / 180# + beta - beta0
    
85.        pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)
    
86.    End If
    
87.    
    
88. If (firstpt <> "") Then
    
89. 
    
90.    Set objline = ThisDrawing.ModelSpace.AddLine(pt0, pt)
    
91. ElseIf (firstpt = "") Then
    
92.    firstpt = pt
    
93. End If
    
94.   
    
95.   pt0 = pt
    
96. 
    
97.    u = u + incrim
    
98.    
    
99.    
    
100. Loop
     
101. End Sub
     
102. 
     
103. 
     
104. 
     
105. Private Sub UserForm_Initialize()
     
106. UserForm1.ComboBox1.AddItem "等速运动", 0
     
107. UserForm1.ComboBox1.AddItem "等加速和等减速运动", 1
     
108. UserForm1.ComboBox1.AddItem "简谐运动", 2
     
109. UserForm1.ComboBox1.AddItem "摆线运动", 3
     
110. UserForm1.ComboBox1.ListIndex = 0
     
111. UserForm1.TextBox1.SetFocus
     
112. End Sub
     
113. 
     
114. Public Sub isovelocity_up()
     
115. s = h * u / u1
     
116. End Sub
     
117. Public Sub isoacceleration_up()
     
118.   If u < ui / 2 Then
     
119.      s = 2 * h * u ^ 2 / u1 ^ 2
     
120.   Else
     
121.      s = h - 2 * h * ((u - u1) ^ 2) / (u1 ^ 2)
     
122.   End If
     
123. End Sub
     
124. Public Sub isovelocity_down()
     
125. s = h * (1 - u / u3)
     
126. End Sub
     
127. 
     
128. Public Sub isoacceleration_down()
     
129.   If u < u3 / 2 Then
     
130.      s = h - 2 * h * u62 / u3 ^ 2
     
131.   Else
     
132.      s = 2 * h * ((u - u3) ^ 2) / (u3 ^ 2)
     
133.   End If
     
134. End Sub
     
135. Public Sub libration_up()
     
136. s = h * (1 - Cos(pi * u / u1))
     
137. End Sub
     
138. Public Sub libration_down()
     
139. s = h * (1 + Cos(pi * u / u3)) / 2
     
140. End Sub
     
141.   [/FONT]
     

<br />   [FONT=courier new]<br /> Option Explicit<br /> <br /> Private Sub CommandButton1_Click()<br /> UserForm1.Hide<br /> Dim s, u, u1, u2, u3, u4, h, e, ro, rt, incrim, s0, beta0, beta, rou, ceta As Double<br /> Dim i As Integer<br /> Dim ptpnts() As Double<br /> Dim pt As Variant<br /> Dim bp As Variant<br /> Dim circleobj As AcadCircle<br /> Dim objpoly As AcadLWPolyline<br /> Dim objline As AcadLine<br /> Dim pt0 As Double<br /> Dim firstpt As Double<br /> <br /> Const pi = 3.1415926<br /> u1 = Val(TextBox1.Text)<br /> u2 = Val(TextBox2.Text)<br /> u3 = Val(TextBox3.Text)<br /> u4 = Val(TextBox4.Text)<br /> h = Val(TextBox5.Text)<br /> e = Val(TextBox6.Text)<br /> ro = Val(TextBox7.Text)<br /> rt = Val(TextBox8.Text)<br /> incrim = Val(TextBox9.Text)<br /> i = UserForm1.ComboBox1.ListIndex<br /> <br /> bp = ThisDrawing.Utility.GetPoint(, "请输入凸轮基圆中心:")<br /> <br /> <br /> Set circleobj = ThisDrawing.ModelSpace.AddCircle(bp, ro)<br /> <br /> u = 0#<br /> <br /> <br /> Do Until u <= 360#<br />    If u <= u1 Then<br />       Select Case i<br />          Case 0<br />            Call isovelocity_up<br />          Case 1<br />            Call isoacceleration_up<br />          Case 2<br />            Call libration_up<br />        End Select<br />       s0 = Sqr((ro ^ 2) - (e ^ 2))<br />       Print "aaaaa"<br />       beta0 = Atn(e / s0)<br />       beta = Atn(e / (s0 + s))<br />       rou = Sqr((s + s0) ^ 2 + e ^ 2)<br />       ceta = u * pi / 180# + beta - beta0<br />       pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)<br />    ElseIf u > u1 And u <= (u1 + u2) Then<br />       s = h<br />       s0 = Sqr(ro ^ 2 - e ^ 2)<br />       beta0 = Atn(e / s0)<br />       beta = Atn(e / (s0 + s))<br />       rou = Sqr((s + s0) ^ 2 + e ^ 2)<br />       ceta = u * pi / 180# + beta - beta0<br />       pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)<br />    ElseIf u > (u1 + u2) And u <= (u1 + u2 + u3) Then<br />         Select Case i<br />           Case 0<br />             Call isovelocity_down<br />           Case 1<br />             Call isoacceleration_down<br />           Case 2<br />             Call libration_down<br />          End Select<br />        s0 = Sqr(ro ^ 2 - e ^ 2)<br />        beta0 = Atn(e / s0)<br />        beta = Atn(e / (s0 + s))<br />        rou = Sqr((s + s0) ^ 2 + e ^ 2)<br />        ceta = u * pi / 180# + beta - beta0<br />        pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)<br />    ElseIf u > (u1 + u2 + u3) Then<br />        s = 0<br />        beta0 = Atn(e / s0)<br />        beta = Atn(e / (s0 + s))<br />        rou = Sqr((s + s0) ^ 2 + e ^ 2)<br />        ceta = u * pi / 180# + beta - beta0<br />        pt = ThisDrawing.Utility.PolarPoint(bp, ceta, rou)<br />    End If<br />    <br /> If (firstpt <> "") Then<br /> <br />    Set objline = ThisDrawing.ModelSpace.AddLine(pt0, pt)<br /> ElseIf (firstpt = "") Then<br />    firstpt = pt<br /> End If<br />   <br />   pt0 = pt<br /> <br />    u = u + incrim<br />    <br />    <br /> Loop<br /> End Sub<br /> <br /> <br /> <br /> Private Sub UserForm_Initialize()<br /> UserForm1.ComboBox1.AddItem "等速运动", 0<br /> UserForm1.ComboBox1.AddItem "等加速和等减速运动", 1<br /> UserForm1.ComboBox1.AddItem "简谐运动", 2<br /> UserForm1.ComboBox1.AddItem "摆线运动", 3<br /> UserForm1.ComboBox1.ListIndex = 0<br /> UserForm1.TextBox1.SetFocus<br /> End Sub<br /> <br /> Public Sub isovelocity_up()<br /> s = h * u / u1<br /> End Sub<br /> Public Sub isoacceleration_up()<br />   If u < ui / 2 Then<br />      s = 2 * h * u ^ 2 / u1 ^ 2<br />   Else<br />      s = h - 2 * h * ((u - u1) ^ 2) / (u1 ^ 2)<br />   End If<br /> End Sub<br /> Public Sub isovelocity_down()<br /> s = h * (1 - u / u3)<br /> End Sub<br /> <br /> Public Sub isoacceleration_down()<br />   If u < u3 / 2 Then<br />      s = h - 2 * h * u62 / u3 ^ 2<br />   Else<br />      s = 2 * h * ((u - u3) ^ 2) / (u3 ^ 2)<br />   End If<br /> End Sub<br /> Public Sub libration_up()<br /> s = h * (1 - Cos(pi * u / u1))<br /> End Sub<br /> Public Sub libration_down()<br /> s = h * (1 + Cos(pi * u / u3)) / 2<br /> End Sub<br />   [/FONT]<br />

efan2000

最好说明一下设计原理，用到的方法，这样子别人才能明白你是怎么设计的。