Helix with variable pitch

Hi
Does anybody know if it is possible to make a helix with variable pitch?

Kind regards

Klaus

 

everything is possible, but sometimes you need an add-in
(www.solidplus.com/mathsurf/ )
or just a macro :
'
****************************************************************************
**
' SW macro to do mathematically defined curves
' please have a look at http://www.solidplus.com/mathsurf/
' for an add-in that does surfaces the same way
' Copyright 2003, DynaBits sàrl Switzerland - www.dynabits.com
'
****************************************************************************
**

Public Const pi As Double = 3.14159265358979

Dim p() As Double
Sub main()
ReDim p(3000) ' 3x large enough...
Set swApp = Application.SldWorks
Set Part = swApp.ActiveDoc
r = 0.01 ' units are meters!
For u = 0 To 10 * pi Step pi / 8
p(i) = r * Cos(u)
p(i + 1) = r * Sin(u)
p(i + 2) = u * u / 1000 ' z : put your variable pitch here
i = i + 3
Next u
ReDim Preserve p(i - 1)
Part.Insert3DSketch
Part.CreateSpline (p)
Part.InsertSketch2 True
End Sub

 

Hi Philippe

Thanks for your reply. I cannot make it work, however. I guess I will
have to do it with several planes and helix'es.

Have a nice weekend

Klaus