From c27eebb5156e0e1d4c6cc67d8183329871a06e24 Mon Sep 17 00:00:00 2001
From: Mikhail Polikarpov <mikhail.polikarpov@rwth-aachen.de>
Date: Sat, 26 Sep 2020 19:11:54 +0200
Subject: [PATCH] Fixed bug with recording of assembly directions when no
choice is made
---
CatiaNetTest/AssemblyTiers3.vb | 10 ++++++++--
1 file changed, 8 insertions(+), 2 deletions(-)
diff --git a/CatiaNetTest/AssemblyTiers3.vb b/CatiaNetTest/AssemblyTiers3.vb
index ef2ee52..65e91da 100644
--- a/CatiaNetTest/AssemblyTiers3.vb
+++ b/CatiaNetTest/AssemblyTiers3.vb
@@ -653,12 +653,18 @@ Public Class AssemblyTiers3
aTiers(int_i) = intMaxTier + 1 - aTiers(int_i)
End If
'Reverse disassembly axis (assembly axis = -disass. axis)
+ Dim tempAssemblyDirs As Integer()
+ ReDim tempAssemblyDirs(intJ)
For intAxis = 0 To intJ - 1
If disassDir(int_i, intAxis) = 1 Then
- disassDir(int_i, intAxis) = 0
- disassDir(int_i, d3.Item(intAxis)) = 1
+ tempAssemblyDirs(d3.Item(intAxis)) = 1
+ 'disassDir(int_i, intAxis) = 0
+ 'disassDir(int_i, d3.Item(intAxis)) = 1
End If
Next intAxis
+ For intAxis = 0 To intJ - 1
+ disassDir(int_i, intAxis) = tempAssemblyDirs(intAxis)
+ Next intAxis
Next int_i
'Association of components belonging to sequential tiers
--
GitLab