较难的作图题：画圆弧

2005llnn · 发表于 2007-4-6 13:59:18

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

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

x

出一道较难的作图题：画圆弧
已知圆弧的长度为10.66666666，弦长为10，如何用CAD作出图来。

ferris · 发表于 2007-4-6 16:20:03

恐怕不通过计算,用CAD画很难实现.楼主如果确信用CAD能实现的话我就去研究研究.

2005llnn · 发表于 2007-4-6 16:28:16

我采用精确选点法已经通过CAD作出图了。

oldhenksu · 发表于 2007-4-6 16:39:30

提示: 作者被禁止或删除内容自动屏蔽

2005llnn · 发表于 2007-4-6 16:48:58

原帖由 oldhenksu 于 2007-4-6 16:39 发表" y; K/ i1 s$ c% Q- \. a0 p3 M
我用笨方法1 C6 Y2 q; x* P) N0 U9 Z& y
画好弦，三点画好圆弧
5 {/ ~# ^% ^$ I: I打开属性看看弧长
6 Z: N' d z1 ? a1 o然后选中圆弧中点，正交拖动，注意弧长变化2 y1 a: w" D o% r6 r0 e4 X
如果放大点，仔细点6 y" S, r( S X) {* e# ^
可以拖到10.6666

就是要看你怎样解决小数点后8位怎么作图。

woaishuijia · 发表于 2007-4-6 19:00:23

Sub A()
On Error GoTo 10
Dim La As Double, Ll As Double, O As Variant
Dim Alpha As Double, R As Double
Dim A1 As Double, A2 As Double, A3 As Double
Dim Arc As AcadArc
With ThisDrawing
      La = .Utility.GetDistance(, vbCrLf & "指定弧长:")
      Do Until Ll < La And Ll > 0
         Ll = .Utility.GetDistance(, vbCrLf & "指定弦长(小于弧长):")
      Loop
      O = .Utility.GetPoint(, vbCrLf & "指定弧的圆心:")
      A1 = 0
      A2 = 3.14159265358979
      Do
         Alpha = (A1 + A2) / 2
         A3 = La / Ll * Sin(Alpha)
         If Alpha = A1 Or Alpha = A2 Or Alpha = A3 Then
            Exit Do
         ElseIf A3 < Alpha Then
            A2 = Alpha
         Else
            A1 = Alpha
         End If
      Loop
      R = La / Alpha / 2
      Set Arc = .ModelSpace.AddArc(O, R, 1.5707963267949 - Alpha, 1.5707963267949 + Alpha)
      .ModelSpace.AddLine Arc.StartPoint, Arc.EndPoint
End With
10: End Sub

woaishuijia · 发表于 2007-4-6 21:15:26

再来个几何画法的

oldhenksu · 发表于 2007-4-9 08:44:32

提示: 作者被禁止或删除内容自动屏蔽

woaishuijia · 发表于 2007-4-9 10:08:48

原帖由 oldhenksu 于 2007-4-9 08:44 发表 http://www.3dportal.cn/discuz/images/common/back.gif
/ n. B8 S1 t! x) r2 ?: M: q, _7楼兄弟，余弦曲线如何做的？

插入块。一个用样条曲线画成的余弦曲线的块。
使用时可以在“插入块”对话框中设置缩放比例，也可将其设为“在屏幕上指定”，在下更喜欢用后者（需提前在图上画好范围）。由于块的尺寸是1个图形单位，所以插入后的实际尺寸等于输入的比例。如以范围的左上角为插入点，以范围的右下角为缩放的对角点，则图形的开口朝下，详见上面的作图过程；如以范围的左下角为插入点，以范围的右上角为缩放的对角点，则图形的开口朝上。
附：余弦曲线块文件，CAD2000格式

zhoujd · 发表于 2007-4-9 10:34:31

真是佩服，CAD高手太多了，我只会简单的画图，计算什么的基本不懂，真要好好向各位高手学习！

popjim · 发表于 2007-4-9 11:05:18

4楼的方法很有意思，就是不大精确！
7楼也太强了！学习中！

2005llnn · 发表于 2007-4-9 13:33:56

精确选点法画圆弧动画演示

2005llnn · 发表于 2007-4-9 13:35:09

来个最精确的，因为CAD最大能够显示出16位数值，将图放大的目的就是让16位数值都显示出来，使作图得到的精度最高。

nishuihanjian · 发表于 2007-4-11 09:07:54

7楼真的很强,不知道定义块的时候定义插入点是哪一点,我要下来好好琢磨下,琢磨不出来再来问你!!!谢谢分享!!!

scliukejun · 发表于 2007-4-14 17:37:22

4楼的试画，7 楼的实际上也是计算，只是运用了所谓的正弦块作辅助。总之，计算才能最精确快速。

hccangle · 发表于 2007-4-23 10:47:37

12楼的大哥台快了，能慢点吗？

2005llnn · 发表于 2007-4-23 11:12:44

原帖由 hccangle 于 2007-4-23 10:47 发表 http://www.3dportal.cn/discuz/images/common/back.gif2 e0 G6 I# Z" b5 h3 W7 _
12楼的大哥台快了，能慢点吗？

13楼有慢的，原理是一样的，就是用鼠标捕捉圆弧的顶点，选择拉伸方向（垂直向下），
在命令行中用键盘输入数值，回车就行了。

flashgod · 发表于 2007-4-24 13:14:28

这个好样不是很麻烦吧，耐心一点就可以了

		自动登录	找回密码
密码			注册

通知

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

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

评分

评分

评分

评分

评分

救命

oldhenksu oldhenksu 当前离线积分 1323 UID 117927 主题在线时间小时注册时间 2005-10-9 头像被屏蔽	发表于 2007-4-6 16:39:30 \| 显示全部楼层来自：中国浙江宁波提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报

oldhenksu oldhenksu 当前离线积分 1323 UID 117927 主题在线时间小时注册时间 2005-10-9 头像被屏蔽	发表于 2007-4-9 08:44:32 \| 显示全部楼层来自：中国浙江宁波提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对举报