CAD画麻花钻头的教程

CAD画麻花钻头的教程
作者: gia 发布日期: 2006-7-31 查看数: 284 出自:
作者：佚名资料库来源：cad世界网
这是CAD2007以下版的教程
好不容易才完成了，有的地方怕讲得不清楚所以做了些动画，大家如有什么问题提出来再做解答。

1、以10mm钻头为例。

俯视图开始：画条140中心线，Z轴矢量UCS 、z向上，中心画R5圆拉伸140。

如图
图1
2、画螺旋线：
画螺旋线的程序很多，我用的是以下程序：
;========================================================
;
; 本程序适用于锥形，倒锥形，柱形，螺旋线的生成
; 2000.6.1 LJC
; 2000.5.30 2000.6.1 2004.2
;
;======================================================== (defun C:xlt(/)
(setq b1(getpoint "\n下端圆心: "))
(setq ang0(getreal "总转角："))
(setq a(getreal "下端圆半径R=："))
(setq b(getreal "上端圆半径r=："))
(setq h(getreal"上、下端高差H=:"))
(setq n(fix h))
(setq delt (/ (*(/ ang0 180) pi) n ))
(setq j( / h n))
(setq ang 0)
(setq jj 0)
(command "ucsicon" "or" )
(command "ucs" "o" b1)
(command "3dpoly" (list a 0 0))
(repeat n
(setq jj(+ jj 1))
(setq j1(+ 0 (* j jj)))
(setq ang (+ delt ang))
(setq r(- a (/ (* j1 (- a b))h)))
(setq pt2(list (* r (cos ang))(* r (sin ang))(+ 0 (* j jj))))
(command pt2)
)
(command "")
)
关闭对象捕捉
输入：xlt
下端中心线0,0
总转角525
下端圆半径 4.2
上端圆半径 4.2
上下端高差85
如图：
图2
3、最近点对象捕捉，沿螺旋线Z轴矢量UCS。

以0,0为圆心作R3.5圆。

如图：
图3
4、路径拉伸，端面再拉伸20，阵列。

如图：
图4
5、差集。

这样钻头的基本坯子出来了。

如图：
图5
6、在大约86处剖切、保留两侧，下面部分向右40复制一个。

如图:
图6
7、左边图以中心线作一个内径9.5外径12高90的实体套筒，差集。

如图：
图7
8、右边图向下1复制一个、差集。

如图：
图8
9、右边图向左遇到40，与左边图重合，全部并集。

如图：
图9
10、切换在主视图里旋转45°
图10
11、回到俯视图，画一个60°的梯形——面域、旋转成实体——中心剖切留右边——向左移动1——中心剖切留右边。

图11
12、切换到左视图，距离中心线底端2.5为中心旋转-5。

如图：
图12
13、绕Y 轴的旋转角度90°——阵列。

如图：
图13
14、差集。

如图：
图14
15、钻头建模就完成了
图15
图16。