[求助]：请问波浪线是怎么画出来的？

piggylele

市不是用line命令然后选择线形？
但是没有波浪线这个选项？
看到点直线s线什么得

ahlzl

可以用样条曲线命令。

halibt

不知道这样行不？

木桂水

可以用pl画，然后用fit命令。

XDSoft

提供另一个方法:

如果看看线形定义的方法,可以定义一个波浪线形. 去"ACAD定制论坛"看看,好像有朋友提供这样的线性了.

下载地址：http://www.xdcad.net/tech/blx.swf

<embed src=http://www.xdcad.net/tech/blx.swf quality=high width=640 height=480 loop=true type="application/x-shockwave-flash">
</embed>

boy_tian

云线和徒手线也算是波浪线，不知道楼主要的是那种波浪线。

madayu

用 云线 不是最简单吗？

zhubeibei

2004哪里可以下载吗

nakedcity

请允许我问个很简单的问题，什么是云线？

livingstone01

不规则的可以用spline,规则的可用短圆弧通过mirror,copy绘制.

piggylele

我看到有人画的时候就好象直线的画法
箭头点到哪里就自己出来了
所以才想问问是怎么做到的

XDSoft

最初由 piggylele 发布
[B]我看到有人画的时候就好象直线的画法
箭头点到哪里就自己出来了
所以才想问问是怎么做到的 [/B]

你说的是云线, 你到下载中心下载EXPRESS,安装后,菜单里面有这个命令.

zshutang

可以用运线工具，再稍微编辑一下，不过不太好，只是画着好画, 有没有人用过？

piggylele

最初由 XDSoft 发布
[B]

你说的是云线, 你到下载中心下载EXPRESS,安装后,菜单里面有这... [/B]

云线不是波浪线啊
云线得圆弧逗在同一方向

ahlzl

我编了一VBA小程序，各位PP：

2. [font=courier]
   
3. Sub blx()
   
4. Dim blxObj As AcadLWPolyline
   
5. Dim points() As Double
   
6. Dim a, n As Long
   
7. Dim H, L As Double
   
8. Dim pa, pb As Variant
   
9. Const PI = 3.1415926535
   
10. 
    
11. pa = ThisDrawing.Utility.GetPoint(, "请输入波浪线起点：")
    
12. pb = ThisDrawing.Utility.GetPoint(pa, "请输入波浪线终点：")
    
13. H = ThisDrawing.Utility.GetDistance(pa, "请波浪线幅度：")
    
14. n = ThisDrawing.Utility.GetReal("请输入波浪线周波数:")
    
15. 
    
16. ReDim points(0 To 2 * 36 * n + 1) As Double
    
17. L = dis(pa, pb)
    
18. b = ThisDrawing.Utility.AngleFromXAxis(pa, pb)
    
19. 
    
20. For a = 0 To 2 * 36 * n Step 2
    
21. points(a) = pa(0) + L * (10 * a / 2) / (360 * n)
    
22. points(a + 1) = pa(1) + H * Sin(2 * PI * 10 * a / 360 / 2)
    
23. Next
    
24. 
    
25. Set blxObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)
    
26. blxObj.Rotate pa, b
    
27. ZoomExtents
    
28. End Sub
    
29. 
    
30. Function dis(pa, pb As Variant) As Double
    
31. dis = ((pa(0) - pb(0)) ^ 2 + (pa(1) - pb(1)) ^ 2 + (pa(2) - pb(2)) ^ 2) ^ 0.5
    
32. End Function
    
33. [/font]
    

[font=courier]<br /> Sub blx()<br /> Dim blxObj As AcadLWPolyline<br /> Dim points() As Double<br /> Dim a, n As Long<br /> Dim H, L As Double<br /> Dim pa, pb As Variant<br /> Const PI = 3.1415926535<br /> <br /> pa = ThisDrawing.Utility.GetPoint(, "请输入波浪线起点：")<br /> pb = ThisDrawing.Utility.GetPoint(pa, "请输入波浪线终点：")<br /> H = ThisDrawing.Utility.GetDistance(pa, "请波浪线幅度：")<br /> n = ThisDrawing.Utility.GetReal("请输入波浪线周波数:")<br /> <br /> ReDim points(0 To 2 * 36 * n + 1) As Double<br /> L = dis(pa, pb)<br /> b = ThisDrawing.Utility.AngleFromXAxis(pa, pb)<br /> <br /> For a = 0 To 2 * 36 * n Step 2<br /> points(a) = pa(0) + L * (10 * a / 2) / (360 * n)<br /> points(a + 1) = pa(1) + H * Sin(2 * PI * 10 * a / 360 / 2)<br /> Next<br /> <br /> Set blxObj = ThisDrawing.ModelSpace.AddLightWeightPolyline(points)<br /> blxObj.Rotate pa, b<br /> ZoomExtents<br /> End Sub<br /> <br /> Function dis(pa, pb As Variant) As Double<br /> dis = ((pa(0) - pb(0)) ^ 2 + (pa(1) - pb(1)) ^ 2 + (pa(2) - pb(2)) ^ 2) ^ 0.5<br /> End Function<br /> [/font]<br />