实际工作中遇到的问题，求图中L长

zhgq

实际工作中遇到的问题，求图中L长
附图

发不了图片，只能把图片压缩了上传，请大家谅解。

我希望采用cad直接绘制，不采用3维软件或计算得到结果。

[ 本帖最后由 zhgq 于 2009-6-22 16:02 编辑 ]

xiaoxia302

我来贴个图吧

gxp1014

既不用公式计算，又不用几何画法求解；
& H9 G0 C: L+ ~# g: O俺认为没法做...
, x4 ?/ N1 D' h% J请问：钩三股四弦五行吗？

daniel_008

刚画了下，感觉少了角度尺寸，请高手指点！

2005llnn

采用一种新方法“精确选点法”解CAD难题就很简单



下面是最后几步的动画演示，精度为小数点后2位，如果要更加精确的，可以通过放大图形来作图。

* g! H7 ~5 Y! l- Y7 z+ s: L- U3 f
4 Z7 o1 s2 ^: g& R( R[ 本帖最后由 2005llnn 于 2009-6-23 16:46 编辑 ]

czy12

这种题就如象棋摆局一样。
根本不是什么工作实际碰到的问题。
这种题俗称“杯中筷子”，可用三维园锥求抛物线（但我并不认为这是平面几何作图的范畴）
如果你会约束，那就是几十秒的事。
/ \. C5 d3 A2 b4 a( a3 M. o
" ~$ c' R( s5 C[ 本帖最后由 czy12 于 2009-6-22 19:26 编辑 ]

lqj65

不经过计算角度，直接用cad绘制出L值，试了半天，找不出好的办法，可能无法画出。

woaishuijia

这个图没有二维几何画法，到目前为止我们知道的唯一符合数学原理的画法是三维空间的圆锥画法，其它还有逼近（如6楼）、计算、约束等方法也可以画出令人满意的结果－－尽管从原理上都属于近似方法。
7 G5 ?/ v* H' Q3 d& B/ Q9 ]一、三维圆锥画法
在世界坐标系画三条直线如图。其中237.5和208都是已知条件，较长的两条直线画法很简单，最短的直线可以先计算出长度再画，也可以用'cal透明命令输入算式画，也可以先画出长度为10816的直线后再参照缩放为原长度的237.5分之一
" \  F& S6 O8 Z: j8 R
6 b  o+ a$ K2 Z3 Y6 W9 D
1 T' F8 P7 t) @0 J
进入主视图，从原点出发画一个闭合多段线的等腰直角三角形如图，直角边长150（画大一点以免后面不够用）
( T# f6 J1 h' C' Y$ [0 P& K

( E3 }8 \9 T5 l; J! z# z; I) c8 @
把闭合多段线旋转建模成为三维圆锥实体



) ?. N+ e, Q: ^% @以圆锥顶点为基点，把圆锥移到长度为118.75直线的端点
; D' C0 w# h4 Z/ k6 G9 Q3 E. \

. h" y2 `+ _/ @% x2 C
用过原点的主视图ZX平面剖切圆锥，保留其中的一半
' C4 c* ?+ x. I2 ~' ?; |4 n" r6 K
2 d% B: H# n$ y$ U" C

回到世界坐标系，以原点为圆心、半径8画圆
$ ~: Z* M6 t( z. h- r


把圆压印到实体上


* A' j6 \$ w; `& Y2 ^, {6 l$ {! @/ n
从圆心到圆与实体交点画直线，这就是楼主图形中长度为8的直线
1 g" H8 T: w3 v' V


在此基础上画出其余图形并得到最终结果
% [- Y, D  E# {+ S9 e" W

5 G" Z6 Z% ~& p& l2 N! {' \
二、轨迹法（逼近法的一种）
画长度237.5水平直线（下面有标注的），在如图位置画R8圆，从长度237.5直线左端向圆引切线，如图
" G. G( y- n4 h6 B$ W. |. V4 I
' D/ D* u1 Q' ?0 V9 [

把圆向左移动5，再引切线



6 r/ ]# k$ d9 U) k/ V1 x/ d0 `再把圆向左移动5，再引切线
1 k/ |' L8 n5 N& [; W9 `, U


过三条直线的端点画样条曲线



: w9 S2 k. o; z) L& j' h4 t% h样条曲线与右侧垂直直线的交点即为近似的结果。



三、编程
4 `$ R) h/ d) a2 V2 C; ]实际上也是逼近法的一种，只不过是换成计算机来操作，速度快、精度高。下面代码是VBA程序

1. 
   ( c" [  k- b& b/ `* o$ y- z
2.     Dim L1 As AcadLine, L2 As AcadLine, P(2) As Double, M As Double, N As Double
   
3.     With ThisDrawing
   
4.         Set L1 = .ModelSpace.AddLine(P, P)
   4 v4 M; r& F  u3 O# z" n+ V
5.         Set L2 = .ModelSpace.AddLine(P, P)
   * C  I5 ^3 z4 W5 R
6.         P(0) = 237.5
   9 W& H7 Y, _- V$ D1 S
7.         N = 208
   
8.         Do
   
9.             P(1) = (M + N) / 2
   7 `1 g( M1 h" u3 Y, `
10.             L1.EndPoint = P
    ; O, s( a, x+ _/ V: y
11.             L2.StartPoint = L1.EndPoint
    " {+ ]. w+ Y2 x. ]& F: n8 f$ f1 |
12.             L2.EndPoint = .Utility.PolarPoint(L1.EndPoint, L1.Angle + .Utility.AngleToReal(90, acDegrees), 8)
    2 D. s' k* h" X1 N4 }
13.             If L2.EndPoint(1) = 208 Or P(1) = M Or P(1) = N Then
    
14.                 Exit Do
    
15.             ElseIf L2.EndPoint(1) < 208 Then
    
16.                 M = P(1)
    $ U+ C' K1 i: K" L6 N' `4 U
17.             Else
    
18.                 N = P(1)
    * T7 t0 ?7 C- N6 p. v0 e' |. I
19.             End If
    
20.         Loop
    
21.     End With
    ) N' h) d, f& t( {

复制代码

四、计算
根据相似三角形原理和勾股定理列出方程

' ?9 p6 W; U/ K, `& P7 [8 a

! {! g( i% I. \2 [整理得

- r9 x; |) }! ?
. n4 v) y/ [! e$ a. y
下面既可以用解方程软件计算（这样的软件有多种，本坛『电脑软硬件交流』区就有），也可以用EXCEL软件的单变量求解功能，如下图
$ f4 B7 k, q, ]7 T, N8 E6 W, k* p
9 q) j  ^" G) l) U0 G) c, Y3 \) i

E1单元格显示的就是计算结果，可以据此画出图形


: Z3 K8 `  |9 |' w, w
3 {9 d# v% K, P6 g五、约束
如果仅仅是要求结果，MDT和CAD2010的约束功能易学易用，相信更能被多数使用者接受。下面是2010版的约束
随便画两条直线如图

7 v$ A: s3 g$ M7 ]0 ~8 M  f! Z. K' k

. J; X$ V) U8 b& z  J) x# y4 O1 s用几何约束的“重合”约束两直线的相应端点
' O% k& p' H1 [) v. Z0 x3 S$ r
  b! ]' n' f# m: ]

用几何约束的“垂直”约束两直线



用标注约束的“对齐”约束长度应为8的直线两端点



. u* [  p* j4 C  [" a分别用标注约束的“水平”和“竖直”约束相应的端点，从而得到最终结果

, b- D2 |* t7 Z# g, G- @% D6 Q4 {( {. m

" d% G  M* }; l* J3 k[ 本帖最后由 woaishuijia 于 2009-6-23 10:50 编辑 ]

CPG

想了半天都没想出来，楼上一下子有这么多解法，惭愧

daniel_008

谢谢9楼的朋友提供的方法，授教了，谢谢！

zhgq

谢谢大家提供这么多的方法。