图2 铣刀截面多边形
(setq p11 (polar (list 0 0 0) (/ pi 2) 23.5))
(setq p12 (polar p11 0 db))
(setq p13 (polar p12 (/ pi 2 -1) 13.5))
(setq p14 (polar p13 (* pi -1) db))
;定义铣刀截面多边形各节点P11、P12、P13、P14
(command "pline" p12 p13 p14 p11 "a" "cl" "") ；用多段线绘制铣刀截面多边形
(command "revolve" "l" "" "x" "" )；旋转生成铣刀体
(setq o1 (entlast))；返回图元名
(command "ucs" "y" "" "" "color" 1)；坐标系绕Y轴转90°，并指定颜色为红色
(setq p20 (list 0 0 0))；设当前坐标原点为P20
(setq p21 (polar p20 0 3.3))
(setq p22 (polar p21 (/ pi 2 ) 5.2))
(setq p23 (polar p22 (/ (* 105 pi )180) 1.3))
(setq p24 (polar p20 (/ pi 2 ) 6))
(setq p25 (polar p20 (/ pi 2 ) 5))
；定义铣刀槽截面多边形各节点P20、P21、P22、P23、P24及基点P25，如图3所示
图3 铣刀槽多边形
(command "pline" p20 p21 p22 p23 "a" p24 "l" "c" "")；用多段线生成铣刀截面多边形
(command "extrude" "l" "" (* 2 db) "")；拉伸形成刀槽体
(setq o2 (entlast))；返回该图元名
(command "move" o2 "" p25 (list 0 -25 -1))；以基点P25移动刀槽体到指定点
(command "array" o2 "" "p" p21 20 "" "" )；将刀槽体环形矩阵20个
(setq ss (ssget "x" '((62 . 1))))；以红色为过滤器创建选择集ss
(command "subtract" o1 "" ss "")；将铣刀体与刀槽体进行布尔差运算生成铣刀简化模型
(setq o3 (entlast))；返回该图元名
(command "rotate" o3 "" p21 5)；铣刀旋转5°
(command "move" o3 ""
(list 0 0 0) (list 0 (* -1 (+ 25 (/ (- d db) 2))) 0))；将铣刀移动到切削位置
三、螺纹加工三维仿真
1.车削螺纹仿真原理
螺旋线的数学模型是：
其中，p为螺距，
为瞬时角，r为基圆半径。基圆柱体每旋转一个步距角，车刀平行于圆柱体轴线进给一个量，将车刀复制件与圆柱体布尔差运算，再进行下一个循环。
