QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 3825|回复: 17
收起左侧

[讨论] 较难的作图题:画圆弧

[复制链接]
发表于 2007-4-6 13:59:18 | 显示全部楼层 |阅读模式 来自: 中国广西钦州

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

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

x
出一道较难的作图题:画圆弧4 i/ J3 B& u/ E0 w5 w0 J8 K
已知圆弧的长度为10.66666666,弦长为10,如何用CAD作出图来。
较难的作图题:画圆弧.jpg

评分

参与人数 1三维币 +10 收起 理由
★新手★ + 10 出题讨论!

查看全部评分

发表于 2007-4-6 16:20:03 | 显示全部楼层 来自: LAN
恐怕不通过计算,用CAD画很难实现.楼主如果确信用CAD能实现的话我就去研究研究.
 楼主| 发表于 2007-4-6 16:28:16 | 显示全部楼层 来自: 中国广西钦州
我采用精确选点法已经通过CAD作出图了。
头像被屏蔽
发表于 2007-4-6 16:39:30 | 显示全部楼层 来自: 中国浙江宁波
提示: 作者被禁止或删除 内容自动屏蔽
 楼主| 发表于 2007-4-6 16:48:58 | 显示全部楼层 来自: 中国广西钦州
原帖由 oldhenksu 于 2007-4-6 16:39 发表
9 V% i1 L( A2 |7 \我用笨方法) V5 \6 y! X$ N* l; R; j( g6 H& Q
画好弦,三点画好圆弧
  K* k7 G" J; k! w( Q' Z打开属性看看弧长
/ u* V/ O& }. b) W+ ^% M然后选中圆弧中点,正交拖动,注意弧长变化
4 L* r  n/ w* w/ t% E3 Z& q4 Y如果放大点,仔细点
9 V0 J4 F& d7 q; d" e* p可以拖到10.6666

8 O) X2 M7 ^9 D就是要看你怎样解决小数点后8位怎么作图。
发表于 2007-4-6 19:00:23 | 显示全部楼层 来自: 中国
Sub A()6 @3 y2 n( d  [, M- S
On Error GoTo 10% o6 s0 h- L* D( C3 c6 E
    Dim La As Double, Ll As Double, O As Variant& A) g& v* \- Y: {
    Dim Alpha As Double, R As Double
, n' x+ l1 H/ m  W- j, E# J    Dim A1 As Double, A2 As Double, A3 As Double
2 n, y' b( }* a0 k    Dim Arc As AcadArc
" y/ ?7 U3 V: _& g" i2 i    With ThisDrawing
$ g. b4 K3 ?& R. M- I9 Z* z        La = .Utility.GetDistance(, vbCrLf & "指定弧长:")
5 f+ G7 X9 V/ g/ _9 j        Do Until Ll < La And Ll > 00 t7 J0 Z6 x( Q- X3 t
            Ll = .Utility.GetDistance(, vbCrLf & "指定弦长(小于弧长):")
/ n$ w! y5 }6 l" H' K7 v" r        Loop
) _# f, j- \2 J        O = .Utility.GetPoint(, vbCrLf & "指定弧的圆心:")
- K7 o7 n! s- g) U0 T        A1 = 0
4 h; b4 \& z3 I4 W( z" a6 L        A2 = 3.14159265358979. }: W7 c1 a6 r+ d- M$ \+ H
        Do7 r1 y. c5 @6 L6 o
            Alpha = (A1 + A2) / 2  [2 n% Z3 ~6 R) N8 p4 A
            A3 = La / Ll * Sin(Alpha)& P4 D; y0 ?  N5 I+ q
            If Alpha = A1 Or Alpha = A2 Or Alpha = A3 Then
8 C3 `1 P( {. C% @: }6 ^                Exit Do
: h; l0 L+ C! }+ d2 n) n( B2 Z            ElseIf A3 < Alpha Then
3 X6 L. U! k2 L. Y+ M                A2 = Alpha2 d! L" k* J$ K7 z" Y
            Else% @9 }7 [8 T4 U( e
                A1 = Alpha
- w+ m& ~1 j' q! J1 ^: c& x            End If- [: T, X' e7 H3 J9 \
        Loop
- \4 N" O5 O& F  ]) r7 E5 ~; e        R = La / Alpha / 2
, E2 ?& ^" P/ O! h# x        Set Arc = .ModelSpace.AddArc(O, R, 1.5707963267949 - Alpha, 1.5707963267949 + Alpha)
1 K( J* y/ V" p: h" w) d. v3 ?        .ModelSpace.AddLine Arc.StartPoint, Arc.EndPoint
' g' X" l  d8 n; S    End With; ]" \4 u# Y% N( u" O
10: End Sub

评分

参与人数 1三维币 +10 收起 理由
★新手★ + 10 技术分享!

查看全部评分

发表于 2007-4-6 21:15:26 | 显示全部楼层 来自: 中国
再来个几何画法的
Untitled-1.gif

评分

参与人数 1三维币 +20 收起 理由
★新手★ + 20 高呀!技术分享!

查看全部评分

头像被屏蔽
发表于 2007-4-9 08:44:32 | 显示全部楼层 来自: 中国浙江宁波
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2007-4-9 10:08:48 | 显示全部楼层 来自: 中国辽宁营口
原帖由 oldhenksu 于 2007-4-9 08:44 发表 http://www.3dportal.cn/discuz/images/common/back.gif; G# F' @% u1 E  I8 b0 S
7楼兄弟,余弦曲线如何做的?
3 D- G3 L5 `( |* Y
插入块。一个用样条曲线画成的余弦曲线的块。4 J# b6 M" r2 m6 l( V' J0 H- Z
使用时可以在“插入块”对话框中设置缩放比例,也可将其设为“在屏幕上指定”,在下更喜欢用后者(需提前在图上画好范围)。由于块的尺寸是1个图形单位,所以插入后的实际尺寸等于输入的比例。如以范围的左上角为插入点,以范围的右下角为缩放的对角点,则图形的开口朝下,详见上面的作图过程;如以范围的左下角为插入点,以范围的右上角为缩放的对角点,则图形的开口朝上。) k" ?  ^6 S1 I" R3 N4 G# O
附:余弦曲线块文件,CAD2000格式

余弦曲线.rar

15.14 KB, 下载次数: 35

评分

参与人数 1三维币 +5 收起 理由
★新手★ + 5 技术分享

查看全部评分

发表于 2007-4-9 10:34:31 | 显示全部楼层 来自: 中国福建南平
真是佩服,CAD高手太多了,我只会简单的画图,计算什么的基本不懂,真要好好向各位高手学习!
发表于 2007-4-9 11:05:18 | 显示全部楼层 来自: 中国辽宁沈阳
4楼的方法很有意思,就是不大精确!
+ ?# C$ g0 T9 F; D7楼也太强了!学习中!
 楼主| 发表于 2007-4-9 13:33:56 | 显示全部楼层 来自: 中国广西南宁
精确选点法画圆弧动画演示
较难题:画圆弧动画演示1.gif
 楼主| 发表于 2007-4-9 13:35:09 | 显示全部楼层 来自: 中国广西南宁
来个最精确的,因为CAD最大能够显示出16位数值,将图放大的目的就是让16位数值都显示出来,使作图得到的精度最高。
较难题:画圆弧动画演示2.gif

评分

参与人数 1三维币 +10 收起 理由
★新手★ + 10 技术分享

查看全部评分

发表于 2007-4-11 09:07:54 | 显示全部楼层 来自: 中国安徽合肥
7楼真的很强,不知道定义块的时候定义插入点是哪一点,我要下来好好琢磨下,琢磨不出来再来问你!!!谢谢分享!!!
发表于 2007-4-14 17:37:22 | 显示全部楼层 来自: 中国四川成都
4楼的试画,7 楼的实际上也是计算,只是运用了所谓的正弦块作辅助。总之,计算才能最精确快速。
发表于 2007-4-23 10:47:37 | 显示全部楼层 来自: 中国上海

救命

12楼的大哥台快了,能慢点吗?
 楼主| 发表于 2007-4-23 11:12:44 | 显示全部楼层 来自: 中国广西钦州
原帖由 hccangle 于 2007-4-23 10:47 发表 http://www.3dportal.cn/discuz/images/common/back.gif3 a. N1 @4 P; y5 o: |
12楼的大哥台快了,能慢点吗?
- @! W9 j9 |  K
13楼有慢的,原理是一样的,就是用鼠标捕捉圆弧的顶点,选择拉伸方向(垂直向下),+ N+ ~# p) ~. y2 E
在命令行中用键盘输入数值,回车就行了。
发表于 2007-4-24 13:14:28 | 显示全部楼层 来自: 中国吉林长春
这个好样不是很麻烦吧,耐心一点就可以了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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