AutoCAD中篮球的画法.docx

上传人:b****8 文档编号:9365364 上传时间:2023-02-04 格式:DOCX 页数:12 大小:878.76KB
下载 相关 举报
AutoCAD中篮球的画法.docx_第1页
第1页 / 共12页
AutoCAD中篮球的画法.docx_第2页
第2页 / 共12页
AutoCAD中篮球的画法.docx_第3页
第3页 / 共12页
AutoCAD中篮球的画法.docx_第4页
第4页 / 共12页
AutoCAD中篮球的画法.docx_第5页
第5页 / 共12页
点击查看更多>>
下载资源
资源描述

AutoCAD中篮球的画法.docx

《AutoCAD中篮球的画法.docx》由会员分享,可在线阅读,更多相关《AutoCAD中篮球的画法.docx(12页珍藏版)》请在冰豆网上搜索。

AutoCAD中篮球的画法.docx

AutoCAD中篮球的画法

AutoCAD中篮球的画法

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课中进行详细解释

Subsp2pl()

DimgetspAsObject

DimpoAsVariant

Dimnewl()AsDouble

Dimp1AsVariant

ThisDrawing.Utility.GetEntitygetsp,po,"本程序将样条曲线转为多段线。

请选择样条曲线"

sumctrl=getsp.NumberOfControlPoints

ReDimnewl(0Tosumctrl*3-1)

 

 Fori=0Tosumctrl-1

 p1=getsp.GetControlPoint(i)

     Forj=0To2

   newl(i*3+j)=p1(j)

 Nextj

Nexti

Settempl=ThisDrawing.ModelSpace.Add3DPoly(newl)

EndSub

图6

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

图7

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

图8

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

图9

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

图10

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

图11

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

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 经管营销 > 人力资源管理

copyright@ 2008-2022 冰豆网网站版权所有

经营许可证编号:鄂ICP备2022015515号-1