ViewVC Help

View File | Revision Log | Show Annotations | View Changeset | Root Listing

root/REPOS_ERICCA/magicsld/PoGCode.vb

Comparing magicsld/PoGCode.vb (file contents):
Revision 46 by bournival, Wed Aug 22 18:28:53 2007 UTC vs.
Revision 48 by bournival, Wed Aug 22 21:18:12 2007 UTC

#	Line 1 | Line 1
1		Imports System
2		Imports System.IO
3	+	Imports SolidWorks.Interop
4	+	Imports SolidWorks.Interop.swconst
5	+	Imports SolidWorks.Interop.swpublished
6		Module PoGCode
7		Private TabPoints(,) As Double
8		Private tabpointsface() As SldWorks.Face2
#	Line 46 | Line 49 | Module PoGCode
49		Dim grill As New grille
50		Dim Bbox() As Double
51		Dim path As String
49	–	Dim erx_rm As Double
52
53
54		Dim CMDialogl As New Windows.Forms.SaveFileDialog
#	Line 75 | Line 77 | Module PoGCode
77		initialisation()
78
79		'initialistation de la grille
80	<	Dim Coeffmax As Double = Math.Max(Math.Max(Arrondis, matiere), Math.Max(rentrant, Entities))
81	<	Dim taillecase As Double = Eng * (1 - Coeffmax)
80	>	Dim Coeffmin As Double = Math.Min(Math.Min(Arrondis, matiere), Math.Min(rentrant, Entities))
81	>	Dim taillecase As Double = Eng * (1 - Coeffmin)
82		Bbox = swbody.GetBodyBox
83		' on initialise la grille 0.5 pourcent supérieur à la bounding box
84		grill.initialiser(Bbox(0) - (Bbox(3) - Bbox(0)) * 0.005, Bbox(1) - (Bbox(4) - Bbox(1)) * 0.005, Bbox(2) - (Bbox(5) - Bbox(2)) * 0.005, Bbox(3) + (Bbox(3) - Bbox(0)) * 0.005, Bbox(4) + (Bbox(4) - Bbox(1)) * 0.005, Bbox(5) + (Bbox(5) - Bbox(2)) * 0.005, Int((Bbox(3) - Bbox(0) + 2 * (Bbox(3) - Bbox(0)) * 0.005) / taillecase), Int((Bbox(4) - Bbox(1) + 2 * (Bbox(4) - Bbox(1)) * 0.005) / taillecase), Int((Bbox(5) - Bbox(2) + 2 * (Bbox(5) - Bbox(2)) * 0.005) / taillecase))
#	Line 87 | Line 89 | Module PoGCode
89		End If
90		' Si la case retrait matiere est cochée
91		If matiereBool = True Then
92	<	erx_rm = determination_precision_retrait_mat(Eng, matiere)
91	<	raffinement_retrait_matiere(Eng, erx_rm)
92	<	'testretraitMatiere(Eng, erx_rm)
92	>	testretraitMatiere(matiere)
93		End If
94		' si la case rentrant est cochée
95		If rentrantBool = True Then
#	Line 134 | Line 134 | Module PoGCode
134		''' <remarks></remarks>
135		Public Function DebutAutomatique(ByVal Erx As Double, ByVal LimPT As Double) As String
136
137	<	MsgBox("Erx = " & Erx & vbCr & "Limite = " & LimPT)
137	>	Dim vbody As Object
138	>	Dim grill As New grille
139	>	Dim Bbox() As Double
140	>	Dim path As String
141	>	Dim Eng As Double
142	>	Dim coef_min As Double
143	>	Erx = (100 - Erx) / 100 ' valeur d'erreur d'analyse exacte a priori
144	>
145	>
146	>	Dim CMDialogl As New Windows.Forms.SaveFileDialog
147	>	CMDialogl.DefaultExt = ".txt"
148	>	CMDialogl.Filter = "Fichiers PoG (*.txt)|*.txt|Tout fichiers(*.*)|*.*"
149	>
150	>	CMDialogl.OverwritePrompt = True
151	>	CMDialogl.Title = "Sélectionnez le fichier pour enregistrer les points"
152	>	CMDialogl.ShowDialog()
153	>	path = CMDialogl.FileName
154	>	path = Txtpath(path)
155	>	If path Is Nothing Or path = "" Then MsgBox("Aucun fichier sélectionné, sortie du programme!", MsgBoxStyle.Critical, "Erreur!") : Return ""
156	>
157	>	vBodies = swPart.GetBodies2(SwConst.swBodyType_e.swAllBodies, True)
158	>	For Each vbody In vBodies
159	>	cpt = 0
160	>	Erase TabPoints
161	>	Erase Tabface
162	>	Erase TabFaceDouble
163	>	Erase TabEdge
164	>	Erase TabEdgeDouble
165	>
166	>	swbody = vbody
167	>	BoiteEnglobante()
168	>	initialisation()
169	>
170	>	'Calul de Eng
171	>	Eng = determination_ecart_nodal_global_retraits_mat(Erx, coef_min)
172	>
173	>
174	>	'initialistation de la grille
175	>
176	>	Dim taillecase As Double = Eng * (1 - coef_min)
177	>	Bbox = swbody.GetBodyBox
178	>	' on initialise la grille 0.5 pourcent supérieur à la bounding box
179	>	grill.initialiser(Bbox(0) - (Bbox(3) - Bbox(0)) * 0.005, Bbox(1) - (Bbox(4) - Bbox(1)) * 0.005, Bbox(2) - (Bbox(5) - Bbox(2)) * 0.005, Bbox(3) + (Bbox(3) - Bbox(0)) * 0.005, Bbox(4) + (Bbox(4) - Bbox(1)) * 0.005, Bbox(5) + (Bbox(5) - Bbox(2)) * 0.005, Int((Bbox(3) - Bbox(0) + 2 * (Bbox(3) - Bbox(0)) * 0.005) / taillecase), Int((Bbox(4) - Bbox(1) + 2 * (Bbox(4) - Bbox(1)) * 0.005) / taillecase), Int((Bbox(5) - Bbox(2) + 2 * (Bbox(5) - Bbox(2)) * 0.005) / taillecase))
180	>
181	>
182	>	raffinement_retrait_matiere(Eng, Erx, LimPT)
183	>
184	>
185	>	' on crée les points d'échantillonnage sur les sommets
186	>	CreerPointsVertex(Eng, grill)
187	>	' on crée les points d'échantillonnage sur les arêtes
188	>	CreerPointsEdge(Eng, grill)
189	>	' on crée les points d'échantillonnage sur les faces
190	>	CreerPointsFace(Eng, grill)
191	>
192
193	<	Return Nothing
193	>	' on créée le fichier d'échantillonnage
194	>	fichiertxt(Eng, path)
195	>	swModel.ClearSelection2(True)
196	>	testPog(False, False, False, True, False)
197	>	Return path
198	>	Next vbody
199		End Function
200
201		Sub entitéselection(ByRef coeff As Double, ByRef Ind As Boolean)
#	Line 385 | Line 444 | Module PoGCode
444		Next cpt1
445
446		End Sub
447	<	Sub testretraitMatiere(ByRef Eng As Double, ByRef erx As Double)
447	>	Sub testretraitMatiere(ByRef coeff As Double)
448
449		Dim swface As SldWorks.Face2
450		Dim swsurface As SldWorks.Surface
#	Line 395 | Line 454 | Module PoGCode
454		Dim cpt1 As Integer
455		Dim cpt2 As Integer
456		Dim swedge As SldWorks.Edge
398	–	Dim swedgetmp As SldWorks.Edge
457		Dim vedge As Object
458		Dim vface As Object
459		Dim cpt3 As Integer
402	–	Dim cpt4 As Integer
460		Dim i As Integer
461		Dim swent As SldWorks.Entity
462		Dim bRet As Boolean
463	<	Dim lmbd_rm As Integer
464	<	Dim courb_rm As Double
408	<	Dim coeff As Double
409	<	Dim lg As Double
410	<	Dim lgi As Double
411	<	Dim angle As Double
412	<	Dim n(2) As Double
413	<	Dim area As Double
414	<	Dim select_loop As Integer
415	<	Dim t As Double
416	<	Dim diametre As Double = 0
417	<	Dim tmp() As Double
418	<
419	<
420	<	lmbd_rm = 0
421	<	courb_rm = 0
463	>	Dim lmbd_rm As Double = 4
464	>	Dim courb_rm As Double = 0
465
466		swfaceref = swbody.GetFirstFace
467	+
468		For cpt1 = 0 To swbody.GetFaceCount - 1
425	–	diametre = 0
469		swfeat = swfaceref.GetFeature
470		swsurface = swfaceref.GetSurface
471		swloop = swfaceref.GetFirstLoop
472		For cpt2 = 0 To swfaceref.GetLoopCount - 1
430	–	select_loop = 0
473		If swloop.IsOuter = False Then
474		vedge = swloop.GetEdges
475		For cpt3 = 0 To swloop.GetEdgeCount - 1
476		swedge = vedge(cpt3)
477		vface = swedge.GetTwoAdjacentFaces
478	<	swface = vface(0)
479	<	If swface.IsSame(swfaceref) = True Then swface = vface(1)
480	<	angle = GetAngle(swedge, swfaceref, swface)
481	<	If angle < 179 Then
482	<	If (select_loop = 0) Then
483	<
442	<	n = direction_retrait_matiere(swloop, swfaceref)
443	<	lg = 0
444	<	For cpt4 = 0 To swloop.GetEdgeCount - 1
445	<	swedgetmp = vedge(cpt4)
446	<	lgi = get_edge_plane_lenght(swedgetmp, n)
447	<	lg = lg + lgi
448	<	Next cpt4
449	<	area = get_loop_plane_area(swloop, n)
450	<
451	<	diametre = 4 * area / lg
452	<
453	<	select_loop = 1
454	<	End If
455	<	If diametre > 0.000001 Then
456	<	If raffinn_auto_retrait_mat(erx, coeff, lmbd_rm, courb_rm, Eng, diametre / 2, tmp) Then ChangeTabFace(swface, coeff, lmbd_rm, courb_rm)
478	>	For i = 0 To 1
479	>	swface = vface(i)
480	>	If swface.IsSame(swfaceref) = False Then
481	>	If GetAngle(swedge, swfaceref, swface) < 179 Then
482	>	ChangeTabFace(swface, coeff)
483	>	End If
484		End If
485	<	End If
485	>	Next i
486		Next cpt3
487		Else
488		If swfeat.GetTypeName = "HoleWzd" Then
489	<	diametre = 0
463	<	Dim hole As SldWorks.WizardHoleFeatureData2
464	<	hole = swfeat.GetDefinition
465	<	Select Case hole.Type
466	<	Case 0, 2 To 5, 7 To 9
467	<	diametre = hole.Diameter
468	<	Case 1, 6
469	<	diametre = (hole.MajorDiameter - hole.MinorDiameter) / 2
470	<	Case 10 To 13, 22 To 24, 43
471	<	diametre = hole.HoleDiameter
472	<	Case 14 To 21, 25 To 30, 44, 45
473	<	diametre = hole.ThruHoleDiameter
474	<	Case 31, 32, 37, 38, 46, 47
475	<	diametre = hole.TapDrillDiameter
476	<	Case 33 To 36, 39 To 42, 48 To 55
477	<	diametre = hole.ThruTapDrillDiameter
478	<	Case Else
479	<	MsgBox("Type de trou non reconnu")
480	<	End Select
481	<	If diametre > 0.000001 Then
482	<	If raffinn_auto_retrait_mat(erx, coeff, lmbd_rm, courb_rm, Eng, diametre / 2, tmp) Then ChangeTabFace(swfaceref, coeff, lmbd_rm, courb_rm)
483	<	End If
489	>	ChangeTabFace(swfaceref, coeff)
490		Else
491	<	If swfeat.GetFaceCount = 1 And (swfeat.GetTypeName = "Cut" Or swfeat.GetTypeName = "RevCut") Then
492	<	diametre = 0
493	<	Dim params() As Double
488	<	If swsurface.Identity = 4002 Then
489	<	params = swsurface.CylinderParams
490	<	diametre = params(6) * 2
491	<	End If
492	<	If swsurface.Identity = 4003 Then
493	<	params = swsurface.ConeParams
494	<	diametre = params(6) * 2
495	<	End If
496	<	If swsurface.Identity = 4005 Then
497	<	params = swsurface.TorusParams
498	<	diametre = params(7) * 2
499	<	End If
500	<	If diametre > 0.000001 Then
501	<	If raffinn_auto_retrait_mat(erx, coeff, lmbd_rm, courb_rm, Eng, diametre / 2, tmp) Then ChangeTabFace(swfaceref, coeff, lmbd_rm, courb_rm)
491	>	If swfeat.GetFaceCount = 1 And swfeat.GetTypeName = "Cut" Then
492	>	If swsurface.Identity = 4002 Or swsurface.Identity = 4003 Or swsurface.Identity = 4005 Then
493	>	ChangeTabFace(swfaceref, coeff)
494		End If
495		End If
496		End If
#	Line 507 | Line 499 | Module PoGCode
499		Next cpt2
500		swfaceref = swfaceref.GetNextFace
501		Next cpt1
502	+
503		End Sub
504		Sub testAngleMatiere(ByRef coeff As Double)
505
#	Line 519 | Line 512 | Module PoGCode
512		Dim cpt1 As Integer
513		Dim Phi As Double
514		Dim swcurve As SldWorks.Curve
515	<	Dim lmbd_am As Integer
516	<	Dim courb_am As Double
517	<	lmbd_am = 6
525	<	courb_am = 2
515	>	Dim lmbd_am As Double = 4
516	>	Dim courb_am As Double = 0
517	>
518
519		vedge = swbody.GetEdges
520		' on test les arete et on prend celles qui sont des lignes
#	Line 1638 | Line 1630 | Module PoGCode
1630		swedge = TabEdge(cpt2)
1631		vEdgeU = swedge.GetCurveParams2
1632		longueur = GetEdgeLenght(swedge)
1633	<	pasmax = distance_entre_points(Eng, TabEdgeDouble(0, cpt2), TabEdgeDouble(1, cpt2), TabEdgeDouble(2, cpt2), 0.15)
1633	>	pasmax = distance_entre_points(Eng, TabEdgeDouble(0, cpt2), TabEdgeDouble(1, cpt2), TabEdgeDouble(2, cpt2), 0.5)
1634
1635		nbpas = 3 * Math.Max(2, Math.Floor(longueur / pasmax - 0.0001) + 1)
1636		pas = (vEdgeU(7) - vEdgeU(6)) / nbpas
#	Line 1724 | Line 1716 | Module PoGCode
1716		vSurfParam = swsurf.Parameterization
1717
1718		vUVlong = GetUVLong(swface)
1719	<	pasmax = distance_entre_points(Eng, TabFaceDouble(0, cpt3), TabFaceDouble(1, cpt3), TabFaceDouble(2, cpt3), 0.15)
1719	>	pasmax = distance_entre_points(Eng, TabFaceDouble(0, cpt3), TabFaceDouble(1, cpt3), TabFaceDouble(2, cpt3), 0.5)
1720
1721		nbpasU = 3 * Math.Max(2, Math.Floor(vUVlong(0) / pasmax - 0.0001) + 1)
1722		nbpasV = 3 * Math.Max(2, Math.Floor(vUVlong(1) / pasmax - 0.0001) + 1)
#	Line 2150 | Line 2142 | Module PoGCode
2142		End Sub
2143		Function distance_entre_points(ByVal eng As Double, ByVal coef As Double, ByVal lmbd As Double, ByVal courbure As Double, ByVal erreur As Double) As Double
2144		Dim rmax As Double
2145	+	Dim nor As Double = 0.5
2146	+	Dim eni As Double = eng * coef
2147	+	Dim enmax As Double = eng * coef * (1 + erreur)
2148
2154	–	If courbure <= 0 Then
2155	–	rmax = erreur
2156	–	End If
2149
2150	<	If courbure > 0 Then
2151	<	rmax = -0.05 * (Math.Sqrt(1 - 40 * courbure * erreur * (erreur - 1)) - 1) / ((erreur - 1) * courbure)
2160	<	End If
2150	>	If (courbure > 0.0001) Then rmax = 0.05 * (Math.Sqrt((nor * (eng - enmax) - eni + enmax) * (nor * (eng - enmax) - eni + enmax) - 40 * courbure * nor * (eni - enmax) * (eng - enmax)) - nor * (eng - enmax) + eni - enmax) / (courbure * nor * (eng - enmax))
2151	>	If (courbure <= 0.0001) Then rmax = (enmax - eni) / (nor * (eng - enmax) - eni + enmax)
2152
2162	–	'If courbure < 0 Then
2163	–	'    rmax = 0.05 * (Math.Sqrt(40 * courbure * erreur * (erreur - 1) + 1) + 20 * erreur * courbure - 1) / (erreur * courbure)
2164	–	'End If
2153
2154		Return 2 * rmax * lmbd * eng * (1 - coef)
2155
#	Line 2706 | Line 2694 | Module PoGCode
2694		End If
2695		direction_retrait_matiere = n
2696		End Function
2697	<	Function raffinn_auto_retrait_mat(ByVal Erx_ref As Double, ByRef coef As Double, ByRef lmbd As Double, ByRef courb As Double, ByVal Dng As Double, ByVal rayon As Double, ByRef params() As Double) As Boolean
2697	>	Function raffinn_auto_retrait_mat(ByVal Erx_ref As Double, ByRef coef As Double, ByRef lmbd As Double, ByRef courb As Double, ByVal Dng As Double, ByVal rayon As Double, ByVal pentelimite As Double, ByRef params() As Double) As Boolean
2698		Dim delta_ref_theo As Double
2699		Dim delta_ref_ptlimite As Double
2700		Dim Eng_ref As Double
#	Line 2716 | Line 2704 | Module PoGCode
2704		Dim A As Double = 0.12
2705		Dim B As Double = 0.68
2706		Dim param_rm() As Double
2719	–	Dim pentelimite As Double = 0.25
2707
2708		Dim x As Double
2709		Dim pente As Double
#	Line 2775 | Line 2762 | Module PoGCode
2762		ReDim param(4)
2763		param(0) = A : param(1) = B : param(2) = C : param(3) = D
2764		End Function
2765	<	Function determination_precision_retrait_mat(ByRef Eng As Double, ByRef coeff_rm As Double) As Double
2765	>	Function determination_ecart_nodal_global_retraits_mat(ByRef Erx_m As Double, ByRef coeffmin As Double) As Double
2766
2767		Dim swface As SldWorks.Face2
2768		Dim swsurface As SldWorks.Surface
#	Line 2790 | Line 2777 | Module PoGCode
2777		Dim vface As Object
2778		Dim cpt3 As Integer
2779		Dim cpt4 As Integer
2793	–	Dim i As Integer
2794	–	Dim swent As SldWorks.Entity
2795	–	Dim bRet As Boolean
2796	–	Dim lmbd_rm As Integer
2797	–	Dim courb_rm As Double
2780		Dim lg As Double
2781		Dim lgi As Double
2782		Dim angle As Double
2783		Dim n(2) As Double
2784		Dim area As Double
2785		Dim select_loop As Integer
2804	–	Dim t As Double
2786		Dim diametre As Double = 0
2787		Dim nb_retrait_mat As Integer = 0
2788		Dim param(1) As Double
2789	<	Dim Eni_moy As Double = Eng * coeff_rm
2789	>	Dim Eng_moy As Double = 0
2790		Dim tmp() As Double
2791	+	Dim Eni As Double
2792
2793		ReDim Preserve Tabretrait_mat(0)
2794		Tabretrait_mat(0) = New retrait_mat(Nothing, 0)
#	Line 2842 | Line 2824 | Module PoGCode
2824		select_loop = 1
2825		End If
2826		If diametre > 0.000001 Then
2827	<	If Tabretrait_mat(0).diametre > 0 Then nb_retrait_mat = nb_retrait_mat + 1
2828	<	ReDim Preserve Tabretrait_mat(nb_retrait_mat)
2829	<	Tabretrait_mat(nb_retrait_mat) = New retrait_mat(swface, diametre)
2827	>	nb_retrait_mat = nb_retrait_mat + 1
2828	>	ReDim Preserve Tabretrait_mat(nb_retrait_mat - 1)
2829	>	Tabretrait_mat(nb_retrait_mat - 1) = New retrait_mat(swface, diametre)
2830	>	raffinn_auto_retrait_mat(0, 0, 0, 0, 0, 0, 0, param)
2831	>	Eng_moy = Eng_moy + diametre / 2 * Erx_m / (param(0) * Math.Pow(contrainte_vm_rm_ref(1, 2, tmp), param(1))) ' Calcul de En_reference à une distance de 1 fois le rayon de reference (fin de zone à gradients de contraintes perturbés) puis multiplication par le rayon de la caractéristique (extrapolation)
2832	>	If Eni = 0 Then Eni = Eng_moy
2833	>	Eni = Math.Min(Eni, diametre / 2 * Erx_m / (param(0) * Math.Pow(contrainte_vm_rm_ref(0, 2, tmp), param(1)))) ' calcul du Eni minimal sur le domaine
2834		End If
2835		End If
2836		Next cpt3
#	Line 2870 | Line 2856 | Module PoGCode
2856		MsgBox("Type de trou non reconnu")
2857		End Select
2858		If diametre > 0.000001 Then
2859	<	If Tabretrait_mat(0).diametre > 0 Then nb_retrait_mat = nb_retrait_mat + 1
2860	<	ReDim Preserve Tabretrait_mat(nb_retrait_mat)
2861	<	Tabretrait_mat(nb_retrait_mat) = New retrait_mat(swfaceref, diametre)
2862	<
2859	>	nb_retrait_mat = nb_retrait_mat + 1
2860	>	ReDim Preserve Tabretrait_mat(nb_retrait_mat - 1)
2861	>	Tabretrait_mat(nb_retrait_mat - 1) = New retrait_mat(swfaceref, diametre)
2862	>	raffinn_auto_retrait_mat(0, 0, 0, 0, 0, 0, 0, param)
2863	>	Eng_moy = Eng_moy + diametre / 2 * Erx_m / (param(0) * Math.Pow(contrainte_vm_rm_ref(1, 2, tmp), param(1))) ' Calcul de En_reference à une distance de 1 fois le rayon de reference (fin de zone à gradients de contraintes perturbés) puis multiplication par le rayon de la caractéristique (extrapolation)
2864	>	If Eni = 0 Then Eni = Eng_moy
2865	>	Eni = Math.Min(Eni, diametre / 2 * Erx_m / (param(0) * Math.Pow(contrainte_vm_rm_ref(0, 2, tmp), param(1)))) ' calcul du Eni minimal sur le domaine
2866		End If
2867		Else
2868		If swfeat.GetFaceCount = 1 And (swfeat.GetTypeName = "Cut" Or swfeat.GetTypeName = "RevCut") Then
#	Line 2892 | Line 2881 | Module PoGCode
2881		diametre = params(7) * 2
2882		End If
2883		If diametre > 0.000001 Then
2884	<	If Tabretrait_mat(0).diametre > 0 Then nb_retrait_mat = nb_retrait_mat + 1
2885	<	ReDim Preserve Tabretrait_mat(nb_retrait_mat)
2886	<	Tabretrait_mat(nb_retrait_mat) = New retrait_mat(swfaceref, diametre)
2884	>	nb_retrait_mat = nb_retrait_mat + 1
2885	>	ReDim Preserve Tabretrait_mat(nb_retrait_mat - 1)
2886	>	Tabretrait_mat(nb_retrait_mat - 1) = New retrait_mat(swfaceref, diametre)
2887	>	raffinn_auto_retrait_mat(0, 0, 0, 0, 0, 0, 0, param)
2888	>	Eng_moy = Eng_moy + diametre / 2 * Erx_m / (param(0) * Math.Pow(contrainte_vm_rm_ref(1, 2, tmp), param(1))) ' Calcul de En_reference à une distance de 1 fois le rayon de reference (fin de zone à gradients de contraintes perturbés) puis multiplication par le rayon de la caractéristique (extrapolation)
2889	>	If Eni = 0 Then Eni = Eng_moy
2890	>	Eni = Math.Min(Eni, diametre / 2 * Erx_m / (param(0) * Math.Pow(contrainte_vm_rm_ref(0, 2, tmp), param(1)))) ' calcul du Eni minimal sur le domaine
2891		End If
2892		End If
2893		End If
#	Line 2905 | Line 2898 | Module PoGCode
2898		Next cpt1
2899
2900		If nb_retrait_mat > 0 Or Tabretrait_mat(0).diametre > 0 Then
2901	<	diametre = 0
2902	<	For cpt1 = 0 To nb_retrait_mat
2903	<	diametre = diametre + Tabretrait_mat(cpt1).diametre
2904	<	Next
2905	<	diametre = diametre / (nb_retrait_mat + 1)
2913	<	Eni_moy = 2 * Eni_moy / diametre  ' devient Eni moy reference
2914	<	raffinn_auto_retrait_mat(0, 0, 0, 0, 0, 0, param)
2915	<	determination_precision_retrait_mat = Eni_moy * param(0) * Math.Pow(contrainte_vm_rm_ref(0, 2, tmp), param(1))
2916	<	MsgBox("Pré-optimisation de maillage des caractéristiques Retraits de matière avec une précision de " & 100 * determination_precision_retrait_mat & "%")
2901	>	Eng_moy = Eng_moy / nb_retrait_mat
2902	>	raffinn_auto_retrait_mat(0, 0, 0, 0, 0, 0, 0, param)
2903	>	determination_ecart_nodal_global_retraits_mat = Eng_moy
2904	>	coeffmin = Eni / Eng_moy
2905	>	'MsgBox("Pré-optimisation de maillage des caractéristiques Retraits de matière avec une écart nodal global de " & 1000 * Eng_moy & "mm")
2906		Else
2907	<	determination_precision_retrait_mat = 1
2907	>	determination_ecart_nodal_global_retraits_mat = 0
2908		End If
2909		End Function
2910
2911	<	Function raffinement_retrait_matiere(ByRef Eng As Double, ByRef Erx As Double)
2911	>	Sub raffinement_retrait_matiere(ByRef Eng As Double, ByRef Erx As Double, Optional ByRef limitepente As Double = 0.25)
2912		Dim cpt As Integer
2913		Dim coeff As Double
2914		Dim lmbd As Double
#	Line 2927 | Line 2916 | Module PoGCode
2916		Dim tmp() As Double
2917
2918		For cpt = 0 To UBound(Tabretrait_mat)
2919	<	If raffinn_auto_retrait_mat(Erx, coeff, lmbd, courb, Eng, Tabretrait_mat(cpt).diametre / 2, tmp) Then ChangeTabFace(Tabretrait_mat(cpt).face, coeff, lmbd, courb)
2919	>	If raffinn_auto_retrait_mat(Erx, coeff, lmbd, courb, Eng, Tabretrait_mat(cpt).diametre / 2, limitepente, tmp) Then ChangeTabFace(Tabretrait_mat(cpt).face, coeff, lmbd, courb)
2920		Next
2921
2922	<	End Function
2922	>	End Sub
2923
2924		End Module
2925

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines