这题求过程！

错失太易

这题还是不会啊！求个过程！

注意事项：
1. 2个R大小相等
2 F8 r. ?% Q5 F& F$ m2. 2个R与水平线和斜线相切；
  w/ L- T$ ?3 X, G, X( ]: a8 c3. 长446的水平线端点在斜线上。
+ F7 e4 d- c6 |/ n) d$ M4 ~4. 上下2条水平线的尺寸标注是指在水平线与R的切点上。

馋猫咪

要相切的R,无解!

独孤缈

R=20.10958904
不知道对不对

linduyu_y

楼上厉害！

zzzzzzzzzz

原帖由 错失太易 于 2008-10-17 17:47 发表
这题还是不会啊！求个过程！
# m2 @# ^; {* D% |2 f
  A. B! {' |, y* x注意事项：
1. 2个R大小相等
2. 2个R与水平线和斜线相切；
8 }( J' R) l; c7 J. K! R+ U3. 长446的水平线端点在斜线上。
' p/ m8 Q- b5 r$ ]1 Y; |% |: p  H4. 上下2条水平线的尺寸标注是指在水平线与R的切点上。

woaishuijia

3楼和5楼都是错的,正确答案应为R20.18737523
  X% k% C$ Z4 }$ f

1. Sub A()
   
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
   2 H  S+ g# [4 \
3.     With ThisDrawing
   
4.         '画中间水平直线,起点(0,0),端点(-446,0)
   ) a) ^, |/ [# l5 P, h
5.         P2(0) = -446#
   
6.         Set L1 = .ModelSpace.AddLine(P1, P2)
   * c0 C3 Q# m3 f2 O4 \- h- `
7.         
   
8.         '画右侧垂直直线,起点(0,-200),端点(0,165)
   $ S0 {( i) D, U
9.         P1(1) = -200#
   
10.         P2(0) = 0#
    / e' ?' |! i7 y
11.         P2(1) = 165#
    / w6 D/ y3 Z2 D  s& a7 x7 B- @2 u
12.         .ModelSpace.AddLine P1, P2
    ( X% {" u: W0 S1 }# N
13.         
    ! o. U( h8 S$ u' L2 A- c! i# p
14.         '画底部水平直线,起点(0,-200),端点(-450,-200)
    # i# v; @4 H' H. ]/ E+ k
15.         P2(0) = -450#
    
16.         P2(1) = -200#
    
17.         .ModelSpace.AddLine P1, P2
    
18.         
    % r5 L) l2 \" n8 S
19.         '画顶部水平直线,起点(0,165),端点(-406,165)
    & }5 G+ W2 f) E7 S5 T, ]3 g
20.         P1(1) = 165#
      n1 h' i; `; Z6 \
21.         P2(0) = -406#
    
22.         P2(1) = 165#
    
23.         .ModelSpace.AddLine P1, P2
    
24.         
    
25.         '左下角圆弧圆心横坐标-450,纵坐标在后面的代码中寻找
    
26.         P1(0) = -450#
    
27.         
    
28.         '左上角圆弧圆心横坐标-406,纵坐标在后面的代码中寻找
    
29.         P2(0) = -406#
    * E1 M0 f* Q. z* u. M1 B0 x
30.         
    & l1 c7 J. a$ @* h9 k6 y* c3 Z
31.         '随便画一条直线,供后面代码做为辅助线使用,
    & P' w" s- z9 p) r$ i
32.         Set L2 = .ModelSpace.AddLine(P1, P2)
    ) o+ U, P5 E0 ^9 R. ^: w% M; s1 w
33.         
    2 P8 k( E7 v7 ^+ l7 G( }
34.         '在0到100之间寻找圆弧的半径
    
35.         R1 = 0#
    % e9 e  S/ S2 T% ~3 q7 F
36.         R2 = 100#
    
37.         
    6 h/ U! i- N4 s2 d( D- ^0 i1 y
38.         '用循环语句反复尝试.寻找正确的圆弧半径
    
39.         Do
    5 W+ K# n6 @( ~) p2 `+ N
40.         
    
41.             '把范围的中间值做为半径尝试
    
42.             R = (R1 + R2) / 2#
    
43.             
    
44.             '左下角圆弧圆心纵坐标-200+R
    2 u6 M% t- E0 C/ q
45.             P1(1) = -200# + R
    % T# V( P8 A8 _
46.             
    
47.             '左上角圆弧圆心纵坐标165-R
    " B$ h3 y' j1 s5 X* c
48.             P2(1) = 165# - R
    : E2 w* _! a) r& [2 e: [
49.             
    4 k9 b4 a7 s- K9 j' @; `1 }
50.             '把左下角圆弧的圆心做为辅助线的起点
    3 M+ e/ P( m' `0 C% @
51.             L2.StartPoint = P1
    
52.             
    
53.             '把左上角圆弧的圆心做为辅助线的端点
    
54.             L2.EndPoint = P2
    $ m0 \- Z4 H( X: }. t/ ~9 V, P
55.             
    0 K$ Z. `) T! ~' }
56.             '偏移辅助线R距离,得到左侧斜线
    
57.             L3 = L2.Offset(R)
    : o  P& M! F! c
58.             
    ; ^/ P; }6 K; E; a
59.             '得到左侧斜线与中间水平直线的交点
      x. u. R- z* M: h
60.             P3 = L1.IntersectWith(L3(0), acExtendThisEntity)
    
61.             
    ' J9 h) n8 G4 ^3 r
62.             '如果交点的横坐标为-446,或者寻找范围已缩到最小(即达到CAD计算极限),则可以认为已找到合理的圆弧半径,退出循环向下进行
    
63.             If P3(0) = -446# Or R = R1 Or R = R2 Then
    , g1 ^0 ~% O- k1 d: b
64.                 L2.Delete '删除辅助线
    5 |5 E8 h. D! k+ m% U% w/ O$ M$ t
65.                 Exit Do '退出循环
    ) w. o+ v. Q0 K( E
66.                
    3 }! ~6 H0 U8 @; x  H' h
67.             '如果不符合上面的条件,交点的横坐标小于-446(交点位于中间水平直线端点的左侧),说明尝试的圆弧半径大了.
    
68.             '把这个半径做为寻找范围的新的较大一侧的边界,缩小范围,向较小的方向继续尝试
    
69.             ElseIf P3(0) < -446# Then
    
70.                 R2 = R
    
71.                
    
72.             '如果上面的条件都不符合,说明交点位于中间水平直线端点的右侧,尝试的圆弧半径小了.
    
73.             '把这个半径做为寻找范围的新的较小一侧的边界,缩小范围,向较大的方向继续尝试
    ; R. N1 `. v& w3 z* l, y  X
74.             Else
    
75.                 R1 = R
    : e0 [# P, e/ c! W; ]2 H6 G
76.             End If
    - d* K: w, H* J! y% I' S! N3 m
77.             
    
78.             '删除偏移所得的斜线
    
79.             L3(0).Delete
    6 x, N3 {, ~- O) p
80.         Loop
    
81.         
    
82.         '正确的圆弧半径和圆心位置已找到,下面分别画两个圆弧
    % `$ |: n; A1 K! F8 h" B
83.         '左下角圆弧起点角度为圆心到斜线起点的角度,端点角度为270度
    
84.         .ModelSpace.AddArc P1, R, .Utility.AngleFromXAxis(P1, L3(0).StartPoint), .Utility.AngleToReal("270", acDegrees)
    
85.         
    
86.         '左上角圆弧起点角度为90度,端点角度为圆心到斜线端点的角度
    
87.         .ModelSpace.AddArc P2, R, .Utility.AngleToReal("90", acDegrees), .Utility.AngleFromXAxis(P2, L3(0).EndPoint)
    # `& X5 `$ f" K9 S2 q$ z
88.     End With
    
89. End Sub 'OK了

复制代码

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

错失太易

原帖由 woaishuijia 于 2008-10-18 14:10 发表
0 @5 B4 m' K/ \; C8 e8 {3楼和5楼都是错的,正确答案应为R20.18737523
Sub A()
/ u! b" e: ?& F0 Z7 N1 T    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 ...

1 n" f0 b" ~# l- h1 O( y
5 G' Q9 B% r3 q& N( E朋友能贴个gif录像上来吗？这么多字看着头晕
这里有教怎么搞录像！http://www.askcad.com/bbs/thread-8368-1-1.html

liuyu0125

厉害~~~

jszj

原帖由 zzzzzzzzzz 于 2008-10-18 01:31 发表

7 A8 B7 U' q) l& j
' O! T/ `" _8 \8 R5 }& ^' d- f+ `Z版啊～～你方法不能保证2R的相等～～

jszj

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