[求助]：怎么画螺旋线

Joseflin

3Dspiral.lsp 可畫2D和3D渦線

lxch

2007中有画螺旋线的命令。

akui68

我用的是2004版本。1楼的图片看不着。

胡子8913

Sub Example_Add3DPoly()

Dim polyObj As Acad3DPolyline
Dim points() As Double
Dim a, n As Integer
Dim R1, R2, H As Double
Dim pa As Variant
Const PI = 3.1415926535

pa = ThisDrawing.Utility.GetPoint(, "请输入基点：")
R1 = ThisDrawing.Utility.GetDistance(pa, "请输入起点半径：")
R2 = ThisDrawing.Utility.GetDistance(pa, "请输入终点半径：")
H = ThisDrawing.Utility.GetDistance(pa, "请总高度：")
n = ThisDrawing.Utility.GetReal("请输入匝数:")

ReDim points(0 To 3 * 360 * n + 2) As Double

For a = 0 To 3 * 360 * n Step 3
points(a) = pa(0) + (R1 + (a / 3) * (R2 - R1) / 360 / n) _
* Cos(2 * PI * (a / 3) / 360)
points(a + 1) = pa(1) + (R1 + (a / 3) * (R2 - R1) / 360 / n) _
* Sin(2 * PI * (a / 3) / 360)
points(a + 2) = pa(2) + H * (a / 3) / 360 / n
Next

Set polyObj = ThisDrawing.ModelSpace.Add3DPoly(points)
ZoomExtents
End Sub