如何快速作出此难题

gege613

( `6 E- |* E& N3 W) E8 v
' t. T$ c* o3 d6 g6 T; E$ w" A如何快速作出此难题，用CAD2010约束也许简单，如果不用约束呢。

liboloveg

控制住距离以后定弧长，貌似还没有这样的约束。期待高手解决，关注中。

woaishuijia

这个图没有几何画法.AutoCAD的约束也不能约束弧长.只能用近似画法.
  F6 V9 }* h8 R& h/ h" v; T2 M, H比较实用的方法一个是计算,即先算出结果再按结果画图.比如用EXCEL的单变量求解,算出弧的角度约为65.41920502度,按此角度画出任意半径的弧后,再缩放到合乎要求的尺寸.
+ r8 R+ f* R8 |% m) |

! X" r: M0 J0 Q; P还有一个方法就是编程.实质上是用计算机的迭代运算代替人工尝试的逼近法,或者说是一种自定义的约束.下面是画本图的VBA代码

1. 
   
2. Sub HT()
   . O* a3 O$ p9 a8 ?. e' d  w
3.     Dim Arc As AcadArc, C(2) As Double, A As Double, A1 As Double, A2 As Double, H As Double
   " [" ~- S: b4 H: Y" T# l* N0 g
4.     With ThisDrawing
   6 B# j* w" t0 N+ [
5.         Set Arc = .ModelSpace.AddArc(C, 1, 0, 0)
   
6.         A2 = ThisDrawing.Utility.AngleToReal(180, acDegrees) * 2
   % H8 n# ]4 r& H+ g5 {. D
7.         Do
   $ ^) x6 V' E) A4 z2 ~7 |* I' E
8.             A = (A1 + A2) / 2
   
9.             Arc.StartAngle = (.Utility.AngleToReal(180, acDegrees) - A) / 2
   4 L( v% r$ o6 ^3 U4 |$ b0 q% _
10.             Arc.EndAngle = Arc.StartAngle + A
    $ G' U9 k9 l& Q6 t
11.             Arc.ScaleEntity C, 888.888 / Arc.ArcLength
    - F! Y% B2 L2 F
12.             H = Arc.Radius - Arc.StartPoint(1)
    . L; ~. [. Q8 T/ e+ f5 r
13.             If H = 123.456 Or A = A1 Or A = A2 Then
    + Y* W5 e! q; o  a& |
14.                 Exit Do
    . u/ f0 ]. ?1 }$ k+ G( f& T; Z
15.             ElseIf H > 123.456 Then
    
16.                 A2 = A
    + O  ~+ ]$ e5 d- c; J, e
17.             Else
    
18.                 A1 = A
    
19.             End If
    
20.         Loop
    4 `2 H' L: r. p
21.         .ModelSpace.AddLine Arc.StartPoint, Arc.EndPoint
    
22.     End With
    
23. End Sub
    5 Q! q9 j8 H- p  u1 z* @

复制代码

. `2 `% v7 M0 b7 D* S" E7 w还有其它方法也可以近似地画出这个图来,欢迎大家进一步讨论.

for-mar

楼主可以看下该帖：
http://www.3dportal.cn/discuz/vi ... hlight=%BB%A1%B3%A4

2005llnn

复习一下：“精确选点法”解CAD几何作图难题
通过拉伸可以快速作出此题。
% w# N) p& D" g( {- c" S1、CAD圆弧的特性：如果两端点在同一水平线上，沿水平方向拉伸其中一个端点，圆弧中点在垂直方向会有变化，
% c' c) s: f2 Z) T/ z: `9 c圆弧中点在水平方向移动的距离等于拉伸其中一个端点沿水平方向移动的距离的一半。
6 i1 B, M9 C" ^& L拉伸圆弧的中点，圆弧的中点只在垂直方向移动。
% y; B( A2 Y: m+ Q2、点选圆弧，打开特性表，圆弧弧长在特性表中会显示出来。
4 j; [( |1 m  b) c; ?6 C3、作图方法：
作一水平线，在水平线中点分别作两条长123.456的垂直线。
3 h) ]5 v4 G- a4 P通过三点作出圆弧。
; E+ y: x, K$ I; ]4 I5 E4 D根据特性表显示圆弧弧长来确定拉伸圆弧其中一个端点的移动的距离。
4 A  p- }+ J4 x/ x将两垂直线沿水平方向移动距离=端点移动的距离一半。
拉伸圆弧的中点到其中一条垂直线的端点。

5 Z, |) \: Y) |; J: V/ l1 h反复几次就达到精度要求。
- j- ^  D2 T; C+ L4 k标注尺寸进行核对。

zhaozhihui

佩服5#的做法！

wangxiaobo

三点可以画出一个圆，cad上有这个功能，利用A尺寸的两端（这是两个点）和标出的高度尺寸（这是有一个点），很容易画出那个圆弧。

xyzyshl

应该 有几何解，在明经见过类似的题，不过我是个菜鸟。