QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 1973|回复: 7
收起左侧

[讨论] 如何快速作出此难题

[复制链接]
发表于 2010-8-4 15:22:28 | 显示全部楼层 |阅读模式 来自: 中国广西南宁

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
本帖最后由 gege613 于 2010-8-4 15:26 编辑 3 T3 K) r- j8 X
7 h/ d- E( Y& u0 M# y
如何快速作出此难题,用CAD2010约束也许简单,如果不用约束呢。
613.jpg

评分

参与人数 1三维币 +10 收起 理由
2005llnn + 10 提供作图讨论

查看全部评分

发表于 2010-8-5 08:14:42 | 显示全部楼层 来自: 中国北京
控制住距离以后定弧长,貌似还没有这样的约束。期待高手解决,关注中。
发表于 2010-8-5 12:52:09 | 显示全部楼层 来自: 中国辽宁铁岭
这个图没有几何画法.AutoCAD的约束也不能约束弧长.只能用近似画法.
& x- i3 g9 y( k2 Z  u比较实用的方法一个是计算,即先算出结果再按结果画图.比如用EXCEL的单变量求解,算出弧的角度约为65.41920502度,按此角度画出任意半径的弧后,再缩放到合乎要求的尺寸.; }+ Q0 ?; o; k
Untitled-1.gif ; o  d  J: k2 ^3 E/ u0 r% z
/ ^6 J6 @, {. o$ X) ?4 ~
还有一个方法就是编程.实质上是用计算机的迭代运算代替人工尝试的逼近法,或者说是一种自定义的约束.下面是画本图的VBA代码
/ {* D" V+ [% s7 V
  1. 1 a& g0 A1 ^  R
  2. Sub HT()
    , U/ O0 ~# z3 ?
  3.     Dim Arc As AcadArc, C(2) As Double, A As Double, A1 As Double, A2 As Double, H As Double% i2 n. p$ P4 p3 r) j0 y" u: E
  4.     With ThisDrawing
    2 K- @0 f: Q, [: w
  5.         Set Arc = .ModelSpace.AddArc(C, 1, 0, 0): @( {# p/ E7 H9 `6 i9 l  K# l" }  O
  6.         A2 = ThisDrawing.Utility.AngleToReal(180, acDegrees) * 20 ~7 F. ]7 F$ i+ o
  7.         Do. x) B3 u- Z7 s2 m) p
  8.             A = (A1 + A2) / 2
    , p. p: ]' k& E) ^4 O6 ^( L, A5 n
  9.             Arc.StartAngle = (.Utility.AngleToReal(180, acDegrees) - A) / 2
    1 [1 @( U/ K6 `3 k$ d" ^
  10.             Arc.EndAngle = Arc.StartAngle + A0 ?- H, Q) }  @% r  V
  11.             Arc.ScaleEntity C, 888.888 / Arc.ArcLength5 G- i+ f3 r* Z  h- c! u: {. y
  12.             H = Arc.Radius - Arc.StartPoint(1)
    8 i1 [; k, F" ^& `+ J" Z
  13.             If H = 123.456 Or A = A1 Or A = A2 Then
    $ d0 z$ B' W4 O- {4 p5 I
  14.                 Exit Do
    $ B' O2 S5 ~! V$ n& F& `+ P0 ?
  15.             ElseIf H > 123.456 Then  b% w6 i& m7 u1 M0 D/ P9 K
  16.                 A2 = A5 E9 ^5 x: @4 h% ?9 R4 y
  17.             Else
    # i6 t0 x  W# p+ U
  18.                 A1 = A
    * B/ k/ F( y4 [) s/ a$ ]0 ~% k
  19.             End If0 o' k! t) `$ _5 c! a: O
  20.         Loop7 p0 Z# ]/ I$ i
  21.         .ModelSpace.AddLine Arc.StartPoint, Arc.EndPoint2 _' k# _( b" E0 U9 N' s
  22.     End With
    9 o3 D# Q1 o+ w1 s  q( y
  23. End Sub
    5 F7 I$ N& u$ L& j$ U$ `+ O
复制代码
, M2 C" D  t" g% k* q+ k
还有其它方法也可以近似地画出这个图来,欢迎大家进一步讨论.

评分

参与人数 1三维币 +5 收起 理由
2005llnn + 5 技术讨论

查看全部评分

发表于 2010-8-6 08:32:49 | 显示全部楼层 来自: 中国广东东莞
楼主可以看下该帖:6 \* c+ ?( m  C+ r
http://www.3dportal.cn/discuz/vi ... hlight=%BB%A1%B3%A4

评分

参与人数 1三维币 +3 收起 理由
2005llnn + 3 技术讨论

查看全部评分

发表于 2010-8-6 14:27:46 | 显示全部楼层 来自: 中国广西梧州
本帖最后由 2005llnn 于 2010-8-6 14:33 编辑 7 }% e6 f6 @& \

# E. C& [" f$ u# F复习一下:精确选点法”解CAD几何作图难题& B( h( g1 ]9 g  G1 Z
通过拉伸可以快速作出此题。
0 z8 t/ U! ]3 X$ H1、CAD圆弧的特性:如果两端点在同一水平线上,沿水平方向拉伸其中一个端点,圆弧中点在垂直方向会有变化,$ J+ s6 @! b; k3 I/ i; V. E6 ^
圆弧中点在水平方向移动的距离等于拉伸其中一个端点沿水平方向移动的距离的一半。
/ a0 F& _6 M" L! b, A拉伸圆弧的中点,圆弧的中点只在垂直方向移动。
; d) D# C0 u5 c" p8 B1 V: C2、点选圆弧,打开特性表,圆弧弧长在特性表中会显示出来。  K5 W2 m/ d3 p* U  a* L3 s
3、作图方法:9 D3 v! N6 c/ R- |2 |  `5 g
作一水平线,在水平线中点分别作两条长123.456的垂直线。9 m" }6 a. E/ }/ H2 i, Y
通过三点作出圆弧。
- C! Z# L# i3 B/ f4 x根据特性表显示圆弧弧长来确定拉伸圆弧其中一个端点的移动的距离。- @: g0 W$ f- U$ {0 x
将两垂直线沿水平方向移动距离=端点移动的距离一半。
* A3 s6 r; C, [拉伸圆弧的中点到其中一条垂直线的端点。
' b" h# z/ k% m9 ] 2010-8-6-1.gif . {3 p/ l/ A# Z8 V8 T
反复几次就达到精度要求。
, M8 t8 t- D6 t8 ~. a& N9 m标注尺寸进行核对。
4 {2 r+ @, c3 W* h
2010-8-6-2.gif
发表于 2010-8-6 15:02:38 | 显示全部楼层 来自: 中国北京
佩服5#的做法!
发表于 2010-8-14 09:35:00 | 显示全部楼层 来自: 中国河南南阳
三点可以画出一个圆,cad上有这个功能,利用A尺寸的两端(这是两个点)和标出的高度尺寸(这是有一个点),很容易画出那个圆弧。
发表于 2010-8-15 12:22:39 | 显示全部楼层 来自: 中国云南玉溪
应该 有几何解,在明经见过类似的题,不过我是个菜鸟。
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表