QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
出一道较难的作图题:画圆弧, V$ N: D7 n2 v: A; M
已知圆弧的长度为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 发表. b$ d' W4 B" ]& w
我用笨方法( Q- v1 i7 Q, M2 `3 z
画好弦,三点画好圆弧
$ c& C: g2 M" u  o+ M, ~4 b' o打开属性看看弧长
: R& S, p; f8 R4 t! s' Y" J/ b然后选中圆弧中点,正交拖动,注意弧长变化) j6 `! v) Z; J  I
如果放大点,仔细点# g# i4 J: Z1 u: Q6 V7 _# v1 b
可以拖到10.6666

2 z0 W5 |+ r' C4 N" U就是要看你怎样解决小数点后8位怎么作图。
发表于 2007-4-6 19:00:23 | 显示全部楼层 来自: 中国
Sub A()
- ^) ]/ ?" R, FOn Error GoTo 10
8 R8 ]9 B) e2 O4 v) q3 J; d2 j    Dim La As Double, Ll As Double, O As Variant7 f) v5 Y/ x- j# `
    Dim Alpha As Double, R As Double* ~" r% f1 P7 y
    Dim A1 As Double, A2 As Double, A3 As Double2 d* a  Y& Q$ x  g" S! S- i
    Dim Arc As AcadArc' ^# y& I! s+ E' O9 i5 R
    With ThisDrawing
2 d5 Z- Y" N4 l5 N        La = .Utility.GetDistance(, vbCrLf & "指定弧长:")% \! r# a* u* X
        Do Until Ll < La And Ll > 0+ N3 q8 i6 ]/ K# |
            Ll = .Utility.GetDistance(, vbCrLf & "指定弦长(小于弧长):")3 o/ S2 G4 ^/ L' o* w9 @
        Loop
8 K8 G/ _4 G0 \7 J        O = .Utility.GetPoint(, vbCrLf & "指定弧的圆心:"), T: O% v, L! o" ]* }
        A1 = 0; R* U$ T! d  J5 e! ?
        A2 = 3.14159265358979
3 m, y4 p1 A8 D1 x7 l/ F+ T        Do7 K6 }, Z2 \4 @" p
            Alpha = (A1 + A2) / 2
* X! O8 o3 M% x$ y            A3 = La / Ll * Sin(Alpha): x- s9 U0 L" N. ^% l' u! {
            If Alpha = A1 Or Alpha = A2 Or Alpha = A3 Then, x- _, Q3 x  g) F& ~) }+ Y; H
                Exit Do9 J; \) x3 y* c1 r' ?
            ElseIf A3 < Alpha Then
5 b# v$ ?& ^' P3 l# r! Y+ j. r                A2 = Alpha
: D! O0 B  o! }) R1 A$ [            Else1 M! P0 l+ L( T; O
                A1 = Alpha
. _. Y& S/ o( J3 ]6 P" k$ {            End If. Z$ L9 Y$ M8 c1 Y6 Z
        Loop
3 m' \0 y/ a# \) J9 M        R = La / Alpha / 21 G, n7 {2 ]& v# m' W/ \1 c0 W6 S
        Set Arc = .ModelSpace.AddArc(O, R, 1.5707963267949 - Alpha, 1.5707963267949 + Alpha)
* T7 k/ e/ c" i3 [5 f1 o3 k        .ModelSpace.AddLine Arc.StartPoint, Arc.EndPoint
3 B& E8 C9 [6 |0 P    End With6 i6 K7 ]+ z$ c# q( [' ^
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
1 \3 B$ d$ P9 d0 Q& o/ B9 c7楼兄弟,余弦曲线如何做的?
5 C. I" B" Y( O8 H
插入块。一个用样条曲线画成的余弦曲线的块。7 A: l. a* H" ]. t4 [0 ]0 E
使用时可以在“插入块”对话框中设置缩放比例,也可将其设为“在屏幕上指定”,在下更喜欢用后者(需提前在图上画好范围)。由于块的尺寸是1个图形单位,所以插入后的实际尺寸等于输入的比例。如以范围的左上角为插入点,以范围的右下角为缩放的对角点,则图形的开口朝下,详见上面的作图过程;如以范围的左下角为插入点,以范围的右上角为缩放的对角点,则图形的开口朝上。
0 Z4 M4 X( B/ o$ r7 F( q; n% M附:余弦曲线块文件,CAD2000格式

余弦曲线.rar

15.14 KB, 下载次数: 35

评分

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

查看全部评分

发表于 2007-4-9 10:34:31 | 显示全部楼层 来自: 中国福建南平
真是佩服,CAD高手太多了,我只会简单的画图,计算什么的基本不懂,真要好好向各位高手学习!
发表于 2007-4-9 11:05:18 | 显示全部楼层 来自: 中国辽宁沈阳
4楼的方法很有意思,就是不大精确!
- T' P8 \* V, f1 b7楼也太强了!学习中!
 楼主| 发表于 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- b* u4 P" d1 ~* X/ X5 V6 ]  n* h8 i
12楼的大哥台快了,能慢点吗?
. ?! o# a4 z# a# R9 f' a1 X* I
13楼有慢的,原理是一样的,就是用鼠标捕捉圆弧的顶点,选择拉伸方向(垂直向下),
% W- x; S9 @/ a/ G3 H) {! Z在命令行中用键盘输入数值,回车就行了。
发表于 2007-4-24 13:14:28 | 显示全部楼层 来自: 中国吉林长春
这个好样不是很麻烦吧,耐心一点就可以了
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则


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

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

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