怎么计算螺旋体的长度？

mdt6.0

用什么方法可以求出平面螺旋体的长度？

9 }6 ]: [5 L1 u! E* W[ 本帖最后由 mdt6.0 于 2008-10-16 11:10 编辑 ]

maoyangmy

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

gaoweihe

螺旋线的计算
9 _0 p2 \. U, m1 c/ Z! w
要合成一条线才可以

woaishuijia

用VBA方法画近似螺旋线的多段线并获得长度。线段数量越多，精度就越高。
% Q: k* T$ ^0 C: Q& h下面代码可以画（求）两种螺旋线（阿基米德螺线和对数螺线）。

1. Option Explicit
   
2. 
   ! h# ?1 F/ Y; v, ~( D0 Y: ^) j
3. Dim 线段数量 As Integer, 曲线种类 As String, 是否保留曲线 As String
   9 a8 M. x9 z6 e/ @1 M$ O
4. 
   
5. Sub LXCD()
   
6.     Dim 多段线 As AcadLWPolyline, 顶点坐标() As Double
   0 Y2 Z! R4 w! V4 H$ d
7.     Dim 关键字 As String, 起点极角 As Double, 终点极角 As Double, 初始极径 As Double, 对数曲线夹角 As Double
   
8.     Dim 循环变量 As Long, 极角 As Double, 极径 As Double
   
9.    
   ) @; ~" j; p& ]. r: R* {
10.     If 线段数量 = 0 Then 线段数量 = 1000 '默认值
    
11.     If 曲线种类 = "" Then 曲线种类 = "A"
    
12.     If 是否保留曲线 = "" Then 是否保留曲线 = "N"
    - |* S9 A2 |  ^4 b) U; N) F* L
13.    
    ' n3 e+ s* X. g6 V; T3 N$ Q
14.     On Error Resume Next
    
15.     With ThisDrawing
    5 g" Y  x8 j  [* D' L
16.         Do
    ; B) k/ q8 s( u8 e) Q
17.             Err.Clear
      {6 w* T9 o3 D7 |$ ]
18.             .Utility.InitializeUserInput 6, "A L P" '规定输入不为0或负数，规定可以输入的关键字
    
19.             初始极径 = .Utility.GetDistance(, vbCrLf & "输入初始极径(常数)[阿基米德螺线(A)/对数螺线(L)/选项(P)]<" & 曲线种类 & ">:" ) '用户用鼠标或键盘输入距离或关键字
    - J$ K6 t2 V) s) P
20.             If Err.Number = 0 Then '输入的是初始极径（阿基米德螺线的常数或对数螺线的R0），退出循环向下进行
    
21.                 Exit Do
    
22.             ElseIf Err.Description = "用户输入的是关键字" Then '使用英文版的朋友请用"User input is a keyword"代替本行代码中的汉字
    % _( L3 H$ [$ p" F. ?" ]
23.                 关键字 = .Utility.GetInput '获取用户输入的关键字
    % T. ~0 u" u4 Y
24.                 Select Case 关键字
    8 ?" i0 h/ x" T! w0 n9 [' [
25.                     Case "A"
    
26.                         曲线种类 = "A"
    
27.                     Case "L"
    6 j/ r2 Z; d; p7 A8 L" P: S
28.                         曲线种类 = "L"
    
29.                     Case "P"
    
30.                         Err.Clear
    
31.                         .Utility.InitializeUserInput 0, "Y N M" '规定本步骤可以输入的关键字
    
32.                         关键字 = .Utility.GetKeyword(vbCrLf & "选项[以WCS原点为中心画螺线(Y)/不画螺线(N)/拟合线段数量(M)]<" & 是否保留曲线 & ">:" ) '用户键盘输入关键字
    
33.                         If Err.Number = 0 Then
    
34.                             Select Case 关键字
    0 H' o+ ~: p/ t' D4 s
35.                                 Case "M"
    % H' i, m9 w; p6 s
36.                                     Err.Clear
    + v: b1 u5 \1 p3 I" J) d* a5 I
37.                                     .Utility.InitializeUserInput 6 '规定输入不为0或负数
    
38.                                     线段数量 = .Utility.GetInteger(vbCrLf & "输入拟合线段数量<" & 线段数量 & ">:" ) '用户键盘输入整型数
    
39.                                     If Err.Number = -2147352567 Then Exit Sub '按下Esc退出
    
40.                                 Case "Y"
    8 U8 Y" g+ L. U" W6 n- x
41.                                     是否保留曲线 = "Y"
    ! P5 s3 H, n, _
42.                                 Case "N"
    # ]$ F3 W, F: O4 F- j! C+ X
43.                                     是否保留曲线 = "N"
    
44.                             End Select
    
45.                         Else '按下Esc退出
    - m4 u* N  a/ q
46.                             Exit Sub
    : x/ [" s' {% {2 S* H# z$ i. m4 r
47.                         End If
    
48.                 End Select
    
49.             Else '按下Esc退出
    1 t& }( }& ^0 u: {" q" t
50.                 Exit Sub
    
51.             End If
    
52.         Loop
    6 x! L) g; r& y: @1 L/ h
53.         .Utility.Prompt (vbCrLf & "输入起点极角:" )
    9 P, z6 V' H: ^
54.         起点极角 = 角度 '调用自定义函数获取角度
    5 j# u2 r+ A' s$ [* [. A$ F
55.         If Err.Number <> 0 Then Exit Sub '按下Esc退出
    $ |  V0 {" g! j! J/ E& r
56.         .Utility.Prompt (vbCrLf & "输入终点极角:" )
    # |& P; j( k4 t% c4 h
57.         终点极角 = 角度
    ; v- G9 D$ A5 `5 v; |- U/ P
58.         If Err.Number <> 0 Then Exit Sub
    : ?0 k# D& |! o& j$ S$ o7 b
59.         On Error GoTo 10
    & d1 L1 k- k2 v3 Q* Q
60.         If 曲线种类 = "L" Then '对数螺线需要输入极径与切线夹角
    
61.             .Utility.InitializeUserInput 2 '规定输入不为0
    7 v8 `( y( R# S5 C
62.             对数曲线夹角 = .Utility.GetAngle(, vbCrLf & "输入对数曲线夹角:" ) '用户鼠标或键盘输入角度
    
63.         End If
    
64.         ReDim 顶点坐标(CLng(线段数量) * 2 + 1) '根据线段数量重新定义坐标数组元素数
    ; c. \7 |' Q3 M7 `2 f
65.         For 循环变量 = 0 To 线段数量
    & z, y, ~5 G& k$ X7 T
66.             极角 = 起点极角 + CDbl(循环变量) / CDbl(线段数量) * (终点极角 - 起点极角)
    
67.             If 曲线种类 = "L" Then '按对数螺线计算极径长度
    9 W3 S+ i' e6 J3 h' F4 e
68.                 极径 = 初始极径 * Exp(极角 / Tan(对数曲线夹角))
    
69.             Else '按阿基米德螺线计算极径长度
    " {) ]/ d4 H8 O
70.                 极径 = 初始极径 * 极角
    - t9 o( c' C% ]" g  b6 A4 r
71.             End If
    - T4 i3 ?/ B9 t+ F1 m1 q* ^! J
72.             顶点坐标(循环变量 * 2) = 极径 * Cos(极角) '计算直角坐标并赋值给顶点坐标数组
    4 N- _* h  \2 Z2 q+ m3 u5 Y
73.             顶点坐标(循环变量 * 2 + 1) = 极径 * Sin(极角)
    1 y4 R8 ^! i# _  V/ `* G+ J9 B
74.         Next
    * Q# S) x6 ^  \7 I' o9 K
75.         Set 多段线 = .ModelSpace.AddLightWeightPolyline(顶点坐标) '在模型空间画多段线
    7 b" @1 }3 \7 V) W5 l
76.         .Utility.Prompt vbCrLf & "-------------------------------------" & vbLf & vbLf & _
    4 X2 E$ _# g. k" _0 }) j# G) n
77.             "     螺线长度:          " & 多段线.Length & vbLf & vbLf & _
    9 A1 @7 p, U& x$ y  w
78.             "-------------------------------------" '命令行输出结果
    
79.         If 是否保留曲线 <> "Y" Then 多段线.Delete '根据用户输入，删除或保留多段线
    
80.         SendKeys "{F2}" '模拟键盘按下“F2”功能键，打开命令行文本框
    ( x4 t- L# c6 c& D! v. U! k
81.     End With
    6 B( c0 Q) b: s% E5 `
82. 10: End Sub
    
83. 
    $ p9 a8 i5 s1 l1 m3 I, S3 O1 ]% \
84. Private Function 角度() As Double 'CAD图形界面或命令行中获得角度只能在0到360度（不含）之间，所以定义一个函数获取更大范围的角度
    ( y) L7 x1 r$ X+ p0 Z. y
85.     Dim 圆周数量 As Long, 正负数因子 As Double
    - Z9 x; u, A% W/ p  j6 j/ A0 F
86.     On Error Resume Next
    4 E9 |7 i: p' u
87.     With ThisDrawing
    $ b+ p& x3 B9 t2 ^& I+ t7 r
88.         角度 = .Utility.GetReal("十进制角度<0>:" ) '用户键盘输入实数
    & E. V: E7 B% t" Q
89.         If Err.Number = 0 Then '用户输入的是实数
    8 G) k! x7 Q' U6 F
90.             If 角度 < 0 Then
    
91.                 正负数因子 = -1#
    
92.                 角度 = -角度
    + P$ ]: i7 D" @$ _" H% t, ~3 f
93.             Else
    
94.                 正负数因子 = 1#
    * t# A( N: l" T9 s" s
95.             End If
    
96.             圆周数量 = 角度 \ 360 '整除
    2 {9 E4 p& \6 t" ~0 }2 r! n
97.             角度 = .Utility.AngleToReal("180", acDegrees) * 2# * 圆周数量 + .Utility.AngleToReal(Str(角度 - 360# * 圆周数量), acDegrees)
    & d8 E; S* s8 }, ]6 C- Y
98.             角度 = 角度 * 正负数因子
    
99.         ElseIf Err.Description = "用户输入的是关键字" Then '用户按下右键或回车或空格，角度默认为0；使用英文版的朋友请用"User input is a keyword"代替本行代码中的汉字
    
100.             角度 = 0
     $ L7 s  `* S# ~- j% ?. b) u
101.             Err.Clear
     + A3 L/ N" [  x0 \$ Z3 c" b
102.         End If
     5 Q% Y2 A& R4 s
103.     End With
     
104. End Function
     

复制代码

$ J. M1 U8 S  I( p[ 本帖最后由 woaishuijia 于 2008-10-29 06:37 编辑 ]

resolution

好复杂啊，看不懂

mdt6.0

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

mdt6.0

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

woaishuijia

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

mdt6.0

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

wys720122123

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

dongxiaoh126

说的很好，谢谢了。

junying3699

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