OpenCASCADE 麻花钻头造型实例分析-卡核

OpenCASCADE 麻花钻头造型实例分析

Abstract. OpenCASCADE provides a simple twist drill bit modeling example in Tcl script. The blog will give a details of some key points, when you understand the key points, you can modeling the shape like that.

Key Words. OpenCASCADE, Twist Drill Bit Modeling, Tcl

1.Introduction

OpenCASCADE的Draw Test Harness中提供了一个麻花钻头造型的实例，如下图所示：

Figure 1. A Simple Twist Drill Bit by OpenCASCADE

钻头造型主要涉及到旋转形状的造型方法，放样造型及布尔操作。本文结合钻头的Tcl脚本来详细说明造型过程。对于有同样造型需求的，可以在理解造型方法的基础上实现自己需要的参数化形状。

2.Modeling Tcl Script

通过Draw Test Harness的菜单Samples->View samples可以找到Drill例子，如下图所示：

Figure 2. Drill bit modeling sample

对应的Tcl脚本位于samples/tcl文件夹中，列出如下：

# Sample: creation of simple twist drill bit

#Category: Modeling

#Title: Drill

pload MODELING VISUALIZATION

# drill parameters (some terms taken from http://www.drill-bits.cn/drill-bits-quality.asp)

dset R  4.    ;# outer radius

dset D  2*R   ;# diameter

dset Rr 3.5   ;# chisel radius (outer radius minus body clearance)

dset b  1.    ;# web thickness (approximate)

dset d  b/2

dset H  80.   ;# height of the spiral part

dset a  3.*pi ;# total angle of spiral rotation

dset sigma 118 ;# point angle, in degrees

# Create section profile by sequence of Boolean operations

# on simple planar objects

puts \"Creating the drill section profile...\"

polyline rectangle1 d -R 0  R -R 0 -d R 0 -R R 0  d -R 0

circle circle1 0 0 0 0 0 1 R

mkedge circle1 circle1

wire circle1 circle1

circle circle2 0 0 0 0 0 1 Rr

mkedge circle2 circle2

wire circle2 circle2

plane p0

mkface rectangle1 p0 rectangle1

mkface circle1 p0 circle1

mkface circle2 p0 circle2

bcommon sec rectangle1 circle1

# note use of \'fuse\' instead of \'bfuse\' -- we need to get single face

fuse sec sec circle2

# Construct flute profile so as to have cutting lip straight after sharpening.

# Here we need to take into account spiral shift of the flute edge

# along the point length -- the way to do that is to make spiral

# from the desired cutting lip edge and then intersect it by plane

polyline lip d -d/2 0  d -R -R/tan(sigma/2*pi/180)

polyline sp 0 0 0 0 0 H

cylinder cc 0 0 0 0 0 1 0 -4 0 4

line ll 0 0 a 80

trim ll ll 0 sqrt(a*a+H*H)

vertex v1 0 -R 0

vertex v2 0 -R H

trotate v2 0 0 0 0 0 1 180.*a/pi

mkedge ee ll cc v1 v2

wire gg ee

mksweep sp

setsweep -G gg 0 0

addsweep lip

buildsweep spiral -S

mkface f0 p0 -R R -R R

bsection sflute spiral f0

# here we rely on that section curve is parameterized from 0 to 1 

# and directed as cutting lip edge;

# note that this can change if intersection algorithm is modified

explode sflute e

mkcurve cflute sflute_1

cvalue cflute 0. x0 y0 z0

cvalue cflute 1. x1 y1 z1

vertex vf0 x0 y0 z0 

vertex vf1 x1 y1 z1

# -- variant: replace curve by arc with start at x0,y0,z0 and end at x1,y1,z1,

# -- such that tanget at start point is along Y

#dset Rflute ((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0))/(2*(x1-x0))

#circle aflute x0+Rflute y0 0  0 0 1  Rflute

#mkedge sflute_1 aflute vf0 vf1

# make rounding in the flute; use circle with radius Rr/2

circle cround x0+Rr/2 y0 0 0 0 1 Rr/2

vertex vf3 x0+Rr y0 0

mkedge sflute_2 cround vf3 vf0

vertex vf2 R -R 0

edge sflute_3 vf3 vf2

edge sflute_4 vf2 vf1

wire w2 sflute_1 sflute_2 sflute_3 sflute_4

mkface flute p0 w2

# cut flute from profile

bcut sec sec flute

trotate flute 0 0 0 0 0 1 180.

bcut sec sec flute

donly sec

# sweep profile to get a drill body

puts \"Sweeping the profile...\"

mksweep sp

setsweep -G gg 0 0

explode sec w

addsweep sec_1

buildsweep base -S

# sharpen the drill (see http://tool-land.ru/zatochka-sverla.php)

puts \"Sharpening...\"

dset theta a*R/H*sin((90-sigma/2)*pi/180)

plane ax1 d 1.9*D \"H+1.9*D/tan(pi/180.*sigma/2.)\" 0 -1 -1

pcone sh1 ax1 0 100*sin((sigma-90)/2*pi/180.) 100

trotate sh1 0 0 0 0 0 1 -theta*180/pi

tcopy sh1 sh2

trotate sh2 0 0 0 0 0 1 180

box sh -D/2 -D/2 72 D D 20

bcommon qq sh1 sh2

bcut sharpener sh qq

bcut body base sharpener

# make a shank

puts \"Making a shank...\"

plane pl2 0 0 -40 0 0 1

pcylinder shank pl2 4 40

pcone transit R 0 R

plane pl3 0 0 -40 0 0 -0.5

pcone tail pl3 R 0 0.5

bfuse shank shank tail

bfuse shank shank transit

bfuse drill body shank

# check result

checkshape drill

# show result

puts \"Displaying result...\"

incmesh drill 0.01

vdisplay drill

vsetdispmode drill 1

vrenderparams -msaa 8

vfit

# show section and sweep path

ttranslate sec_1 0 0 H; trotate sec_1 0 0 0 0 0 1 a*180/pi; incmesh gg 0.01; vdisplay gg sec_1

下面结合Tcl脚本来对钻头的造型过程进行详细说明。

3.Twist Drill Bit Parameters

脚本首先加载相应的模块：造型模块和显示模块，分别为MODEING和VISUALIZATION。然后设置钻头相关参数变量：

Figure 3. Drill Bit

变量名及其说明：

变量名variable	说明 detail
R	外半径 outer radius
D	直径D
Rr	Chisel Radius
b	Web thickness(approximate)
d
H	螺旋部分的高度Height of the spiral height
a	螺旋角度Total angle of spiral rotation
sigma	钻尖角度Point angle in degrees.

先定义这些变量的思想也是参数化的思想，将这些变量值改变就会得到不同的钻头模型。参数化的思想在CAD软件中比较常见，如AutoCAD中的动态块，PDMS中的设备模板Template等，都属于参数化的方法。通过修改参数让一个或多个几何体形状发生变化。

4.Create Drill Section Profile

创建钻头截面的Tcl脚本如下所示：

# Create section profile by sequence of Boolean operations

# on simple planar objects

puts \"Creating the drill section profile...\"

polyline rectangle1 d -R 0  R -R 0 -d R 0 -R R 0  d -R 0

circle circle1 0 0 0 0 0 1 R

mkedge circle1 circle1

wire circle1 circle1

circle circle2 0 0 0 0 0 1 Rr

mkedge circle2 circle2

wire circle2 circle2

plane p0

mkface rectangle1 p0 rectangle1

mkface circle1 p0 circle1

mkface circle2 p0 circle2

bcommon sec rectangle1 circle1

# note use of \'fuse\' instead of \'bfuse\' -- we need to get single face

fuse sec sec circle2

生成的图形如下图所示：

Figure 4 Profile construction curves

其中变量Rectangle1是图中绿色表示的四边形，Circle1是黄色表示的外圆，Circle2是红色表示的内圆。通过布尔操作求取Rectangle1和Circle1的公共部分得到如下图所示的截面：

Figure 5 Common of Rectangle1 and Circle1

将公共部分与内圆Circle2合并得到如图所示截面：

Figure 6. Fuse of Common part and Circle2

下面在这个截面的基础上生成钻头的螺旋凹槽，这里是相对关键的地方，生成凹槽的时候还要考虑螺旋。

# Construct flute profile so as to have cutting lip straight after sharpening.

# Here we need to take into account spiral shift of the flute edge

# along the point length -- the way to do that is to make spiral

# from the desired cutting lip edge and then intersect it by plane

polyline lip d -d/2 0  d -R -R/tan(sigma/2*pi/180)

polyline sp 0 0 0 0 0 H

cylinder cc 0 0 0 0 0 1 0 -4 0 4

line ll 0 0 a 80

trim ll ll 0 sqrt(a*a+H*H)

vertex v1 0 -R 0

vertex v2 0 -R H

trotate v2 0 0 0 0 0 1 180.*a/pi

mkedge ee ll cc v1 v2

wire gg ee

mksweep sp

setsweep -G gg 0 0

addsweep lip

buildsweep spiral -S

mkface f0 p0 -R R -R R

bsection sflute spiral f0

代码生成的图形如下图所示：

Figure 7. Flute of the drill bit

通过将线lip沿着路径直线sp和螺旋线gg放样得到螺旋截面spiral，再将螺旋截面spiral和底平面f0求交得到sflute。

# here we rely on that section curve is parameterized from 0 to 1 

# and directed as cutting lip edge;

# note that this can change if intersection algorithm is modified

explode sflute e

mkcurve cflute sflute_1

cvalue cflute 0. x0 y0 z0

cvalue cflute 1. x1 y1 z1

vertex vf0 x0 y0 z0 

vertex vf1 x1 y1 z1

# -- variant: replace curve by arc with start at x0,y0,z0 and end at x1,y1,z1,

# -- such that tanget at start point is along Y

#dset Rflute ((x1-x0)*(x1-x0)+(y1-y0)*(y1-y0))/(2*(x1-x0))

#circle aflute x0+Rflute y0 0  0 0 1  Rflute

#mkedge sflute_1 aflute vf0 vf1

# make rounding in the flute; use circle with radius Rr/2

circle cround x0+Rr/2 y0 0 0 0 1 Rr/2

vertex vf3 x0+Rr y0 0

mkedge sflute_2 cround vf3 vf0

vertex vf2 R -R 0

edge sflute_3 vf3 vf2

edge sflute_4 vf2 vf1

wire w2 sflute_1 sflute_2 sflute_3 sflute_4

mkface flute p0 w2

通过求得的交线再构造圆弧和线段来构造出钻头凹槽的截面，如下图所示：

Figure 8. Make flute section

将凹槽截面flute从前面构造的截面中去除：

# cut flute from profile

bcut sec sec flute

Figure 9. Make drill bit profile

将凹槽截面绕Z轴旋转180度，再去布尔减原来的截面：

trotate flute 0 0 0 0 0 1 180.

bcut sec sec flute

Figure 10. Make drill bit profile

这样钻头的截面就生成了。

5.Sweeping the Profile

将上面钻头截面沿着直线sp和螺旋线gg放样：

# sweep profile to get a drill body

puts \"Sweeping the profile...\"

mksweep sp

setsweep -G gg 0 0

explode sec w

addsweep sec_1

buildsweep base -S

生成图形如下图所示：

Figure 11. Sweep the profile

通过放样得到了钻头的螺杆base。

6.Sharpening

得到钻头的螺杆后需要生成钻头的钻尖，根据钻尖角point angle变量sigma来造型。

# sharpen the drill (see http://tool-land.ru/zatochka-sverla.php)

puts \"Sharpening...\"

dset theta a*R/H*sin((90-sigma/2)*pi/180)

plane ax1 d 1.9*D \"H+1.9*D/tan(pi/180.*sigma/2.)\" 0 -1 -1

pcone sh1 ax1 0 100*sin((sigma-90)/2*pi/180.) 100

trotate sh1 0 0 0 0 0 1 -theta*180/pi

tcopy sh1 sh2

trotate sh2 0 0 0 0 0 1 180

box sh -D/2 -D/2 72 D D 20

bcommon qq sh1 sh2

bcut sharpener sh qq

bcut body base sharpener

先构造两个圆锥体(sh1和sh2)和一个长方体sh，再通过布尔运算得到两个圆锥体sh1，sh2的公共部分qq。如下图所示：

Figure 12. Modeling point angle

再从长方体sh中减去两个圆锥的公共部分得到如下图所示：

Figure 13. Modeling point angle

将螺杆减去上面得到的sharpener就完成钻尖的造型，如下图所示：

Figure 14. Modeling point angle

7.Make Shank

完成螺杆和钻尖造型后，就来实现麻花钻头的最后部分，钻头柄shank。

# make a shank

puts \"Making a shank...\"

plane pl2 0 0 -40 0 0 1

pcylinder shank pl2 4 40

pcone transit R 0 R

plane pl3 0 0 -40 0 0 -0.5

pcone tail pl3 R 0 0.5

bfuse shank shank tail

bfuse shank shank transit

bfuse drill body shank