AutoCAD中各种球的画法

足球画法

1、在俯视图中，先画边长50的正五边形和正六边形，再根据图上的图样画圆和其他辅助线。

2、以C圆的中心点为圆心，旋转正六边形的中心垂线从C圆的象限点到B点，交于与正五边形的中心垂线

为O点。

3、删除多余的辅助线。以O为圆心OB为半径作D圆，复制园B，圆心落在D圆象限点上。

4、拉伸正六边形，以O点到B圆的圆心为指定拉伸高度；以O点到B圆的上象限点为指定拉伸的倾斜角度。

5、删除多余的辅助线。以O为圆心OA为半径重新作D圆，复制园A，圆心落在D圆象限点上。

6、拉伸正五边形，以O点到A圆的圆心为指定拉伸高度；以O点到A圆的上象限点为指定拉伸的倾斜角度。

7、删除多余的辅助线。转动一下视口，参照图画两锥体的相交线和各中心垂线这三条辅助线（红色线）。

8、倒圆角（R=4）。

9、转动一下视口，注意红线的几个端点：A；B；C和C'。

10、三维对齐：指定第一个源点：A，指定第一个目标点:A；指定第二个源点：B，指定第二个目标点:B；指定第三个源点：C，指定第一个目标点:C'。

11、以O点，OB为半径画球体，以O点，105为半径再画个球体；差集成一空心球。

12、原地再复制一个空心球，分别与两锥体交集。

13、R=4倒圆角，五边形体着上红色。

14、以五边形体中心线作Z 轴矢量UCS。以六边形体为对象，0，0为中心环形阵列5个。

15、以六边形体中心线作Z 轴矢量UCS，删除一个边上的一个六边形体。

16、以中心六边形体相连的一个六边形体和一个一五边形体为对象，0，0为中心环形阵列3个。

17、上一个UCS ，删除一个外圈的一个五边形体。

18、以中心外圈的一个六边形体和一个一五边形体为对象，0，0为中心环形阵列5个。

19、切换到左视图。

20、以球心水平正交线镜像下半个球。

21、X 轴旋转UCS 90°。上半部分球体以球心为基点旋转36°。

22、着色，完成。

排球画法

一、新建文件，首先在西南等轴侧视图中建立一个300的正立体。

命令：_box

指定长方体的角点或[中心点(CE)]<0,0,0>:0,0,0

指定角点或[立方体(C)/长度(L)]:c

指定长度：300

二、选择分级命令，分解正方体。然后用直线命令连接正方体的对角点图1，再将其他面删除只保留底面，然后将底面分解一次。现在底面已成为线形式，然后用点的定数等分命令等分左右边。等分数3。然后打开对象捕捉的节点。用直线平行连接左右各点如图2

三、将坐标移动到O点，绘制球体。如图3

命令：_sphere

当前线框密度：ISOLINES=4

指定球体球心<0,0,0>:0,0,0

指定球体半径或[直径(D)]：100

四、接下来对球体执行6次剖切。第一次以O,A,D,保留右边部分。第二次以O,H,E,去掉右上方部分。第三次以O,A,H，去掉左上部分。第四次以O,D,E，去掉右边部分，第五次以O,B,G，保留两侧。第六次以O,C,F，保留两侧。将剩余的三部分分别着不同的颜色如图4。

五、为实体部分外边缘倒圆角。

为方便倒圆角，先建三个层，分别命名三个实体。关闭两个图层，先为一个倒。一次制作，圆角半径2。将三个实体做一编组，键盘输入命令G，打开组界面，起一组名，点新建，选择三个实体，确定。然后转到主视图。作环形阵列。中心点位O点，项目总数4，填充触角360，对象为新建编组。得到图5。转到右视图，以O点旋转右视图中正对的编组，角度90。转到左视图，方法同上，如果不方便选择，可以分层操作。如图6。在左视图中给上下两个编组作环形阵列，基点为O点。项目数量2，填充角度90。分别为上下组各做一次。然后转到主视图和后视图分别以O点作旋转操作，角度90。得到图6。

篮球画法

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