CAD题目绝对精典(有难度哦)

这东东,手工画过图的都搞得出

上面的大哥,做给小弟看一下嘛`~我想看一下做图方法(我都想了两天了)

9楼不是给了方法吗

这样做出来的精度不准呀~~?

用三角函数算，可以算准

楼上大哥,能不能只接用CAD画出来,不用什么公式去算呀!!

这个看起来像平面解析几何

这个用PRO-E画特容易,不过CAD就不会了,呵呵!

我通过几何立体作图做了一个，大家悄悄看，不过还是要计算，但是多了一个方法 (如下图)

作图的时候，EF的距离可以随便给，不影响结果，品色的两条线是圆从小到大的焦点轨迹，青色线为圆心轨迹。

     60                        ab                 
----------------  = -------------------------------
2*100*tan36            ac

ac的距离可以量，得到b点 做bG垂直EF，得到3点，画圆即可。

在CAD里搞个小编程,不算违规吧.

  Dim i As Double 'BY icax-cooltie
  a = 0.5
  b = 1
  Dim tempC(0 To 2) As Double
  Dim tempCir As AcadCircle
  Dim r As Double
  Set tempCir = ThisDrawing.ModelSpace.AddCircle(tempC, r + 0.1)
  Dim ip As Variant
  Dim dis As Double
  Do
  i = (a + b) / 2
  tempC(0) = l1.StartPoint(0) + (l1.EndPoint(0) - l1.StartPoint(0)) * i
  tempC(1) = l1.StartPoint(1) + (l1.EndPoint(1) - l1.StartPoint(1)) * i
  r = l1.Length * i
   tempCir.Delete
  Set tempCir = ThisDrawing.ModelSpace.AddCircle(tempC, r)
  
    ip = tempCir.IntersectWith(L2, acExtendThisEntity)
    dis = Sqr((ip(0) - ip(3)) ^ 2 + (ip(1) - ip(4)) ^ 2)
    If dis > 60 Then
      b = i
    Else
      a = i
    End If
  Loop Until Abs(dis - 60) < 0.00001