[讨论]：怎么样画下面的螺旋线！

舍我其谁

请问一下怎么样才能画出标准的螺旋线呀！
这是我在3d里面导出来的

cdhua001

这个问题长不大的版主最会画这种图。
除了编程绘制，好像还可以通过EXCEL绘制。

另：我顺便将你的图改了一下，便于大家浏览。

舍我其谁

好的，谢谢！
呵呵 ，是吗！那就快请我们的斑竹来指点下咯！

ahlzl

用这个程序试试：

2. 
   
3. Sub pmlxx()
   
4. 
   
5. Dim polyObj As AcadLWPolyline
   
6. Dim points() As Double
   
7. Dim a, n As Integer
   
8. Dim R1, R2 As Double
   
9. Dim pa As Variant
   
10. Const PI = 3.1415926535
    
11. 
    
12. pa = ThisDrawing.Utility.GetPoint(, "请输入基点：")
    
13. R1 = ThisDrawing.Utility.GetDistance(pa, "请输入起点半径：")
    
14. R2 = ThisDrawing.Utility.GetDistance(pa, "请输入终点半径：")
    
15. n = ThisDrawing.Utility.GetReal("请输入匝数:")
    
16. 
    
17. ReDim points(0 To 2 * 360 * n + 1) As Double
    
18. 
    
19. For a = 0 To 2 * 360 * n Step 2
    
20. points(a) = pa(0) + (R1 + (a / 2) * (R2 - R1) / 360 / n) _
    
21. * Cos(2 * PI * (a / 2) / 360)
    
22. points(a + 1) = pa(1) + (R1 + (a / 2) * (R2 - R1) / 360 / n) _
    
23. * Sin(2 * PI * (a / 2) / 360)
    
24. Next
    
25. 
    
26. Set polyObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
27. ZoomExtents
    
28. End Sub
    

<br /> Sub pmlxx()<br /> <br /> Dim polyObj As AcadLWPolyline<br /> Dim points() As Double<br /> Dim a, n As Integer<br /> Dim R1, R2 As Double<br /> Dim pa As Variant<br /> Const PI = 3.1415926535<br /> <br /> pa = ThisDrawing.Utility.GetPoint(, "请输入基点：")<br /> R1 = ThisDrawing.Utility.GetDistance(pa, "请输入起点半径：")<br /> R2 = ThisDrawing.Utility.GetDistance(pa, "请输入终点半径：")<br /> n = ThisDrawing.Utility.GetReal("请输入匝数:")<br /> <br /> ReDim points(0 To 2 * 360 * n + 1) As Double<br /> <br /> For a = 0 To 2 * 360 * n Step 2<br /> points(a) = pa(0) + (R1 + (a / 2) * (R2 - R1) / 360 / n) _<br /> * Cos(2 * PI * (a / 2) / 360)<br /> points(a + 1) = pa(1) + (R1 + (a / 2) * (R2 - R1) / 360 / n) _<br /> * Sin(2 * PI * (a / 2) / 360)<br /> Next<br /> <br /> Set polyObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br /> ZoomExtents<br /> End Sub<br />

程序使用方法见：http://www.xdcad.net/forum/showt ... d=317570#post317570   第10贴。

舍我其谁

呵呵
谢谢斑竹！解决了我的一打难题！老板要我画个螺旋式的跌水，这下很简单啦！
可是你的那个“ 三维螺旋线.”我下不了哟！斑竹能不能给发发个呀！
yyyanghua916@tom.com
谢谢啦！

abc129685

下了，用了，好好好！