From d5a2a25ade6a10299febb4eb2b8a7dfaa6a964d9 Mon Sep 17 00:00:00 2001 From: Demetrio Cassarino Date: Tue, 13 Feb 2024 09:58:35 +0100 Subject: [PATCH] -aggiunto processo Variant --- .../FeatureListManager/FeatureListManagerVM.vb | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/EgtBEAMWALL.ViewerOptimizer/FeatureListManager/FeatureListManagerVM.vb b/EgtBEAMWALL.ViewerOptimizer/FeatureListManager/FeatureListManagerVM.vb index bd6f9b17..536f6323 100644 --- a/EgtBEAMWALL.ViewerOptimizer/FeatureListManager/FeatureListManagerVM.vb +++ b/EgtBEAMWALL.ViewerOptimizer/FeatureListManager/FeatureListManagerVM.vb @@ -280,11 +280,12 @@ Public Class FeatureListManagerVM Dim sPar As String = String.Empty Dim vParQ() As String = Nothing NewFeat.CalcParamArray(vPar, sPar, vParQ) + If NewFeat.nPRC = 900 Then NewFeat.sDES = "2" ' aggiorno la feature con nuovo valore EgtBeamSetPart(Map.refProjectVM.BTLStructureVM.SelBTLPart.nPartId) - nNewFeatureId = EgtBeamAddProcess(NewFeat.nSelGRP, NewFeat.nPRC, NewFeat.nSelSIDE, "", - Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.NewProcId(), - New Frame3d(), vPar, sPar, vParQ, GDB_ID.NULL, GDB_ID.NULL) + nNewFeatureId = EgtBeamAddProcess(NewFeat.nSelGRP, NewFeat.nPRC, NewFeat.nSelSIDE, NewFeat.sDES, + Map.refProjectVM.BTLStructureVM.SelBTLPart.BTLPartM.NewProcId(), + New Frame3d(), vPar, sPar, vParQ, GDB_ID.NULL, GDB_ID.NULL) bMacroFlag = False End Sub