如何画阿基米德螺旋线

fstanxc

简单地说，阿基米德螺旋线就“等距螺旋线”

cym880512

Sub main()
Set swApp = Application.SldWorks
    Set Part = swApp.NewPart
    Set Part = swApp.ActiveDoc
    tMax = 0.4
    tMin = 0
    tStep = 0.05
    n = Int((tMax - tMin) / tStep)

For t = tMin To tMax Step tStep
        r = 0.007064397 * (1 + t)
        x = r * Cos(t * 360)
        y = r * Sin(t * 360)
        z = 0
Part.SketchSpline n, x, y, z

n = n - 1

Next t


End Sub