decimal step sizes allowed.

CatiaNetTest/AndOrDataExtraction.vb

@@ -15,7 +15,7 @@ Public Class AndOrDataExtraction
     Public bGenerateANDOR As Boolean
     Public bAutomaticStep As Boolean
     Public iBoundingBoxCode As Integer
-    Public intStep As Integer
+    Public intStep As Double
     Public dCollSens As Double
     Public t_liaison As Double
     Public t_mw As Double
@@ -42,14 +42,14 @@ Public Class AndOrDataExtraction
     Sub CatMain()
 
         'Test parameters
-        iBoundingBoxCode = 1
+        iBoundingBoxCode = 2
         bBoundingBoxProjectionCheck = True
         bGenerateANDOR = False
-        bAutomaticStep = True
-        intStep = 13
-        dCollSens = 2
+        bAutomaticStep = False
+        intStep = 2
+        dCollSens = 1
         xlsPath = "D:\03_Dissertation\20_Tools\CATIA_NET\ProgData\"
-        xlsFileName = "ex_rq1_10_orenda_jet_enginge"
+        xlsFileName = "ex_rq1_5_shear_mold"
 
         CATIA = GetObject(, "CATIA.Application")
         If CATIA Is Nothing Then CATIA = CreateObject("CATIA.Application")

CatiaNetTest/AssemblyTiers2.vb

@@ -28,7 +28,7 @@ Public Class AssemblyTiers2
     Public bChooseExtractionDirection As Boolean
     Public intJ As Integer
     Public iBoundingBoxCode As Integer
-    Public intStep As Integer
+    Public intStep As Double
     Public dCollSens As Double
     Public xlsPath As String
     Public xlsFileName As String
@@ -1660,7 +1660,7 @@ exitCD:
     End Function
 
     Sub moveProduct(objProd As Product, intDir As Integer, bPositive As Boolean)
-        Dim intS As Integer
+        Dim intS As Double
         If bPositive = True Then
             intS = intStep
         Else