diff --git a/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLFeatureVM.vb b/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLFeatureVM.vb
index 175f88bd..71290716 100644
--- a/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLFeatureVM.vb
+++ b/EgtBEAMWALL.ViewerOptimizer/BTLViewModel/BTLFeatureVM.vb
@@ -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