visardwl 发表于 2008-11-24 22:35



1.从左往右画直线AB 长度为10.75
2.将直线AB向上偏移5 得到直线CD
3.以C为圆心 画半径为0.8的圆 将圆向下垂直移动0.8 使其上象限点与C重合 记新圆的圆心为O
4.连接OB 过O作垂直于OB的直线 交圆O于点M
5.过M作直线垂直于AB 交点为N
6.以M为基点移动OM到N O对应的新的位移点记为O'
7.连接O'B
8. A B O' N 的依次连线即为结果

jeckli 发表于 2008-11-24 23:28

回复 #43 mop259 的帖子

我当时忽略了这一点,按理论上来说!角度肯定会发生变化,可能我当时的标注的精确度没有调好,所以造成这样的结果!在此向大家表示道歉!

凡不了 发表于 2008-11-25 00:00

按照33楼朋友的画法做了一下,斜边长度11.56,可是版主说是11.562,不知哪边出错了?:L

jeckli 发表于 2008-11-25 00:02

原帖由 visardwl 于 2008-11-24 22:35 发表 http://www.askcad.com/bbs/images/common/back.gif
44796

1.从左往右画直线AB 长度为10.75
2.将直线AB向上偏移5 得到直线CD
3.以C为圆心 画半径为0.8的圆 将圆向下垂直移动0.8 使其上象限点与C重合 记新圆的圆心为O
4.连接OB 过O作垂直于OB的直线 交圆O于点 ...
楼上的朋友,我用你的方法做了一下,但是角度也不是很标准,把标注角度的精确度调到0.0000,角度为:89.7468

manbuzhe 发表于 2008-11-25 08:27

原帖由 凡不了 于 2008-11-25 00:00 发表 http://www.askcad.com/bbs/images/common/back.gif
按照33楼朋友的画法做了一下,斜边长度11.56,可是版主说是11.562,不知哪边出错了?:L
44801
没错,因为你只保留了2位小数,如果是4位小数的话,应该是:11.5609。与楼主后来说的尺寸有误差。不知是谁错了,所以说仅供参考。

一心求学 发表于 2008-11-25 09:02

原帖由 007 于 2008-11-22 21:23 发表 http://www.askcad.com/bbs/images/common/back.gif
练习:D 作图有分加,要过程


我的作图过程如下:

zjgght 发表于 2008-11-25 09:22

我感觉这题还好做的,主要利用圆的直径和圆上任意点所构成的三角形是直角三角形的性质。

file:///D:/Temp/msohtml1/01/clip_image002.jpg


不过好像BD的长跟各位DD说的不一样啊。
我是按自己的想法做的,如有错请给位给点指导啊!

一心求学 发表于 2008-11-25 09:30

原帖由 一心求学 于 2008-11-25 09:02 发表 http://www.askcad.com/bbs/images/common/back.gif



我的作图过程如下:

尺寸做错了,重新上传一次啦

一心求学 发表于 2008-11-25 09:32

回复 #53 一心求学 的帖子

还是错了尺寸啦,10.5应是10.75,算啦,不改了,大概画法就是这样子啦:lol

Homipan 发表于 2008-11-25 10:11

1.画10.75水平线
2.在左端点作R5的圆
3.在左端点作垂线交R5圆上端点
4.以R5圆焦点作R0.8圆
5.过10.75直线右端点左R0.8圆下切线
6.连接R0.8圆下切点和R0.8圆心
D:/未命名.jpg

zjgght 发表于 2008-11-25 10:52

:Q :Q :Q

mop259 发表于 2008-11-25 12:18

哈哈,做出来了。
是从http://www.askcad.com/bbs/viewthread.php?tid=26924&extra=&page=1这个帖子的8楼凡不了的方法想出来得。
将图中白色向下平移右下圆半径长度得到绿色的。
1.先画一长为10.75,宽为5的长方形。
2.然后以左上角为圆心画半径0.8的圆R1,右下角为圆心画半径为1.6的圆R2。
3.从R2与右边宽相交点起画一与R1相切的直线。
4.然后R1,R2,和那条直线全体向下平移1.6。
5.然后延长与R1相切的那条直线交于长方形左边宽。
6.以5所画交点为垂足画线交于上边长。
答案就出来了。

[ 本帖最后由 mop259 于 2008-11-25 12:30 编辑 ]

swz999 发表于 2008-11-25 13:24

原帖由 mop259 于 2008-11-25 12:18 发表 http://www.askcad.com/bbs/images/common/back.gif
哈哈,做出来了。
是从http://www.askcad.com/bbs/viewthread.php?tid=26924&extra=&page=1这个帖子的8楼凡不了的方法想出来得。
将图中白色向下平移右下圆半径长度得到绿色的。
1.先画一长为10.75,宽为5的 ...

凡不了 发表于 2008-11-25 14:28

48楼的图又仔细验证了一下,将0.8的直线放大后发现并没有与上面的直线相交,难怪斜边长11.56,哎!还是画错了!:L

woaishuijia 发表于 2008-11-25 14:43

实在忍不住想对大家说几句了

这个图是没有常规的CAD二维精确画法的--这里所谓的“精确”是指可以用数学方法证明画法成立。
要想精确地、符合数学原理地画出本图,只有一个方法:三维空间的圆锥解法。道理很简单:这个图形的数学模型表明,要想画出这个图就必须用到除圆和椭圆以外的圆锥曲线。
那些以为自己已经画出来了的朋友,可以尝试用数学方法证明一下,你的方法对吗?其实也不用证明,只要提高标注的精度或比例因子,就可以看到你所画结果的误差了。
限于篇幅,本帖不具体介绍圆锥解法的数学推导过程,只介绍本图的画图步骤,有兴趣的朋友可以自己证明一下。

1、在世界坐标系画三条直线如图1。其中10.75和5都是已知条件,较长的两条直线画法很简单,最短的直线可以先计算出长度再画,也可以用'cal透明命令输入算式画,也可以先画出长度为6.25的直线后再参照缩放为原长度的10.75分之一。



2、进入主视图,画一个如图2的圆锥,圆锥的斜边长为4



3、以圆锥顶点为基点,把圆锥移到长度为5.375直线的端点,见图3



4、用过原点的主视图ZX平面剖切圆锥,保留其中的一半,见图4



5、回到世界坐标系,以原点为圆心、半径0.8画圆,见图5



6、把圆压印到实体上,见图6



7、从圆心到圆与实体交点画直线,这就是最终结果的长为0.8的直线,见图7。后面的步骤略。



可能有人认为这种方法太繁琐,甚至有人根本看不懂,那就只能用近似画法了,也就是“无限逼近法”。这种方法没有数学原理支撑,只能是通过反复尝试,逐渐缩小结果的范围,使画图结果向理论值无限逼近,直到满足精度要求或达到CAD软件能够承受的极限。具体的用法因人而异,公认比较好用的是“轨迹法”

1、按图8画直线和圆



2、把圆向右移动一小段距离(图9的距离是0.4),再画切线和垂线;然后再把圆向右移动0.4,再画切线和垂线,见图9



3、用得到的三个角点画样条曲线,见图10。也有人喜欢三点画圆,用法大体差不多,有兴趣的朋友可以自己尝试。



4、以样条曲线与垂直直线的交点为圆心、半径0.8画圆;再以其与上方水平直线交点为圆心、半径0.8画圆,见图11



5、画切线和垂线,线性标注,已经精确到小数点后4位,见图12



6、如果嫌精度不够高,可以删掉样条曲线,用4个角点重画样条曲线,重复上面的步骤,这次已经精确到小数点后8位,见图13。依此类推,直到满足精度要求。



用手工方法无限逼近,操作上很麻烦,精度也有限。如果学会了二次开发编程,就可以把这个工作交给电脑完成。下面是用VBA方法画本图的代码,感兴趣的朋友可以研究一下。加载这段程序画出的图的精度比圆锥解法还要高--这是由于计算机浮点运算的精度所导致的,不是圆锥解法的问题。

Sub A()
    Dim L1 As AcadLine, L2 As AcadLine, P(2) As Double, M As Double, N As Double
    With ThisDrawing
      P(0) = 10.75
      Set L1 = .ModelSpace.AddLine(P, P)
      Set L2 = .ModelSpace.AddLine(P, P)
      P(0) = 0
      N = 5
      Do
            P(1) = (M + N) / 2
            L1.EndPoint = P
            L2.StartPoint = P
            L2.EndPoint = .Utility.PolarPoint(P, L1.Angle - .Utility.AngleToReal(90, acDegrees), 0.8)
            If L2.EndPoint(1) = 5 Or P(1) = M Or P(1) = N Then
                Exit Do
            ElseIf L2.EndPoint(1) < 5 Then
                M = P(1)
            Else
                N = P(1)
            End If
      Loop
    End With
End Sub

[ 本帖最后由 woaishuijia 于 2008-11-25 14:46 编辑 ]
页: 1 2 3 [4] 5 6 7 8 9 10 11
查看完整版本: 二维作图,(参与有分可加哟!!!)