QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
出一道较难的作图题:画圆弧
- `* j, p. Z; x" _: x, J已知圆弧的长度为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 发表
& ~5 F& P5 g. N3 B0 u) \我用笨方法1 L; u/ W9 j9 k
画好弦,三点画好圆弧
8 H8 \& _6 g' @, }2 w* I" `打开属性看看弧长
) L! `- }6 z- m/ Z然后选中圆弧中点,正交拖动,注意弧长变化/ k% S6 O" [1 T1 p  i2 k
如果放大点,仔细点4 X! Q* ]8 o$ l# t
可以拖到10.6666
7 z$ Y! f* X/ n0 U" t
就是要看你怎样解决小数点后8位怎么作图。
发表于 2007-4-6 19:00:23 | 显示全部楼层 来自: 中国
Sub A()
- P6 i& p6 f7 a: eOn Error GoTo 10
7 K5 Y6 Z! H6 K5 ^: ]' S8 b: Q    Dim La As Double, Ll As Double, O As Variant( ^. Y. S# r- b4 G# M0 N) C5 l
    Dim Alpha As Double, R As Double
0 J, U# \1 q* b+ ?* `) S) W    Dim A1 As Double, A2 As Double, A3 As Double- |) D$ ]8 E! V: G: w
    Dim Arc As AcadArc0 C; g; k3 H: r: j8 ~+ y4 J
    With ThisDrawing
  K1 P4 G+ u( j! H        La = .Utility.GetDistance(, vbCrLf & "指定弧长:")
7 r& T8 M' s6 H7 }        Do Until Ll < La And Ll > 0
% @( a8 ?2 G+ \            Ll = .Utility.GetDistance(, vbCrLf & "指定弦长(小于弧长):")4 v% V* ?& ?4 m) P8 |! [0 e% W. E  \
        Loop) W0 D8 i8 x' A+ j9 \  E
        O = .Utility.GetPoint(, vbCrLf & "指定弧的圆心:")/ V, Y- Z7 W% E" Z
        A1 = 0
) k4 T, Y. K% O1 J/ t2 L6 N# e        A2 = 3.14159265358979- A( K8 f4 K( e8 |# b
        Do9 @' U! w8 p2 T" e- n2 B) D
            Alpha = (A1 + A2) / 2/ D2 F' l7 r/ I1 U
            A3 = La / Ll * Sin(Alpha)9 ?) Z, i" ~, x" h' R
            If Alpha = A1 Or Alpha = A2 Or Alpha = A3 Then; k* D/ I" f& T- U! `
                Exit Do
' Z$ o/ |5 s) _' A: ^; N( I            ElseIf A3 < Alpha Then) g. y6 W" v" Z3 t
                A2 = Alpha8 O7 h% j/ i3 T9 L4 F1 \
            Else
/ H* J: K; H; b. {2 C5 b" z                A1 = Alpha( ~2 }3 ?" K/ f9 f6 w: j3 J
            End If
9 C" W; R: f8 l        Loop/ L9 h; y9 g1 z3 l9 B
        R = La / Alpha / 2. D9 i- B5 l4 g
        Set Arc = .ModelSpace.AddArc(O, R, 1.5707963267949 - Alpha, 1.5707963267949 + Alpha)
+ R% e4 b$ o0 K2 S5 u        .ModelSpace.AddLine Arc.StartPoint, Arc.EndPoint4 u" w' \. _+ Y3 {) V8 N
    End With
( K" O6 _  o4 v, L" Q% A& \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
# O. n3 k$ Z! x# n2 v# f  x& S0 s7楼兄弟,余弦曲线如何做的?
! t( `5 M! X. O% {' F6 k" o
插入块。一个用样条曲线画成的余弦曲线的块。
) `6 x- O! t; M$ ~! w. s1 J& s使用时可以在“插入块”对话框中设置缩放比例,也可将其设为“在屏幕上指定”,在下更喜欢用后者(需提前在图上画好范围)。由于块的尺寸是1个图形单位,所以插入后的实际尺寸等于输入的比例。如以范围的左上角为插入点,以范围的右下角为缩放的对角点,则图形的开口朝下,详见上面的作图过程;如以范围的左下角为插入点,以范围的右上角为缩放的对角点,则图形的开口朝上。
& o0 x0 B3 M5 u, b, ~# V* ]附:余弦曲线块文件,CAD2000格式

余弦曲线.rar

15.14 KB, 下载次数: 35

评分

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

查看全部评分

发表于 2007-4-9 10:34:31 | 显示全部楼层 来自: 中国福建南平
真是佩服,CAD高手太多了,我只会简单的画图,计算什么的基本不懂,真要好好向各位高手学习!
发表于 2007-4-9 11:05:18 | 显示全部楼层 来自: 中国辽宁沈阳
4楼的方法很有意思,就是不大精确!
% Z7 V6 e# S- X' T7楼也太强了!学习中!
 楼主| 发表于 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.gif
9 r; \7 F' d! R! g# }3 |12楼的大哥台快了,能慢点吗?

+ \' p1 V" Q2 v* Z, t9 Z4 R13楼有慢的,原理是一样的,就是用鼠标捕捉圆弧的顶点,选择拉伸方向(垂直向下),
2 _& P4 [6 w4 @% x) {在命令行中用键盘输入数值,回车就行了。
发表于 2007-4-24 13:14:28 | 显示全部楼层 来自: 中国吉林长春
这个好样不是很麻烦吧,耐心一点就可以了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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