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

Icarus :

Browse Source 
- aggiunta impostazione tolleranza di importazione da INI ( [Import] AdvToler=XXX) con default 0.1.
This commit is contained in:
Dario Sassi
2026-05-12 10:18:39 +02:00
parent 228a751335
commit 21ff4be8ec
2 changed files with 3 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Icarus/Constants/ConstIni.vb
+1
View File
@@ -104,6 +104,7 @@ Public Module ConstIni
Public Const K_STLSCALE As String = "StlScale" Public Const K_STLSCALE As String = "StlScale"
Public Const K_CNCFLAG As String = "CncFlag" Public Const K_CNCFLAG As String = "CncFlag"
Public Const K_ADVFLAG As String = "AdvFlag" Public Const K_ADVFLAG As String = "AdvFlag"
Public Const K_ADVTOLER As String = "AdvToler"
'Public Const S_SIMUL As String = "Simul" 'Public Const S_SIMUL As String = "Simul"
'Public Const K_SLIDERX As String = "SliderX" 'Public Const K_SLIDERX As String = "SliderX"
Icarus/SceneHost/MySceneHostVM.vb
+2
View File
@@ -1244,6 +1244,8 @@ Public Class MySceneHostVM
If nType = FT.OBJ Or nType = FT.IGES Or nType = FT.STEP_ Or nType = FT.ACIS Or 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 nType = FT.PARASOLID Or nType = FT.JT Or nType = FT.VRML Or nType = FT.C3D Then
nFlag = GetMainPrivateProfileInt(S_IMPORT, K_ADVFLAG, 0) nFlag = GetMainPrivateProfileInt(S_IMPORT, K_ADVFLAG, 0)
Dim dToler As Double = GetMainPrivateProfileDouble(S_IMPORT, K_ADVTOLER, 0.1)
MainController.SetAdvImpTolerance( dToler)
Else Else
nFlag = 0 nFlag = 0
End If End If