QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
出一道较难的作图题:画圆弧) E( d5 h5 i9 B4 `
已知圆弧的长度为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 发表) i  P7 Y4 v; W
我用笨方法+ b1 Q0 c. l& y+ p: @, {, R
画好弦,三点画好圆弧3 o( ?& M# ]3 i8 z# |% t( w
打开属性看看弧长
1 M2 x* N4 I! r! m然后选中圆弧中点,正交拖动,注意弧长变化" [& B! l" n, i) L" s
如果放大点,仔细点
. y: r" O" B' n$ J可以拖到10.6666

# j& r* C; q  q5 {, m) F就是要看你怎样解决小数点后8位怎么作图。
发表于 2007-4-6 19:00:23 | 显示全部楼层 来自: 中国
Sub A()( V! _0 e$ e/ G' Q! D
On Error GoTo 10
0 G- u3 Z9 p6 A$ q+ M) U" ?    Dim La As Double, Ll As Double, O As Variant. b! H" v) v: Y4 @/ Y" \
    Dim Alpha As Double, R As Double
$ }" `" W& u1 n/ ~: x    Dim A1 As Double, A2 As Double, A3 As Double; ]8 F; q9 S+ A8 z. I
    Dim Arc As AcadArc
  Q2 @- F: A0 q! A. j2 Q& n    With ThisDrawing5 D! Z/ X1 i0 y, ?7 s6 W
        La = .Utility.GetDistance(, vbCrLf & "指定弧长:")6 x# x, [1 l5 W3 k* U
        Do Until Ll < La And Ll > 0
/ |6 A/ s* J4 ~: \+ n$ k5 R$ Y. ^6 y            Ll = .Utility.GetDistance(, vbCrLf & "指定弦长(小于弧长):")
4 z, \* i5 p7 L# s( g& P: o$ i+ Z        Loop
7 s- i  b% r. D% J  o        O = .Utility.GetPoint(, vbCrLf & "指定弧的圆心:")
. _0 S6 X- z$ D/ W' f        A1 = 0
0 w5 I. n1 O# N! }        A2 = 3.141592653589798 X) [1 r5 `3 {! m+ y9 P3 @4 @
        Do
& i" Z; P% o, a  p0 h" \9 E( k; P            Alpha = (A1 + A2) / 2
' `8 \- H6 Q1 g- R            A3 = La / Ll * Sin(Alpha)
7 {; w. S- \( G0 @* d5 G! B8 Z            If Alpha = A1 Or Alpha = A2 Or Alpha = A3 Then
. m0 k  a, r- H5 E; o  c6 y( o+ G* A                Exit Do
4 T0 m( C/ f$ t5 n1 p            ElseIf A3 < Alpha Then7 g, Q) R4 J) H4 G6 c3 H  \6 r
                A2 = Alpha- P4 S# {! e" i! N) Y) ]
            Else
4 P+ W' |9 i) f' d9 z9 o0 D8 R                A1 = Alpha* O+ L# ?1 u# M2 z: e9 H( W; O
            End If
$ h( r; X2 R! U" }/ i        Loop. s5 K. Y! o1 `% e
        R = La / Alpha / 2
0 I$ T6 \7 z7 `/ a+ ^        Set Arc = .ModelSpace.AddArc(O, R, 1.5707963267949 - Alpha, 1.5707963267949 + Alpha)9 r8 m2 i4 X. Z  c- T
        .ModelSpace.AddLine Arc.StartPoint, Arc.EndPoint* Y( e. m8 X! Z+ q8 n
    End With2 n  i! n3 b. h7 G! h
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
; S( y+ ]3 R3 x4 {7楼兄弟,余弦曲线如何做的?
' d9 i2 W* i; Q% X8 D. z/ Q
插入块。一个用样条曲线画成的余弦曲线的块。
- Y' f9 U& l% U& U. |3 h8 l- d使用时可以在“插入块”对话框中设置缩放比例,也可将其设为“在屏幕上指定”,在下更喜欢用后者(需提前在图上画好范围)。由于块的尺寸是1个图形单位,所以插入后的实际尺寸等于输入的比例。如以范围的左上角为插入点,以范围的右下角为缩放的对角点,则图形的开口朝下,详见上面的作图过程;如以范围的左下角为插入点,以范围的右上角为缩放的对角点,则图形的开口朝上。; ]2 b! {, H+ H0 v1 h0 ?2 [
附:余弦曲线块文件,CAD2000格式

余弦曲线.rar

15.14 KB, 下载次数: 35

评分

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

查看全部评分

发表于 2007-4-9 10:34:31 | 显示全部楼层 来自: 中国福建南平
真是佩服,CAD高手太多了,我只会简单的画图,计算什么的基本不懂,真要好好向各位高手学习!
发表于 2007-4-9 11:05:18 | 显示全部楼层 来自: 中国辽宁沈阳
4楼的方法很有意思,就是不大精确!: [, K5 f: X- a* _" J
7楼也太强了!学习中!
 楼主| 发表于 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.gif6 r1 e& x; e0 z, a3 B. R' C
12楼的大哥台快了,能慢点吗?
! N+ q/ r) Y/ C" s4 c" ~7 A9 x* Q/ E
13楼有慢的,原理是一样的,就是用鼠标捕捉圆弧的顶点,选择拉伸方向(垂直向下),
: u. t6 R6 f& B1 U! w& I在命令行中用键盘输入数值,回车就行了。
发表于 2007-4-24 13:14:28 | 显示全部楼层 来自: 中国吉林长春
这个好样不是很麻烦吧,耐心一点就可以了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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