tune clstrip lock.

Machining/DemoBuildGeomOnlyMachiningProject.cs

@@ -27,16 +27,15 @@ namespace Sample.Machining
         {
             MillingCutter millingCutter = new MillingCutter()
             {
-                UpperBeamGeom = new TransformationGeom()
-            };
-
-            double diameter_mm = 12;
-            millingCutter.ShaperProfile = new AptProfile(millingCutter,
+                UpperBeamGeom = new Cylindroid(
+                    [new PairZr(40,6), new PairZr(90,6)]),
+                ShaperProfile = new AptProfile(
                 new ColumnApt()
                 {
-                    Diameter_mm = diameter_mm,
+                    Diameter_mm = 12,
                     FluteHeight_mm = 40
-                });
+                })
+            };
 
             return millingCutter;
         }
@@ -53,12 +52,8 @@ namespace Sample.Machining
             CylindroidHolder cylindroidHolder = new CylindroidHolder()
             {
                 Note = "BT40",
-                Cylindroid = new Cylindroid()
-                {
-                    PairZrs = new List<PairZr>([ new PairZr(0,12),new PairZr(20,12),
-                                new PairZr(20,16),new PairZr(30,16)]),
-                    LongitudeNum = 30
-                }
+                Cylindroid = new Cylindroid([ new PairZr(0,12),new PairZr(20,12),
+                                new PairZr(20,16),new PairZr(30,16)])
             };
             machiningProject.MachiningToolHouse = new MachiningToolHouse()
             {