[编程申请]：画弹簧的程序

redapple

请问各位高手：
怎样开发一个画弹簧的程序，三维空间，弹簧的半径向上逐渐缩小成锥形！
THANKS！

lijiao

MDT或INVENTOR上都有，并且参数化驱动。

redapple

对，要求是参数化驱动。还请您说明白一点，在哪里有程序？谢谢1

lijiao

你现在从事的是什么专业？

redapple

我是帮一个朋友问的，他是学建筑规划的

first

可以到网上找个画旋转楼梯的lisp学习学习会对你有帮助

redapple

最好可以下载，急用！

ahlzl

最初由 redapple 发布
[B]最好可以下载，急用！ [/B]

我写的VBA程序。

2. [font=courier]
   
3. Sub Example_Add3DPoly()
   
4. 
   
5. Dim polyObj As Acad3DPolyline
   
6. Dim points() As Double
   
7. Dim a, n As Integer
   
8. Dim R1, R2, H 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. H = ThisDrawing.Utility.GetDistance(pa, "请总高度：")
    
16. n = ThisDrawing.Utility.GetReal("请输入匝数:")
    
17. 
    
18. ReDim points(0 To 3 * 360 * n + 2) As Double
    
19. 
    
20. For a = 0 To 3 * 360 * n Step 3
    
21. points(a) = pa(0) + (R1 + (a / 3) * (R2 - R1) / 360 / n) _
    
22. * Cos(2 * PI * (a / 3) / 360)
    
23. points(a + 1) = pa(1) + (R1 + (a / 3) * (R2 - R1) / 360 / n) _
    
24. * Sin(2 * PI * (a / 3) / 360)
    
25. points(a + 2) = pa(2) + H * (a / 3) / 360 / n
    
26. Next
    
27. 
    
28. Set polyObj = ThisDrawing.ModelSpace.Add3DPoly(points)
    
29. ZoomExtents
    
30. End Sub
    
31. 
    
32. [/font]
    

[font=courier]<br /> Sub Example_Add3DPoly()<br /> <br /> Dim polyObj As Acad3DPolyline<br /> Dim points() As Double<br /> Dim a, n As Integer<br /> Dim R1, R2, H 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 /> H = ThisDrawing.Utility.GetDistance(pa, "请总高度：")<br /> n = ThisDrawing.Utility.GetReal("请输入匝数:")<br /> <br /> ReDim points(0 To 3 * 360 * n + 2) As Double<br /> <br /> For a = 0 To 3 * 360 * n Step 3<br /> points(a) = pa(0) + (R1 + (a / 3) * (R2 - R1) / 360 / n) _<br /> * Cos(2 * PI * (a / 3) / 360)<br /> points(a + 1) = pa(1) + (R1 + (a / 3) * (R2 - R1) / 360 / n) _<br /> * Sin(2 * PI * (a / 3) / 360)<br /> points(a + 2) = pa(2) + H * (a / 3) / 360 / n<br /> Next<br /> <br /> Set polyObj = ThisDrawing.ModelSpace.Add3DPoly(points)<br /> ZoomExtents<br /> End Sub<br /> <br /> [/font]<br />

附件是DVB文件，加载即可运行。

hblp

TO：AHLZL,加载即可运行——就是说放入support文件夹，用时输入命令Add3DPoly？对吗？

ahlzl

最初由 hblp 发布
[B]TO：AHLZL,加载即可运行——就是说放入support文件夹，用时输入命令Add3DPoly？对吗？ [/B]

不，是这样：

redapple

谢谢ahlzl!
XDCAD让我大开眼界，希望多多向你们学习！

hblp

谢谢ahlzl,学会了——虽是在2000的环境下，但一样加载vba,运行宏，实现目标。有机会来我这做客！

sanndy

计算机辅助设计光盘2002中有此程序

jin1170

怎么下载不了，是我的资金不够还是什么原因，能解释一下吗，我会继续努力的！