Egalware/egtbeamwall
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-piccola sistemazione su variant

Browse Source
This commit is contained in:
Demetrio Cassarino
2025-01-22 09:32:19 +01:00
parent 24bb030080
commit 64beb381ca
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files
EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLFeatureVM.vb
+3 -2
View File
@@ -137,7 +137,7 @@ Public Class BTLFeatureVM
m_BTLFeatureM.nSelVARIANT = value
' crea parametri per questa feature da file ini
m_BTLFeatureM.CreateFeatureParams(m_BTLFeatureM)
m_BTLFeatureM.ReadFeatureParams()
m_BTLFeatureM.SetDefaultValues()
CreatePBTLParamVMList()
CreateQBTLParamVMList()
' aggiorno la feature con nuovo valore
@@ -148,7 +148,7 @@ Public Class BTLFeatureVM
If IsNothing(vPar) Then
m_BTLFeatureM.nSelVARIANT = 0
m_BTLFeatureM.CreateFeatureParams(m_BTLFeatureM)
m_BTLFeatureM.ReadFeatureParams()
m_BTLFeatureM.SetDefaultValues()
CreatePBTLParamVMList()
CreateQBTLParamVMList()
m_BTLFeatureM.CalcParamArray(vPar, sPar, vParQ)
@@ -157,6 +157,7 @@ Public Class BTLFeatureVM
Dim bOK As Boolean = m_BTLFeatureM.UpdateParams(nSelGRP, m_BTLFeatureM.nPRC, nSelSIDE, sDES, m_BTLFeatureM.nPRID,
m_BTLFeatureM.frFRAME, vPar, sPar, vParQ)
If bOK Then
EgtDuploSetModified(m_BTLPartM.nPartId)
' seleziono feature in disegno
SelGeomFeature()
' rendo non calcolata questa feature