From 21ff4be8ec6c25ca49c8cafec81c231539379d73 Mon Sep 17 00:00:00 2001 From: Dario Sassi Date: Tue, 12 May 2026 10:18:39 +0200 Subject: [PATCH] Icarus : - aggiunta impostazione tolleranza di importazione da INI ( [Import] AdvToler=XXX) con default 0.1. --- Icarus/Constants/ConstIni.vb | 1 + Icarus/SceneHost/MySceneHostVM.vb | 2 ++ 2 files changed, 3 insertions(+) diff --git a/Icarus/Constants/ConstIni.vb b/Icarus/Constants/ConstIni.vb index c63fef6..c1ae745 100644 --- a/Icarus/Constants/ConstIni.vb +++ b/Icarus/Constants/ConstIni.vb @@ -104,6 +104,7 @@ Public Module ConstIni Public Const K_STLSCALE As String = "StlScale" Public Const K_CNCFLAG As String = "CncFlag" Public Const K_ADVFLAG As String = "AdvFlag" + Public Const K_ADVTOLER As String = "AdvToler" 'Public Const S_SIMUL As String = "Simul" 'Public Const K_SLIDERX As String = "SliderX" diff --git a/Icarus/SceneHost/MySceneHostVM.vb b/Icarus/SceneHost/MySceneHostVM.vb index 6453392..7456dda 100644 --- a/Icarus/SceneHost/MySceneHostVM.vb +++ b/Icarus/SceneHost/MySceneHostVM.vb @@ -1244,6 +1244,8 @@ Public Class MySceneHostVM If nType = FT.OBJ Or nType = FT.IGES Or nType = FT.STEP_ Or nType = FT.ACIS Or nType = FT.PARASOLID Or nType = FT.JT Or nType = FT.VRML Or nType = FT.C3D Then nFlag = GetMainPrivateProfileInt(S_IMPORT, K_ADVFLAG, 0) + Dim dToler As Double = GetMainPrivateProfileDouble(S_IMPORT, K_ADVTOLER, 0.1) + MainController.SetAdvImpTolerance( dToler) Else nFlag = 0 End If