-aggiunta lettura generica parametri disegno

2025-02-05 17:32:10 +01:00
parent 250d639dcc
commit 180ba2ca8d
8 changed files with 161 additions and 6 deletions
@@ -400,8 +400,7 @@ Module SceneCmd
 #Region "METHODS"

   Public Sub Exec(Flag)
-      Dim _SceneHostVM As SceneHostVM = DirectCast(Map.refSceneHostV.DataContext, SceneHostVM)
-      Dim nVeinCtx As Integer = _SceneHostVM.MainScene.GetCtx()
+      Dim nVeinCtx As Integer = Map.refSceneHostVM.MainScene.GetCtx()
      Select Case Flag
         Case EGT_AUTOPAIR
            EgtSetCurrentContext(nVeinCtx)
@@ -436,6 +435,10 @@ Module SceneCmd
            ExportProjectNge()
         Case "Delete"
            SolidManagerM.Delete(Map.refSceneHostVM.m_nIdPart)
+         Case "Rettangolo"
+            Map.refSceneButtonV.LoadParametricCompoUC("Rettangolo" & ".lua")
+         Case "Poligono"
+            Map.refSceneButtonV.LoadParametricCompoUC("Poligono" & ".lua")
         Case Else
            Dim x As Boolean = False
      End Select