怎么计算螺旋体的长度？

mdt6.0

用什么方法可以求出平面螺旋体的长度？
1 x# v0 e9 `/ \; ?
* N4 p2 J) p1 ]: Q* v0 ^( e[ 本帖最后由 mdt6.0 于 2008-10-16 11:10 编辑 ]

maoyangmy

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

gaoweihe

螺旋线的计算

( ]. ]1 e0 e4 F' Q( e: V6 b要合成一条线才可以

woaishuijia

用VBA方法画近似螺旋线的多段线并获得长度。线段数量越多，精度就越高。
, n9 X, h) @  O' U9 U( r下面代码可以画（求）两种螺旋线（阿基米德螺线和对数螺线）。

1. Option Explicit
   
2. 
   
3. Dim 线段数量 As Integer, 曲线种类 As String, 是否保留曲线 As String
   1 r* i  r8 R5 K5 A  W( w, [
4. 
   
5. Sub LXCD()
   / R1 a: @; ~3 w! @/ S3 U) c# _
6.     Dim 多段线 As AcadLWPolyline, 顶点坐标() As Double
   
7.     Dim 关键字 As String, 起点极角 As Double, 终点极角 As Double, 初始极径 As Double, 对数曲线夹角 As Double
   ) d1 l8 l) D( Z
8.     Dim 循环变量 As Long, 极角 As Double, 极径 As Double
   6 k9 X4 H# M" k7 b+ B% e/ M) ^2 o
9.    
   
10.     If 线段数量 = 0 Then 线段数量 = 1000 '默认值
    - u8 z% a; j0 D% N9 ~: O
11.     If 曲线种类 = "" Then 曲线种类 = "A"
    2 j3 ?0 i1 \" l" I" N
12.     If 是否保留曲线 = "" Then 是否保留曲线 = "N"
    $ a+ {7 V% C: u) r
13.    
    9 H/ u# r2 n* F
14.     On Error Resume Next
    & z8 g7 t$ {9 k4 T
15.     With ThisDrawing
    ! Z+ n# ]4 v1 U; J8 L/ ]2 ~
16.         Do
    
17.             Err.Clear
    
18.             .Utility.InitializeUserInput 6, "A L P" '规定输入不为0或负数，规定可以输入的关键字
    
19.             初始极径 = .Utility.GetDistance(, vbCrLf & "输入初始极径(常数)[阿基米德螺线(A)/对数螺线(L)/选项(P)]<" & 曲线种类 & ">:" ) '用户用鼠标或键盘输入距离或关键字
    ! ?( a1 j1 ^3 {/ a  T7 \" \7 p
20.             If Err.Number = 0 Then '输入的是初始极径（阿基米德螺线的常数或对数螺线的R0），退出循环向下进行
    5 r3 z' ]1 H, K; N$ A
21.                 Exit Do
    
22.             ElseIf Err.Description = "用户输入的是关键字" Then '使用英文版的朋友请用"User input is a keyword"代替本行代码中的汉字
    + W/ q2 s8 A2 R6 K) }& _. c
23.                 关键字 = .Utility.GetInput '获取用户输入的关键字
    
24.                 Select Case 关键字
    2 k/ L8 K) f, x2 e5 }  N2 c3 ?
25.                     Case "A"
    
26.                         曲线种类 = "A"
    
27.                     Case "L"
    
28.                         曲线种类 = "L"
    
29.                     Case "P"
    & l# ?2 y2 Q  n6 Y
30.                         Err.Clear
    1 n# o5 J% h; W# Z9 X) @$ Y
31.                         .Utility.InitializeUserInput 0, "Y N M" '规定本步骤可以输入的关键字
    $ W7 C8 h& T+ ~( M% _$ d' O$ p+ M
32.                         关键字 = .Utility.GetKeyword(vbCrLf & "选项[以WCS原点为中心画螺线(Y)/不画螺线(N)/拟合线段数量(M)]<" & 是否保留曲线 & ">:" ) '用户键盘输入关键字
    ) U( J+ C) k6 P+ l% F$ s8 ~" t4 O
33.                         If Err.Number = 0 Then
    # ?6 b5 A. R6 K6 n3 S9 p/ u
34.                             Select Case 关键字
    7 M0 Z& E. D& q2 |, h/ _4 ?
35.                                 Case "M"
    
36.                                     Err.Clear
    / P  U" J, g$ K# J: h% R
37.                                     .Utility.InitializeUserInput 6 '规定输入不为0或负数
    
38.                                     线段数量 = .Utility.GetInteger(vbCrLf & "输入拟合线段数量<" & 线段数量 & ">:" ) '用户键盘输入整型数
    
39.                                     If Err.Number = -2147352567 Then Exit Sub '按下Esc退出
    # U; b& g0 s' r& l' F( i# @/ S
40.                                 Case "Y"
    
41.                                     是否保留曲线 = "Y"
    6 p3 s1 Y1 `  t6 [9 \% w5 G" y! x
42.                                 Case "N"
    
43.                                     是否保留曲线 = "N"
    
44.                             End Select
    
45.                         Else '按下Esc退出
    
46.                             Exit Sub
    
47.                         End If
    ; y1 T  g( f! a
48.                 End Select
    
49.             Else '按下Esc退出
    
50.                 Exit Sub
    ) t; w' F, y0 \4 d' g
51.             End If
    
52.         Loop
    % f5 b" g+ i5 c  r- P: b9 H
53.         .Utility.Prompt (vbCrLf & "输入起点极角:" )
    
54.         起点极角 = 角度 '调用自定义函数获取角度
    
55.         If Err.Number <> 0 Then Exit Sub '按下Esc退出
    
56.         .Utility.Prompt (vbCrLf & "输入终点极角:" )
    
57.         终点极角 = 角度
    
58.         If Err.Number <> 0 Then Exit Sub
    
59.         On Error GoTo 10
    
60.         If 曲线种类 = "L" Then '对数螺线需要输入极径与切线夹角
    
61.             .Utility.InitializeUserInput 2 '规定输入不为0
    
62.             对数曲线夹角 = .Utility.GetAngle(, vbCrLf & "输入对数曲线夹角:" ) '用户鼠标或键盘输入角度
    , j: P2 n9 d' P0 v6 q1 W4 c
63.         End If
    
64.         ReDim 顶点坐标(CLng(线段数量) * 2 + 1) '根据线段数量重新定义坐标数组元素数
    
65.         For 循环变量 = 0 To 线段数量
    + B& Z3 M: I; q' e
66.             极角 = 起点极角 + CDbl(循环变量) / CDbl(线段数量) * (终点极角 - 起点极角)
    
67.             If 曲线种类 = "L" Then '按对数螺线计算极径长度
    
68.                 极径 = 初始极径 * Exp(极角 / Tan(对数曲线夹角))
    
69.             Else '按阿基米德螺线计算极径长度
    
70.                 极径 = 初始极径 * 极角
    
71.             End If
    
72.             顶点坐标(循环变量 * 2) = 极径 * Cos(极角) '计算直角坐标并赋值给顶点坐标数组
    1 v6 n2 O, k2 F5 q
73.             顶点坐标(循环变量 * 2 + 1) = 极径 * Sin(极角)
    
74.         Next
    , O* G9 F1 b! |' E5 R7 M: K
75.         Set 多段线 = .ModelSpace.AddLightWeightPolyline(顶点坐标) '在模型空间画多段线
    
76.         .Utility.Prompt vbCrLf & "-------------------------------------" & vbLf & vbLf & _
    
77.             "     螺线长度:          " & 多段线.Length & vbLf & vbLf & _
    % a$ `, E4 X, B; o" h
78.             "-------------------------------------" '命令行输出结果
    4 @% A! R1 a& P; ^1 A% x
79.         If 是否保留曲线 <> "Y" Then 多段线.Delete '根据用户输入，删除或保留多段线
    
80.         SendKeys "{F2}" '模拟键盘按下“F2”功能键，打开命令行文本框
      W; b) E; Z3 L3 w! r( G% y- f' H
81.     End With
    7 }# ]& L3 _  d5 F
82. 10: End Sub
    
83. 
    ! }% X& }( \! i0 `, X
84. Private Function 角度() As Double 'CAD图形界面或命令行中获得角度只能在0到360度（不含）之间，所以定义一个函数获取更大范围的角度
    3 K: A0 O4 e2 f
85.     Dim 圆周数量 As Long, 正负数因子 As Double
    ! k: W8 A+ d# I/ ?1 `: a2 W
86.     On Error Resume Next
    % Q$ e4 x3 L6 H* H& h) S; ^
87.     With ThisDrawing
    
88.         角度 = .Utility.GetReal("十进制角度<0>:" ) '用户键盘输入实数
    
89.         If Err.Number = 0 Then '用户输入的是实数
    
90.             If 角度 < 0 Then
    
91.                 正负数因子 = -1#
    
92.                 角度 = -角度
    
93.             Else
    - G2 b" z$ E& `5 [1 K
94.                 正负数因子 = 1#
    
95.             End If
    . P% ]8 q% k1 Y# i
96.             圆周数量 = 角度 \ 360 '整除
    
97.             角度 = .Utility.AngleToReal("180", acDegrees) * 2# * 圆周数量 + .Utility.AngleToReal(Str(角度 - 360# * 圆周数量), acDegrees)
    / ~6 \1 M8 g1 p" t! N
98.             角度 = 角度 * 正负数因子
    . P! \$ L$ M9 V8 d) G- ^! w1 H' H0 ^9 f
99.         ElseIf Err.Description = "用户输入的是关键字" Then '用户按下右键或回车或空格，角度默认为0；使用英文版的朋友请用"User input is a keyword"代替本行代码中的汉字
    ) T$ n# G8 q  S! }
100.             角度 = 0
     0 d4 s8 K4 r5 h6 _1 A/ A9 d
101.             Err.Clear
     & o3 d9 a  _. e$ e. \: E
102.         End If
     
103.     End With
     
104. End Function
     % |9 x4 T* b( J( x

复制代码

' z" V& h" ?+ p( V  S* ]/ Q. y. d. K[ 本帖最后由 woaishuijia 于 2008-10-29 06:37 编辑 ]

resolution

好复杂啊，看不懂

mdt6.0

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

mdt6.0

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

woaishuijia

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

mdt6.0

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

wys720122123

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

dongxiaoh126

说的很好，谢谢了。

junying3699

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