电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

AutoCAD中篮球的画法

AutoCAD中篮球的画法_第1页
1/6
AutoCAD中篮球的画法_第2页
2/6
AutoCAD中篮球的画法_第3页
3/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 ObjectDim 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 iSet templ = ThisDrawing.ModelSpace.Add3DPoly(newl) End Sub 精品文档---下载后可任意编辑图 6 7、把红线切掉一半,切换 UCS,画直径为 1 的球,以绿色多段线为路径拉伸圆 图 78、把绿色圆管进行三维镜像,AOC 为轴得到红色圆管,AOB 为轴得到黄色圆管 精品文档---下载后可任意编辑 图 8 9、删除绿管,把红黄两根圆管进行并集运算,再以 ODC 为轴进行三维镜像,再并集 图 9 10、把圆管先放到隐藏图层,再以圆 ODC 和圆 OBC 轴画两根直径为 1 的圆管,注意 ACAD 不能把圆直接拉伸为圆管 精品文档---下载后可任意编辑 图 10 11、画直径为 40 的球,把球和圆管进行差集运算 图 11 我写教程的目的不是让大家花大力气学习 CAD 的三维功能,必竟 ACAD 的三维能力实在太差,用 ACAD 画篮球这种简单的活应该也能很快完成,我画第一遍讨论了二小时,画第二遍不到十分钟。

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

AutoCAD中篮球的画法

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部