水泵叶线画法

benwang

如图,中间红色线与内圆切线夹角为27度,与外圆切线夹角为45度,随R增大,夹角均匀增大,求其曲线画法!

woaishuijia

1. 
   ; U2 x% n* ~3 F) r! ~
2.     Dim Dbl最小半径 As Double, Dbl最大半径 As Double, Dbl最小夹角 As Double, Dbl最大夹角 As Double
   ; q/ M2 T: _" I& z" x$ A7 w8 C! g
3.     Dim Lng样条曲线拟合点数量 As Long, Lng相邻拟合点间计算分段数量 As Long
   
4.     Dim Obj圆 As AcadCircle, Obj直线 As AcadLine, DblArr圆心(2) As Double, Var点 As Variant
   % c5 o6 H; l) w+ E6 C7 V! z
5.     Dim Lng拟合点循环变量 As Long, Lng计算分段循环变量 As Long, Dbl夹角 As Double
   
6.     Dim DblArr样条曲线拟合点() As Double, DblArr样条曲线起点切向(2) As Double, DblArr样条曲线端点切向(2) As Double
   4 d$ l) h# u, k2 f2 _
7.    
   0 q0 F- T# T' B* J/ S) F
8.     '已知条件
   5 t3 L" Q. |- w* J( k
9.     Dbl最小半径 = 250: Dbl最大半径 = 700: Dbl最小夹角 = 27: Dbl最大夹角 = 45
   7 k% h9 X. R, m% D+ C9 M
10.    
    0 g+ C2 c4 x8 P- p) n' t
11.     '设定曲线拟合点数量,通常不大于500,可根据情况自行更改
    
12.     Lng样条曲线拟合点数量 = 101
    
13.     '设定相邻拟合点间计算分段数量,可根据情况自行更改
    ) ~+ {. `$ {3 h4 C( p4 V
14.     Lng相邻拟合点间计算分段数量 = 50
    # C9 M( i3 X9 c( c) f
15.     '数值越大,曲线精度相对越高,但运行时间越长
    
16.    
    5 k" @. q7 W( `, d  R* A7 w
17.    
    
18.    
      L& \( L3 P( \, l! V: d. L% ~
19.     '按拟合点数量重定义数组
    ; S5 q$ n+ D: x3 q) I" |1 Z; p
20.     ReDim DblArr样条曲线拟合点(Lng样条曲线拟合点数量 * 3 - 1)
    7 n4 A: r5 O2 w1 v
21.    
    % [3 t& ^! @8 D& f; h9 d9 B
22.     With ThisDrawing
    & G* E6 c5 \) E0 C" @+ ?( ~1 z
23.    
    % o$ H$ z6 ?' x6 w# ]2 h) U! Y, D
24.         '以坐标原点为圆心,最小半径为半径画一个辅助圆,其半径做为变量在以后计算中还要逐步更改
    
25.         Set Obj圆 = .ModelSpace.AddCircle(DblArr圆心, Dbl最小半径)
    ( n# C# P0 ?& p" ?
26.         
    
27.         '复制圆,做为结果显示
    
28.         Obj圆.Copy
    
29.         
    
30.         '圆心右侧最小半径长度处为曲线起点
    
31.         Var点 = .Utility.PolarPoint(DblArr圆心, 0, Dbl最小半径)
    
32.         
    2 M+ Z2 P' Z0 q1 d5 P8 @. P1 g
33.         '记录曲线的第一个拟合点(起点)坐标
    
34.         DblArr样条曲线拟合点(0) = Var点(0): DblArr样条曲线拟合点(1) = Var点(1)
    / O3 I' Q1 X! r
35.         
    . x3 d, T. n" w/ j+ P& p# I
36.         For Lng拟合点循环变量 = 0 To Lng样条曲线拟合点数量 - 2
    
37.             For Lng计算分段循环变量 = 1 To Lng相邻拟合点间计算分段数量
    # s" t& P% y. {% n8 p8 M* V
38.             
    8 H' N& g5 l# }, y9 n/ P
39.                 '按半径计算夹角
    ( N) b* X& w+ ?) }
40.                 Dbl夹角 = (Obj圆.Radius - Dbl最小半径) / (Dbl最大半径 - Dbl最小半径) * (Dbl最大夹角 - Dbl最小夹角) _
    
41.                   + Dbl最小夹角
    ' Q2 u' p# g6 W/ {/ J0 K. @
42.                
    4 w# a$ m' ~3 b( c" ?6 g! l+ H
43.                 '以曲线上一个计算点为基点,用极坐标方法在规定角度和适当长度(按500,保证与圆相交)取点
    4 R* {2 {6 K# r* y0 ?, V
44.                 '以曲线上一个取样点为起点,上面取到的点为端点画辅助直线
    
45.                 Set Obj直线 = .ModelSpace.AddLine(Var点, _
    
46.                   .Utility.PolarPoint(Var点, _
    % A' K4 Z+ o! V" M
47.                     .Utility.AngleToReal(90 - Dbl夹角, acDegrees) + .Utility.AngleFromXAxis(DblArr圆心, Var点), 500))
    
48.                            
    ; h5 u# \. {( ?- p" W
49.                 '辅助圆半径增大一个增量单位
    . s, _7 }! b. E% j! h0 I
50.                 Obj圆.Radius = (Lng相邻拟合点间计算分段数量 * Lng拟合点循环变量 + Lng计算分段循环变量) _
    
51.                   / ((Lng样条曲线拟合点数量 - 1) * Lng相邻拟合点间计算分段数量) _
    
52.                   * (Dbl最大半径 - Dbl最小半径) + Dbl最小半径
    
53.                
    8 m) U6 }. ]9 O
54.                 '获得辅助直线与辅助圆的交点
    8 O2 Z+ V4 h2 I; ^
55.                 Var点 = Obj直线.IntersectWith(Obj圆, acExtendNone)
    
56.                
    1 F* A4 C; w- O0 L9 h" N
57.                 '删除辅助直线
    
58.                 Obj直线.Delete                        
    $ j3 q) }& {5 V$ u" V
59.             Next
    ' y4 d% r- L. W! T# K, F( L* {
60.             
    
61.             '记录拟合点坐标
    
62.             DblArr样条曲线拟合点(Lng拟合点循环变量 * 3 + 3) = Var点(0): DblArr样条曲线拟合点(Lng拟合点循环变量 * 3 + 4) = Var点(1)
    
63.         Next
    7 X  P$ n* d8 ]9 P  l) r
64.                
    
65.         '计算起点切向
    
66.         DblArr样条曲线起点切向(0) = Cos(.Utility.AngleToReal(90 - Dbl最小夹角, acDegrees))
    2 v1 n3 M% L/ j* g4 d
67.         DblArr样条曲线起点切向(1) = Sin(.Utility.AngleToReal(90 - Dbl最小夹角, acDegrees))
    
68.         
    
69.         '计算端点切向
    + R5 i6 M, m3 I+ V
70.         DblArr样条曲线端点切向(0) = Cos(.Utility.AngleToReal(90 - Dbl最大夹角, acDegrees) + .Utility.AngleFromXAxis(DblArr圆心, Var点))
    1 l. n: Y2 E4 g: y
71.         DblArr样条曲线端点切向(1) = Sin(.Utility.AngleToReal(90 - Dbl最大夹角, acDegrees) + .Utility.AngleFromXAxis(DblArr圆心, Var点))
    
72.         
    5 ^6 _7 k4 m3 I* i8 x
73.         '画曲线
    5 j0 z) p' f( _) x9 q/ l
74.         .ModelSpace.AddSpline DblArr样条曲线拟合点, DblArr样条曲线起点切向, DblArr样条曲线端点切向
    
75.     End With
    8 h6 Q, K6 a& [1 `# C8 s1 c

复制代码

benwang

首先非常感谢版主的解答!
2 e) F0 I6 h  N( c( V! ^% q# b2 v如果改成多段线,该代码又如何修改呢?

woaishuijia

1. 
   ! J) v+ X. _; R8 Q/ n, h' D+ ~
2.     Dim Dbl最小半径 As Double, Dbl最大半径 As Double, Dbl最小夹角 As Double, Dbl最大夹角 As Double
   
3.     Dim Lng优化多段线顶点数量 As Long, Lng相邻顶点间计算分段数量 As Long
   ' Z% M3 ^1 j" C) g3 r  U; L
4.     Dim Obj圆 As AcadCircle, Obj直线 As AcadLine, DblArr圆心(2) As Double, Var点 As Variant
   
5.     Dim Lng顶点循环变量 As Long, Lng计算分段循环变量 As Long, Dbl夹角 As Double
   
6.     Dim DblArr优化多段线顶点() As Double
   6 ^% W7 v* G: T* z4 k
7.    
   
8.     '设定优化多段线顶点数量,通常不大于500
   $ d; d5 y! p" h0 ~% L
9.     Lng优化多段线顶点数量 = 101
   / m% @; N$ n( l$ {9 D$ J+ ]. s
10.     '设定相邻顶点间计算分段数量
    
11.     Lng相邻顶点间计算分段数量 = 5
    : a  _- l  n3 e% p! L. \
12.     '数值越大,优化多段线精度相对越高,但运行时间越长
    * u. i% O5 w5 u; ^/ r" k- x8 e
13.    
    
14.     '按顶点数量重定义数组
    
15.     ReDim DblArr优化多段线顶点(Lng优化多段线顶点数量 * 2 - 1)
    . ?! R2 B5 `! z. A4 d: X
16.    
    
17.     '已知条件
    
18.     Dbl最小半径 = 250: Dbl最大半径 = 700: Dbl最小夹角 = 27: Dbl最大夹角 = 45
    ; q+ b( f, D4 i' j6 H
19.    
    2 B! m0 i6 v; z. c
20.     With ThisDrawing
    0 J8 d' ~- {) Z" Q* I
21.    
    
22.         '以坐标原点为圆心,最小半径为半径画一个辅助圆,其半径做为变量在以后计算中还要逐步更改
    
23.         Set Obj圆 = .ModelSpace.AddCircle(DblArr圆心, Dbl最小半径)
    
24.         
    
25.         '复制圆,做为结果显示
    
26.         Obj圆.Copy
    ) Z. ?! k) }+ m4 p  o' P  G+ |3 B, B
27.         
    
28.         '圆心右侧最小半径长度处为优化多段线起点
    
29.         Var点 = .Utility.PolarPoint(DblArr圆心, 0, Dbl最小半径)
    
30.         
      u$ x. c, ^- {" f! v3 q5 C
31.         '记录优化多段线的第一个顶点(起点)坐标
    
32.         DblArr优化多段线顶点(0) = Var点(0): DblArr优化多段线顶点(1) = Var点(1)
    2 g# N5 X' v. w* L
33.         
    
34.         For Lng顶点循环变量 = 0 To Lng优化多段线顶点数量 - 2
    8 v1 h7 j! U) D9 V# w9 E
35.             For Lng计算分段循环变量 = 1 To Lng相邻顶点间计算分段数量
    
36.             
    " d" \3 R: v3 O% m
37.                 '按半径计算夹角
    ; g3 t' }( \" a8 p! `# k; \
38.                 Dbl夹角 = (Obj圆.Radius - Dbl最小半径) / (Dbl最大半径 - Dbl最小半径) * (Dbl最大夹角 - Dbl最小夹角) _
    $ x9 A* C9 Y- E- h/ j& K
39.                   + Dbl最小夹角
    
40.                
    
41.                 '以曲线上一个计算点为基点,用极坐标方法在规定角度和适当长度(按500,保证与圆相交)取点
    0 \8 i: w: q/ o3 D+ d
42.                 '以曲线上一个取样点为起点,上面取到的点为端点画辅助直线
    
43.                 Set Obj直线 = .ModelSpace.AddLine(Var点, _
    & l  `  {' K1 n5 @( Z
44.                   .Utility.PolarPoint(Var点, _
    ! l1 O5 p0 W% K9 a# k* ~
45.                     .Utility.AngleToReal(90 - Dbl夹角, acDegrees) + .Utility.AngleFromXAxis(DblArr圆心, Var点), 500))
    
46.                            
    
47.                 '辅助圆半径增大一个增量单位
    $ u0 P, I4 t$ j0 [/ ?- t# _; j% t6 d
48.                 Obj圆.Radius = (Lng相邻顶点间计算分段数量 * Lng顶点循环变量 + Lng计算分段循环变量) _
    4 O# @5 j: ^% P1 W; V. i
49.                   / ((Lng优化多段线顶点数量 - 1) * Lng相邻顶点间计算分段数量) _
    $ I% f2 R5 A# ~! ]
50.                   * (Dbl最大半径 - Dbl最小半径) + Dbl最小半径
    ; M" N9 c" n7 w3 m' E% W
51.                
    
52.                 '获得辅助直线与辅助圆的交点,即为本次循环要找的取样点
    3 ?+ n7 M/ j" v  f: Q; h
53.                 Var点 = Obj直线.IntersectWith(Obj圆, acExtendNone)
    ( P/ E! ]9 h0 K! h# n/ @
54.                
    
55.                 '删除辅助直线
    
56.                 Obj直线.Delete
    & |, @! _- k3 l: _+ M' Q
57.             Next
    
58.             
    
59.             '记录顶点坐标
    - ~( G# }+ H$ r; L- \$ U6 u. C( ?
60.             DblArr优化多段线顶点(Lng顶点循环变量 * 2 + 2) = Var点(0): DblArr优化多段线顶点(Lng顶点循环变量 * 2 + 3) = Var点(1)
    # r, Z2 y. p/ ^) I- f' o
61.         Next
    
62.         
    ! w; s  C- R: ~) y9 }3 Q
63.         '画多段线
    4 Y6 a1 l6 @& u+ x9 B/ [
64.         .ModelSpace.AddLightWeightPolyline DblArr优化多段线顶点
    ) Q0 J6 O# U7 j6 g0 j1 d1 W
65.     End With
    8 T' ?% Q8 e; U: ^" e2 f

复制代码

eway0696

好东西啊  高手

yangyangzo

超感谢，我们老师让我们做这个FLUENT，是一个二维离心泵的模拟，但是资料书，里面只是说由四段圆弧构成，就没有了，不知道怎么画！