怎么计算螺旋体的长度？

mdt6.0

用什么方法可以求出平面螺旋体的长度？
, H' C1 s% _, `8 v1 C* V' v
[ 本帖最后由 mdt6.0 于 2008-10-16 11:10 编辑 ]

maoyangmy

将平面螺旋线转换为多段线, 然后用LIST命令就可以求出了

gaoweihe

螺旋线的计算

要合成一条线才可以

woaishuijia

用VBA方法画近似螺旋线的多段线并获得长度。线段数量越多，精度就越高。
下面代码可以画（求）两种螺旋线（阿基米德螺线和对数螺线）。

1. Option Explicit
   - B3 `3 m: y1 I6 m0 T
2. 
   
3. Dim 线段数量 As Integer, 曲线种类 As String, 是否保留曲线 As String
   + Z. _) n% K% D3 V  }) i
4. 
   
5. Sub LXCD()
   1 O6 J: b- ~( A2 q2 N' I
6.     Dim 多段线 As AcadLWPolyline, 顶点坐标() As Double
   
7.     Dim 关键字 As String, 起点极角 As Double, 终点极角 As Double, 初始极径 As Double, 对数曲线夹角 As Double
   
8.     Dim 循环变量 As Long, 极角 As Double, 极径 As Double
   * f0 J8 O3 \* Q9 G
9.    
   4 H% G! `! ^% b
10.     If 线段数量 = 0 Then 线段数量 = 1000 '默认值
    
11.     If 曲线种类 = "" Then 曲线种类 = "A"
    
12.     If 是否保留曲线 = "" Then 是否保留曲线 = "N"
    
13.    
    
14.     On Error Resume Next
    
15.     With ThisDrawing
    9 l$ ]' ^+ O. M3 v% m
16.         Do
    3 D, q/ |* m/ }6 M' H, ^
17.             Err.Clear
    - \; _1 ]0 [* |
18.             .Utility.InitializeUserInput 6, "A L P" '规定输入不为0或负数，规定可以输入的关键字
    
19.             初始极径 = .Utility.GetDistance(, vbCrLf & "输入初始极径(常数)[阿基米德螺线(A)/对数螺线(L)/选项(P)]<" & 曲线种类 & ">:" ) '用户用鼠标或键盘输入距离或关键字
    $ D# Z* P9 f5 l. {0 l$ q
20.             If Err.Number = 0 Then '输入的是初始极径（阿基米德螺线的常数或对数螺线的R0），退出循环向下进行
    6 W0 X" q' a4 {  u9 U
21.                 Exit Do
    
22.             ElseIf Err.Description = "用户输入的是关键字" Then '使用英文版的朋友请用"User input is a keyword"代替本行代码中的汉字
    
23.                 关键字 = .Utility.GetInput '获取用户输入的关键字
    
24.                 Select Case 关键字
    6 @, {1 H, g0 O: n6 T+ |/ i
25.                     Case "A"
      J1 c: U2 D, P" _6 A/ ]# r
26.                         曲线种类 = "A"
    $ x8 L# t. O* R# L8 o! ~
27.                     Case "L"
    
28.                         曲线种类 = "L"
    
29.                     Case "P"
    ; ^+ i8 [! X2 A$ M4 A9 }- y
30.                         Err.Clear
    $ D) M9 J. j6 g
31.                         .Utility.InitializeUserInput 0, "Y N M" '规定本步骤可以输入的关键字
    $ b& @. a# ^. k
32.                         关键字 = .Utility.GetKeyword(vbCrLf & "选项[以WCS原点为中心画螺线(Y)/不画螺线(N)/拟合线段数量(M)]<" & 是否保留曲线 & ">:" ) '用户键盘输入关键字
    - O/ d  K3 h5 ^8 Q
33.                         If Err.Number = 0 Then
    
34.                             Select Case 关键字
    
35.                                 Case "M"
    
36.                                     Err.Clear
    
37.                                     .Utility.InitializeUserInput 6 '规定输入不为0或负数
    
38.                                     线段数量 = .Utility.GetInteger(vbCrLf & "输入拟合线段数量<" & 线段数量 & ">:" ) '用户键盘输入整型数
    
39.                                     If Err.Number = -2147352567 Then Exit Sub '按下Esc退出
    
40.                                 Case "Y"
    
41.                                     是否保留曲线 = "Y"
    
42.                                 Case "N"
    ' \( n: Q- K" \
43.                                     是否保留曲线 = "N"
    
44.                             End Select
    
45.                         Else '按下Esc退出
    / H; }3 Y6 k5 A5 B1 x
46.                             Exit Sub
    7 W) N! s! Z& m* t' }2 I* K
47.                         End If
    
48.                 End Select
    - X3 t* r; R- n! V; K
49.             Else '按下Esc退出
    
50.                 Exit Sub
    
51.             End If
    ( [6 F$ O5 B/ k7 T" c: A& W
52.         Loop
    
53.         .Utility.Prompt (vbCrLf & "输入起点极角:" )
    4 S- y$ ^9 }# L6 j
54.         起点极角 = 角度 '调用自定义函数获取角度
    * k' X( ]  O% a+ y+ g9 x
55.         If Err.Number <> 0 Then Exit Sub '按下Esc退出
    - V. {, I6 S: n4 o. q& s+ a# l
56.         .Utility.Prompt (vbCrLf & "输入终点极角:" )
    
57.         终点极角 = 角度
    
58.         If Err.Number <> 0 Then Exit Sub
    & ?- h3 f( J) ]. O/ S
59.         On Error GoTo 10
      E+ i# E) L& y; A! O+ c
60.         If 曲线种类 = "L" Then '对数螺线需要输入极径与切线夹角
    
61.             .Utility.InitializeUserInput 2 '规定输入不为0
    
62.             对数曲线夹角 = .Utility.GetAngle(, vbCrLf & "输入对数曲线夹角:" ) '用户鼠标或键盘输入角度
    
63.         End If
    ; S1 l6 X. `6 Z4 y/ }
64.         ReDim 顶点坐标(CLng(线段数量) * 2 + 1) '根据线段数量重新定义坐标数组元素数
    
65.         For 循环变量 = 0 To 线段数量
    7 n* m% `# _8 j+ ~* P! b
66.             极角 = 起点极角 + CDbl(循环变量) / CDbl(线段数量) * (终点极角 - 起点极角)
    
67.             If 曲线种类 = "L" Then '按对数螺线计算极径长度
    
68.                 极径 = 初始极径 * Exp(极角 / Tan(对数曲线夹角))
    
69.             Else '按阿基米德螺线计算极径长度
      A' @+ P: e3 K3 k, l3 b4 }
70.                 极径 = 初始极径 * 极角
    ! J4 x5 y" b6 k" P
71.             End If
    
72.             顶点坐标(循环变量 * 2) = 极径 * Cos(极角) '计算直角坐标并赋值给顶点坐标数组
    
73.             顶点坐标(循环变量 * 2 + 1) = 极径 * Sin(极角)
    
74.         Next
    9 O5 X& _6 C' M5 m
75.         Set 多段线 = .ModelSpace.AddLightWeightPolyline(顶点坐标) '在模型空间画多段线
    5 w6 @( Y+ v/ g2 B2 [
76.         .Utility.Prompt vbCrLf & "-------------------------------------" & vbLf & vbLf & _
    
77.             "     螺线长度:          " & 多段线.Length & vbLf & vbLf & _
    " l) [2 F- W6 ^" ]6 s- x
78.             "-------------------------------------" '命令行输出结果
    
79.         If 是否保留曲线 <> "Y" Then 多段线.Delete '根据用户输入，删除或保留多段线
      {% T' }4 q1 h% ~
80.         SendKeys "{F2}" '模拟键盘按下“F2”功能键，打开命令行文本框
    
81.     End With
    + f+ J2 y" l* }$ O/ E; Q0 E, N, J: T+ E
82. 10: End Sub
    3 `0 }# F6 Z+ H3 n, x. {
83. 
    
84. Private Function 角度() As Double 'CAD图形界面或命令行中获得角度只能在0到360度（不含）之间，所以定义一个函数获取更大范围的角度
    
85.     Dim 圆周数量 As Long, 正负数因子 As Double
    
86.     On Error Resume Next
    
87.     With ThisDrawing
    4 J- v; {, M* ^
88.         角度 = .Utility.GetReal("十进制角度<0>:" ) '用户键盘输入实数
    1 z0 L) J5 x4 {3 `2 g2 A7 z
89.         If Err.Number = 0 Then '用户输入的是实数
    % C* R- Z4 ]$ ]
90.             If 角度 < 0 Then
    ) }  L7 k1 ^  \% l5 H1 x
91.                 正负数因子 = -1#
    
92.                 角度 = -角度
    6 r5 _7 ~' U- M) u- U  W, K
93.             Else
    ' G& o, d9 ^; g. X  [$ P
94.                 正负数因子 = 1#
    $ _# M) |4 u$ R3 E% R5 Q
95.             End If
    
96.             圆周数量 = 角度 \ 360 '整除
    
97.             角度 = .Utility.AngleToReal("180", acDegrees) * 2# * 圆周数量 + .Utility.AngleToReal(Str(角度 - 360# * 圆周数量), acDegrees)
    
98.             角度 = 角度 * 正负数因子
    
99.         ElseIf Err.Description = "用户输入的是关键字" Then '用户按下右键或回车或空格，角度默认为0；使用英文版的朋友请用"User input is a keyword"代替本行代码中的汉字
    & `9 T- V! p! a. ?8 i
100.             角度 = 0
     5 M% A9 ^! T4 E. T! o4 h! x
101.             Err.Clear
     
102.         End If
     
103.     End With
     
104. End Function
     

复制代码

[ 本帖最后由 woaishuijia 于 2008-10-29 06:37 编辑 ]

resolution

好复杂啊，看不懂

mdt6.0

谢谢.照你的方法求不出来呀,我把这个螺旋体的图放上来了.

mdt6.0

谢谢你的回复,这个方法太复杂了,没有其他法子了吗?

woaishuijia

用2007以上版本，可以按你的尺寸画出螺旋线，在“特性”选项板上或用“列表”查询。
$ u/ H9 o3 s6 l: U9 B其它版本可以用4楼的程序，很简单呀。点帖子“代码”框上的“复制内容到剪贴板”，在CAD图形界面按“Alt+F11”打开VBA编辑器，在“工程”资源管理器上双击“Thisdrawing”对象，在弹出的“代码”窗口上粘贴，关闭VBA编辑器或按“Alt+F11”返回图形界面，“Alt+F8”、“Alt+R”，按命令行提示操作即可。
) x; @* k3 A4 V+ Y, n7 D或者下载并解压附件，在CAD图形界面键入“VBALOAD”（“APPLOAD”也行），加载程序，“Alt+F8”、“Alt+R”，按命令行提示操作即可。

mdt6.0

看不到所有的回贴，是网络问题，还是这些贴子有时效性呀？

wys720122123

初学，有些看不懂，不知道螺旋线是怎么画出来的。

dongxiaoh126

说的很好，谢谢了。

junying3699

不错的哦，我很受益啊，谢谢楼主。谢谢楼主。谢谢楼主。谢谢楼主。