这是CAD2007以下版的教程
好不容易才完成了，有的地方怕讲得不清楚所以做了些动画，大家如有什么问题提出来再做解答。

1、以10mm钻头为例。俯视图开始：画条140中心线， Z轴矢量UCS 、z向上，中心画R5圆拉伸140。如图

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

如图：

3、最近点对象捕捉，沿螺旋线Z轴矢量UCS。以0,0为圆心作R3.5圆。如图：

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

5、差集。这样钻头的基本坯子出来了。如图：

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

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

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

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

10、切换在主视图里旋转45°

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