samples/tcl/cutter.tcl

   1 # Sample: creation of milling cutter
   2 #Category: Modeling
   3 #Title: Milling cutter
   4
   5 pload MODELING VISUALIZATION
   6
   7 # parameters
   8 dset R  10.    ;# outer radius
   9 dset H  20.    ;# height of the spiral part
  10 dset a  0.5*pi ;# total angle of spiral rotation
  11
  12 # make profile
  13
  14 circle outer 0 0 0 0 0 1 R
  15 circle inner 0 0 0 0 0 1 R-2
  16 circle round 3 6 0 0 0 1 5
  17 polyline cut -2 0 0  -2 R+1 0  0.5 R+1 0  -1 0 0  -2 0 0
  18
  19 proc _curvetoface {name} {
  20   uplevel #0 mkedge $name $name
  21   uplevel #0 wire $name $name
  22   uplevel #0 mkface $name p0 $name
  23 }
  24
  25 plane p0
  26 _curvetoface outer
  27 _curvetoface inner
  28 _curvetoface round
  29 mkface cut p0 cut
  30
  31 bcommon teeth cut round
  32 bcommon teeth teeth outer
  33
  34 tcopy inner profile
  35 set nbteeths 25
  36 for {set i 0} {$i < $nbteeths} {incr i} {
  37   fuse profile profile teeth
  38   trotate teeth 0 0 0 0 0 1 360./$nbteeths
  39 }
  40
  41 # sweep profile along curved shape
  42
  43 polyline sp 0 0 0  0 0 H
  44 cylinder ss 0 0 0  0 0 1  1 0 0  R
  45 vertex v1 R 0 0
  46 vertex v2 R 0 H
  47 line ll 0 0 a H
  48 trim ll ll 0 sqrt(a*a+H*H)
  49
  50 trotate v2 0 0 0 0 0 1 180.*a/pi
  51 mkedge ee ll ss v1 v2
  52 wire gg ee
  53
  54 donly profile sp gg
  55 explode profile w
  56 tcopy profile_1 profile_2
  57 tcopy profile_1 profile_3
  58 tscale profile_1  0 0 0  1./(R-2)
  59 ttranslate profile_2 0 0 H/2
  60 tscale profile_2  0 0 H/2  4./(R-2)
  61 ttranslate profile_3 0 0 H
  62 tscale profile_3  0 0 H  3./(R-2)
  63
  64 mksweep sp
  65 setsweep -G gg 0 0
  66 addsweep profile_1
  67 addsweep profile_2
  68 addsweep profile_3
  69 vclear
  70
  71 buildsweep base -S
  72
  73 # make a shank
  74 plane p1 0 0 H 0 0 1
  75 pcylinder shank p1 1.4 H
  76 plane p2 0 0 H+1 0 0 1
  77 pcylinder sh2 p2 1.5 H-1
  78 bfuse shank shank sh2
  79 bfuse cutter base shank
  80
  81 # check result
  82 checkshape cutter
  83
  84 # show result
  85 incmesh cutter 0.01
  86 vdisplay cutter
  87 vsetdispmode cutter 1
  88 vrenderparams -msaa 8
  89 incmesh profile_1 0.01; vdisplay profile_1
  90 vfit