泵人新手， 用VBA开发不熟悉 求高手帮忙修改下 ，希望可以从中提高

HS不属于平淡

Dim swApp As ObjectDim Part As Object

Dim boolstatus As Boolean

Dim longstatus As Long, longwarnings As Long

Dim r As Double

Dim afa As Double

Dim h As Double

Dim b As Double

Dim e As Double

Dim t As Double

Dim a As Double

Const pi = 3.14159265358979

Sub main()

r = 50

a = pi * r

h = 145

b = 145

afa = 60

tgb = a / b

e = (1 / 2 * a * -2 * r * r) / (h * (1 + Sin(afa)) - a * tgb - 2 * r * Cos(afa))

For t = 0 To 180

u = r * pi * t

X = r * Cos(t * 180)

Y = r * Sin(t)

Z = h - (e * tgb * (u - r * Sin(t)) + r * (e * Cos(afa) - r) * (1 - Cos(t)) + 1 / 2 * u * u) / (e * (1 + Sin(afa)))

Next t

Set swApp = Application.SldWorkS

Set Part = swApp.ActiveDoc

Part.SketchManager.Insert3DSketch True

End Sub

贡愉婉

你不懂程序基本结构，现改编一下看看。
此为宏程序
Dim swApp As Object
Dim Part As Object
Dim boolstatus As Boolean
Dim longstatus As Long, longwarnings As Long
Dim r As Double
Dim afa As Double
Dim h As Double
Dim b As Double
Dim e As Double
Dim t As Double
Dim a As Double
Dim X, Y, Z, xold, yold, zold As Double
Const pi = 3.14159265358979
Sub main()
r = 50
a = pi * r
h = 145
b = 145
afa = 60
tgb = a / b
e = (1 / 2 * a * -2 * r * r) / (h * (1 + Sin(afa)) - a * tgb - 2 * r * Cos(afa))
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
Part.SketchManager.Insert3DSketch True
For t = 0 To 180
u = r * pi * t
X = r * Cos(t * 180)
Y = r * Sin(t)
Z = h - (e * tgb * (u - r * Sin(t)) + r * (e * Cos(afa) - r) * (1 - Cos(t)) + 1 / 2 * u * u) / (e * (1 + Sin(afa)))
If t >= 1 Then
Part.SketchManager.CreateLine xold / 1000, yold / 1000, zold / 1000, X / 1000, Y / 1000, Z / 1000
End If
xold = X: yold = Y: zold = Z
Next t
End Sub