这题求过程！

错失太易

这题还是不会啊！求个过程！
9 }% w5 q$ g: |# A
3 W2 G7 g/ y2 J  p1 z0 D+ N7 F注意事项：
$ u3 B9 b6 @- h1 ?1. 2个R大小相等
2. 2个R与水平线和斜线相切；
7 t# b6 d# n( s( X, E3. 长446的水平线端点在斜线上。
4. 上下2条水平线的尺寸标注是指在水平线与R的切点上。

馋猫咪

要相切的R,无解!

独孤缈

R=20.10958904
不知道对不对

linduyu_y

楼上厉害！

zzzzzzzzzz

原帖由 错失太易 于 2008-10-17 17:47 发表
这题还是不会啊！求个过程！
; Y/ C4 k5 ]! e) D3 a
, Y/ g  G/ c+ L5 z7 w2 \6 \注意事项：
" g1 g0 V: d; Y& |/ c3 }$ X. ]1. 2个R大小相等
1 S5 [" ~& @" j( ]( ?+ H" o2. 2个R与水平线和斜线相切；
3. 长446的水平线端点在斜线上。
4. 上下2条水平线的尺寸标注是指在水平线与R的切点上。

woaishuijia

3楼和5楼都是错的,正确答案应为R20.18737523
  I% C/ s9 y1 y# E+ z

1. Sub A()
   : g' g$ I; O' q
2.     Dim L1 As AcadLine, L2 As AcadLine, L3 As Variant, P1(2) As Double, P2(2) As Double, P3 As Variant, R As Double, R1 As Double, R2 As Double
   
3.     With ThisDrawing
   
4.         '画中间水平直线,起点(0,0),端点(-446,0)
   
5.         P2(0) = -446#
   
6.         Set L1 = .ModelSpace.AddLine(P1, P2)
   * t$ [1 ], f% b: m4 J/ r  L0 u
7.         
   & |- |' x/ W8 s' \
8.         '画右侧垂直直线,起点(0,-200),端点(0,165)
   ) _' N  U2 m8 ?, i5 V
9.         P1(1) = -200#
   
10.         P2(0) = 0#
    
11.         P2(1) = 165#
    
12.         .ModelSpace.AddLine P1, P2
    
13.         
    6 f+ T1 F$ o% A  W' s& T4 U8 N
14.         '画底部水平直线,起点(0,-200),端点(-450,-200)
    , _# C8 R6 ]9 v$ V8 p9 `( H9 [
15.         P2(0) = -450#
    
16.         P2(1) = -200#
    
17.         .ModelSpace.AddLine P1, P2
    
18.         
    
19.         '画顶部水平直线,起点(0,165),端点(-406,165)
    
20.         P1(1) = 165#
    ' j. \! _+ P! ?: ~1 P9 T. r/ `
21.         P2(0) = -406#
    , H" @8 U8 O; p  U
22.         P2(1) = 165#
    9 {5 `6 d+ [& h: j: l9 C2 }
23.         .ModelSpace.AddLine P1, P2
    
24.         
    0 c4 i0 A8 Q, `, C9 d- X
25.         '左下角圆弧圆心横坐标-450,纵坐标在后面的代码中寻找
    - @! m$ `5 R) J. S8 K& u( P
26.         P1(0) = -450#
    
27.         
    ; \2 c2 b$ w2 f
28.         '左上角圆弧圆心横坐标-406,纵坐标在后面的代码中寻找
    4 `. u$ c: i9 L! p
29.         P2(0) = -406#
    ! D8 E7 i9 v% I- G3 `
30.         
    
31.         '随便画一条直线,供后面代码做为辅助线使用,
    . G3 y$ s! M. h
32.         Set L2 = .ModelSpace.AddLine(P1, P2)
    
33.         
    / p7 x3 t+ U  o& U  @7 W7 e9 G1 S
34.         '在0到100之间寻找圆弧的半径
    ) a$ q) E  v# J. b$ `" I
35.         R1 = 0#
    . O  I" m( R/ L9 h$ p
36.         R2 = 100#
    
37.         
    % C9 u+ }( E( }. Y8 j* S
38.         '用循环语句反复尝试.寻找正确的圆弧半径
    
39.         Do
    
40.         
    * s9 ]% F6 Y5 [6 T
41.             '把范围的中间值做为半径尝试
    
42.             R = (R1 + R2) / 2#
    " m1 e( P+ ]* X$ m" j3 U/ n9 v* k
43.             
    2 A8 ^$ f# A/ w# v9 D, L2 ?( Z
44.             '左下角圆弧圆心纵坐标-200+R
    
45.             P1(1) = -200# + R
    6 Q, t; n3 T1 M
46.             
    $ j6 v- c1 D" r8 M! ~
47.             '左上角圆弧圆心纵坐标165-R
    
48.             P2(1) = 165# - R
    
49.             
    3 H9 Z9 z+ H; E- f
50.             '把左下角圆弧的圆心做为辅助线的起点
    ; p* t+ k1 Q7 A  T
51.             L2.StartPoint = P1
    
52.             
    
53.             '把左上角圆弧的圆心做为辅助线的端点
    1 o8 ]/ S' U; ]; @0 l
54.             L2.EndPoint = P2
    ' w0 X/ d7 c' L- E
55.             
    4 L2 u' K* y9 ?- p6 h4 I) U7 ~
56.             '偏移辅助线R距离,得到左侧斜线
    
57.             L3 = L2.Offset(R)
    5 r! p2 S# I* o$ E
58.             
    
59.             '得到左侧斜线与中间水平直线的交点
    3 @: t/ c) T' }6 B8 ?/ S
60.             P3 = L1.IntersectWith(L3(0), acExtendThisEntity)
    
61.             
      m9 @/ z: w, l* Q3 F$ C" D3 A
62.             '如果交点的横坐标为-446,或者寻找范围已缩到最小(即达到CAD计算极限),则可以认为已找到合理的圆弧半径,退出循环向下进行
    $ r6 l* U" p; E# A% Y
63.             If P3(0) = -446# Or R = R1 Or R = R2 Then
    
64.                 L2.Delete '删除辅助线
    ; j9 o# c$ G+ G/ [
65.                 Exit Do '退出循环
      t, k" T6 B+ a0 C' ], g9 C
66.                
    
67.             '如果不符合上面的条件,交点的横坐标小于-446(交点位于中间水平直线端点的左侧),说明尝试的圆弧半径大了.
    
68.             '把这个半径做为寻找范围的新的较大一侧的边界,缩小范围,向较小的方向继续尝试
    
69.             ElseIf P3(0) < -446# Then
    , K& J$ ^  C0 }% n
70.                 R2 = R
    3 n$ n1 G' W2 r8 {; R$ U4 D1 ?3 u
71.                
    ( N) m9 n% ?; |, ]: y; w1 l( D/ e  Q
72.             '如果上面的条件都不符合,说明交点位于中间水平直线端点的右侧,尝试的圆弧半径小了.
    4 e8 V6 F& R7 Z. a4 I5 ~. c$ Z
73.             '把这个半径做为寻找范围的新的较小一侧的边界,缩小范围,向较大的方向继续尝试
    ( f# s5 k  x8 _  ?) u
74.             Else
    ) H7 V7 b5 Q& v4 l2 @
75.                 R1 = R
    
76.             End If
    
77.             
    
78.             '删除偏移所得的斜线
    + c) z" F& k7 H' k. m% r6 `
79.             L3(0).Delete
    
80.         Loop
    
81.         
    
82.         '正确的圆弧半径和圆心位置已找到,下面分别画两个圆弧
    
83.         '左下角圆弧起点角度为圆心到斜线起点的角度,端点角度为270度
    % g( ~" o" A: s- z
84.         .ModelSpace.AddArc P1, R, .Utility.AngleFromXAxis(P1, L3(0).StartPoint), .Utility.AngleToReal("270", acDegrees)
    
85.         
    
86.         '左上角圆弧起点角度为90度,端点角度为圆心到斜线端点的角度
    ! V/ ~) b# t8 n/ T+ y
87.         .ModelSpace.AddArc P2, R, .Utility.AngleToReal("90", acDegrees), .Utility.AngleFromXAxis(P2, L3(0).EndPoint)
    7 v0 e- x: d' s8 ]) \
88.     End With
    
89. End Sub 'OK了

复制代码

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

错失太易

原帖由 woaishuijia 于 2008-10-18 14:10 发表
8 H& F+ V* V+ n* o1 r3楼和5楼都是错的,正确答案应为R20.18737523
Sub A()
( x% P) t2 v+ `; z* F# H0 |1 }    Dim L1 As AcadLine, L2 As AcadLine, L3 As Variant, P1(2) As Double, P2(2) As Double, P3 As Variant, R As Double, R1 As Double, R2 As Double ...

朋友能贴个gif录像上来吗？这么多字看着头晕
这里有教怎么搞录像！http://www.askcad.com/bbs/thread-8368-1-1.html

liuyu0125

厉害~~~

jszj

原帖由 zzzzzzzzzz 于 2008-10-18 01:31 发表
8 B( l% r* i. R/ v; b- t" _- @

Z版啊～～你方法不能保证2R的相等～～

jszj

运行了６楼的ＶＢＡ其结果：