[求助]：如何画渐开线？

sarah1001

如何画渐开线？

ahlzl

你是不是要画数学中圆的渐开线，有什么具体要求，说仔细一点，用程序方法来画。

sarah1001

就是这个！请教斑主如果画的呢？

ahlzl

我写了个VBA小程序，代码如下：

2. 
   
3. Sub blx()
   
4. 
   
5. Dim jkxObj As AcadLWPolyline
   
6. 
   
7. Dim points() As Double
   
8. Dim a, n As Integer
   
9. Dim R As Double
   
10. Dim p As Variant
    
11. Const PI = 3.1415926535
    
12. 
    
13. p = ThisDrawing.Utility.GetPoint(, "请输入渐开线基圆圆心：")
    
14. R = ThisDrawing.Utility.GetDistance(p, "请渐开线基圆半径：")
    
15. n = ThisDrawing.Utility.GetReal("请输入渐开线周波数:")
    
16. 
    
17. ReDim points(0 To 2 * 360 * n + 1) As Double
    
18. For a = 0 To 2 * 360 * n Step 2
    
19. points(a) = p(0) + R * (Cos(a * PI / 360) + (a * PI / 360) * Sin(a * PI / 360))
    
20. points(a + 1) = p(1) + R * (Sin(a * PI / 360) - (a * PI / 360) * Cos(a * PI / 360))
    
21. Next
    
22. 
    
23. Set jkxObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
24. ZoomExtents
    
25. End Sub
    

<br /> Sub blx()<br /> <br /> Dim jkxObj As AcadLWPolyline<br /> <br /> Dim points() As Double<br /> Dim a, n As Integer<br /> Dim R As Double<br /> Dim p As Variant<br /> Const PI = 3.1415926535<br /> <br /> p = ThisDrawing.Utility.GetPoint(, "请输入渐开线基圆圆心：")<br /> R = ThisDrawing.Utility.GetDistance(p, "请渐开线基圆半径：")<br /> n = ThisDrawing.Utility.GetReal("请输入渐开线周波数:")<br /> <br /> ReDim points(0 To 2 * 360 * n + 1) As Double<br /> For a = 0 To 2 * 360 * n Step 2<br /> points(a) = p(0) + R * (Cos(a * PI / 360) + (a * PI / 360) * Sin(a * PI / 360))<br /> points(a + 1) = p(1) + R * (Sin(a * PI / 360) - (a * PI / 360) * Cos(a * PI / 360))<br /> Next<br /> <br /> Set jkxObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br /> ZoomExtents<br /> End Sub<br />

ahlzl

这个程序很可能不适合你，请告诉我你的要求（仔细点），我再修改。下面是程序的使用方法。

sarah1001

佩服！佩服！
可是，斑竹，我用的是CAD2000，而且是D版的，根本就没装上VBA，所以用不了：（
想画的渐开线是没什么要求的，任何圆大小。因为我从来没画成功过，所以想请教啦。
如果不是用VBA，那该怎么画呢？

ahlzl

D版的CAD2000也有VBA啊，注意要完全安装！（你可能是典型安装）
如果不用VBA或LISP的话，可用EXCEL来帮忙，可参考：
http://www.xdcad.net/forum/showthread.php?threadid=50866
http://www.xdcad.net/forum/showthread.php?threadid=50077

ygg

很好用，感谢斑竹提供。

￥夜悸孤枕￥

请教了 螺旋线和渐开线有何区别啊

北斗七星

螺旋线和渐开线有何区别??
两个不同的概念嘛，找一本数学书来看看

panhong1975

vba 如何编？

marcol

就用数学上的笨办法画啊，先画个正方形，然后从一个顶点开始画4分之一圆相接啊

zxdcad

我这用Lisp编了一个画渐开线的程序!!!!


(defun C:jkx ()
  (setq pi1 (/ pi 180))
  (setq po0 (getpoint " \n 请输入中心点:"))
  (if (= po0 nil)
    (setq po0 (list 0 0 0))
  )
  (SETQ d (GETREAL "\n 请输入分度圆直径:"))
  (if (= d nil)
    (setq d 100)
  )
  (setq step (getreal "\n 渐开线精细度(0<精细度<=10):"))
  (if (= step nil)
    (setq step 1)
  )
  (setq rd (/ d 2))
  (setq os (getver "osmode"))
  (setvar "osmode" 0)
  (command "UCS" "OR" po0)
  (command "CIRCLE" "0,0" rd)
  (SETQ R (* rd (COS (* PI1 20))))  ;标准齿轮分度圆的压力角为20度
  (SETQ ST 0)
  (SETQ STR (* PI1 ST))
  (SETQ X (* R (+ (COS STR) (* STR (SIN STR)))))
  (SETQ Y (* R (- (SIN STR) (* STR (COS STR)))))
  (SETQ XY (LIST X Y))
  (COMMAND "PLINE" XY)
  (SETQ ST (+ st step))
  (WHILE (<= ST 80)                        ;齿轮上的渐开线压力角不会超过80度
    (SETQ STR (* PI1 ST))
    (SETQ X (* R (+ (COS STR) (* STR (SIN STR)))))
    (SETQ Y (* R (- (SIN STR) (* STR (COS STR)))))
    (SETQ XY (LIST X Y))
    (COMMAND XY)
    (SETQ ST (+ st step))
  )
  (command "")
  (setvar "osmode" os)
  (command "UCS" "P")
)

fallingstar05

4楼滴C侠提供的东东很好用啊！支持一下！继续努力啊！

likeyan

这些就看的不明百，不懂~~~~~