当前位置: 首页 » 数控技术 » 综合技术 » 正文

AutoCAD中篮球的画法


放大字体  缩小字体 发布日期:2018-02-13
1、画平面图, O点为圆心直径40画圆,画OA,A点坐标:@40<-45,AH是垂线

图1


2、画投影椭圆

    把视图改为西南等轴测,切换ucs,然后再画一个椭圆,椭圆以O为中心,H点是一个轴,另一个轴位于Y轴上,长度只要小于40就行,我用35,但是感觉比真球小了一点

图2


3、把椭圆拉伸为椭圆柱,画白色球体

红色椭圆柱高度不能太低,白球以O为圆心,直径40

图3


4、把椭圆柱和白色球进行交集运算,获到红色实体

图4

 

5、炸开红色实体,删除多余线,留下在A点上的红色样条线,

图5


    6、转变ucs,画直径为40的绿色圆,用圆和红色样条线的交点打断样条线,再把样条线转化为多段线。

    转化样条线有几个办法,都太烦,我还是选择必杀技:用VBA代码,下面这段代码不必看懂它,照搬就行,我将在VBA教程第10课中进行详细解释

Sub sp2pl()

Dim getsp As Object
Dim po As Variant

Dim newl() As Double

Dim p1 As Variant

ThisDrawing.Utility.GetEntity getsp, po, "本程序将样条曲线转为多段线。请选择样条曲线"

sumctrl = getsp.NumberOfControlPoints

ReDim newl(0 To sumctrl * 3 - 1)
 
  For i = 0 To sumctrl - 1
  p1 = getsp.GetControlPoint(i)
      For j = 0 To 2
    newl(i * 3 + j) = p1(j)
  Next j

Next i
Set templ = ThisDrawing.ModelSpace.Add3DPoly(newl)

End Sub

 



图6


7、把红线切掉一半,切换UCS,画直径为1的球,以绿色多段线为路径拉伸圆

图7


8、把绿色圆管进行三维镜像,AOC为轴得到红色圆管,AOB为轴得到黄色圆管

图8


9、删除绿管,把红黄两根圆管进行并集运算,再以ODC为轴进行三维镜像,再并集

图9


10、把圆管先放到隐藏图层,再以圆ODC和圆OBC轴画两根直径为1的圆管,注意ACAD不能把圆直接拉伸为圆管

图10


11、画直径为40的球,把球和圆管进行差集运算

图11


    我写教程的目的不是让大家花大力气学习CAD的三维功能,必竟ACAD的三维能力实在太差,用ACAD画篮球这种简单的活应该也能很快完成,我画第一遍研究了二小时,画第二遍不到十分钟。

 
 
[ 免费发文

 

 
推荐图文
推荐数控技术
点击排行
网站首页 | 关于我们 | 升级会员 | 联系客服 | 广告合作 | 广告位图 | 使用协议 | 版权隐私 | 蜀ICP备2021024440号
Powered by DESTOON