AutoCAD中各种球的画法

《AutoCAD中各种球的画法》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、足球画法1、在俯视图中，先画边长50的正五边形和正六边形，再根据图上的图样画圆和其他辅助线。2、以C圆的中心点为圆心，旋转正六边形的中心垂线从C圆的象限点到B点，交于与正五边形的中心垂线为O点。3、删除多余的辅助线。以O为圆心OB为半径作D圆，复制园B，圆心落在D圆象限点上。4、拉伸正六边形，以O点到B圆的圆心为指定拉伸高度；以O点到B圆的上象限点为指定拉伸的倾斜角度。1、删除多余的辅助线。以O为圆心OA为半径重新作D圆，复制园A，圆心落在D圆象限点上。2、拉伸正五边形，以O点到A圆的圆心为指定拉伸高度

2、；以O点到A圆的上象限点为指定拉伸的倾斜角度。3、删除多余的辅助线。转动一下视口，参照图画两锥体的相交线和各中心垂线这三条辅助线（红色线）。4、倒圆角（R=4）。5、转动一下视口，注意红线的几个端点：A；B；C和C'。10、三维对齐：指定第一个源点：A，指定第一个目标点:A；指定第二个源点：B，指定第二个目标点:B；指定第三个源点：C，指定第一个目标点:C'。11、以O点，OB为半径画球体，以O点，105为半径再画个球体；差集成一空心球。12、原地再复制一个空心球，分别与两锥体交集。13、R=4倒圆角，

3、五边形体着上红色。14、以五边形体中心线作Z轴矢量UCS。以六边形体为对象，0，0为中心环形阵列5个。15、以六边形体中心线作Z轴矢量UCS，删除一个边上的一个六边形体。16、以中心六边形体相连的一个六边形体和一个一五边形体为对象，0，0为中心环形阵列3个。17、上一个UCS，删除一个外圈的一个五边形体。18、以中心外圈的一个六边形体和一个一五边形体为对象，0，0为中心环形阵列5个。19、切换到左视图。20、以球心水平正交线镜像下半个球。21、X轴旋转UCS90°。上半部分球体以球心为基点旋转36°。2

4、2、着色，完成。排球画法一、新建文件，首先在西南等轴侧视图中建立一个300的正立体。　　命令：_box　　指定长方体的角点或[中心点(CE)]<0,0,0>:0,0,0　　指定角点或[立方体(C)/长度(L)]:c　　指定长度：300二、选择分级命令，分解正方体。然后用直线命令连接正方体的对角点图1，再将其他面删除只保留底面，然后将底面分解一次。现在底面已成为线形式，然后用点的定数等分命令等分左右边。等分数3。然后打开对象捕捉的节点。用直线平行连接左右各点如图2三、将坐标移动到O点，绘制球体。如图3　　

5、命令：_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。五、为实体部分外边缘倒圆角。为方便倒圆角，先建三个层，分别命名三个实体。关闭两个图层，先为一个倒。一次

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

7、40画圆，画OA，A点坐标：@40<-45，AH是垂线图12、画投影椭圆把视图改为西南等轴测，切换ucs，然后再画一个椭圆，椭圆以O为中心，H点是一个轴，另一个轴位于Y轴上，长度只要小于40就行，我用35，但是感觉比真球小了一点图23、把椭圆拉伸为椭圆柱，画白色球体红色椭圆柱高度不能太低，白球以O为圆心，直径40图34、把椭圆柱和白色球进行交集运算，获到红色实体图45、炸开红色实体，删除多余线，留下在A点上的红色样条线，图5   6、转变ucs，画直径为40的绿色圆，用圆和红色样条线的交点打断样条线，再

8、把样条线转化为多段线。   转化样条线有几个办法，都太烦，我还是选择必杀技：用VBA代码，下面这段代码不必看懂它，照搬就行，我将在VBA教程第10课中进行详细解释Subsp2pl()DimgetspAsObjectDimpoAsVariantDimnewl()AsDoubleDimp1AsVariantThisDrawing.Utility.GetEntitygetsp,po,"本程序将样条曲线转为多段线。请选择样条曲线"sumctrl=g